bah

diff --git a/cgi/persons.cgi b/cgi/persons.cgi
index d011913..1f1501c 100755 (executable)
--- a/cgi/persons.cgi
+++ b/cgi/persons.cgi
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -Tw
-# $Id: persons.cgi,v 1.7 1999-04-22 05:58:06 ivan Exp $
+# $Id: persons.cgi,v 1.8 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
@@ -104,7 +104,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,

diff --git a/cgi/sets.cgi b/cgi/sets.cgi
index 9bab6a3..7be457d 100755 (executable)
--- 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,