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,