projects
/
technostate.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cab57b5
)
bah
author
ivan
<ivan>
Thu, 22 Apr 1999 06:06:16 +0000
(06:06 +0000)
committer
ivan
<ivan>
Thu, 22 Apr 1999 06:06:16 +0000
(06:06 +0000)
cgi/persons.cgi
patch
|
blob
|
history
cgi/sets.cgi
patch
|
blob
|
history
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
#!/usr/bin/perl -Tw
-# $Id: persons.cgi,v 1.
7 1999-04-22 05:58:0
6 ivan Exp $
+# $Id: persons.cgi,v 1.
8 1999-04-22 06:06:1
6 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
# 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;
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,
$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
#!/usr/bin/perl -Tw
-# $Id: sets.cgi,v 1.
3 1999-04-22 05:58:0
6 ivan Exp $
+# $Id: sets.cgi,v 1.
4 1999-04-22 06:06:1
6 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
# 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( $field, $1);
}
}
+ $cgi->param('FILESIZE', 0);
+ $cgi->param('DOWNLOADS', 0);
+
my $statement = "INSERT INTO $table ( ".
join(', ', @fields ).
' ) VALUES ( '.
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;
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,
$cgi->start_html($action),
$cgi->h1($action),
$cgi->start_form,