X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=cgi%2Fsets.cgi;h=7be457dc916e34d453eb1f045f8999d85bff43b5;hb=914bb1cf4592983b7d63f3faf748440c072e9c16;hp=9bab6a3ac6211105695538a2aba1ea3d085c1eeb;hpb=cab57b5d930ba2b9d2308f155edeac5fdeef0021;p=technostate.git diff --git a/cgi/sets.cgi b/cgi/sets.cgi index 9bab6a3..7be457d 100755 --- a/cgi/sets.cgi +++ b/cgi/sets.cgi @@ -1,5 +1,5 @@ #!/usr/bin/perl -Tw -# $Id: sets.cgi,v 1.3 1999-04-22 05:58:06 ivan Exp $ +# $Id: sets.cgi,v 1.4 1999-04-22 06:06:16 ivan Exp $ # Copyright (c) 1999 Ivan Kohler. All rights reserved. # This program is free software; you can redistribute it and/or modify it under # the same terms as perl itself @@ -78,6 +78,9 @@ unless ( $cgi->param('magic') ) { #first time through $cgi->param( $field, $1); } } + $cgi->param('FILESIZE', 0); + $cgi->param('DOWNLOADS', 0); + my $statement = "INSERT INTO $table ( ". join(', ', @fields ). ' ) VALUES ( '. @@ -98,7 +101,7 @@ unless ( $cgi->param('magic') ) { #first time through sub print_form { my $cgi = shift; my $action = shift; - print $cgi->header( '-expires' => 'now' ), + print $cgi->header, $cgi->start_html($action), $cgi->h1($action), $cgi->start_form,