Fix some bad HTML generation.
This commit is contained in:
parent
a1e7f7b814
commit
6d506c215b
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=568
2 changed files with 4 additions and 4 deletions
|
@ -13,7 +13,7 @@ $subject = "Another gallery submission...";
|
||||||
require 'cgi-lib.pl';
|
require 'cgi-lib.pl';
|
||||||
&ReadParse;
|
&ReadParse;
|
||||||
|
|
||||||
#$d_date = "$Date: 1996-09-24 17:45:57 $";
|
#$d_date = "$Date: 1996-10-01 19:46:14 $";
|
||||||
#$h_base = "..";
|
#$h_base = "..";
|
||||||
#$d_author = "
|
#$d_author = "
|
||||||
require 'cgi-style.pl';
|
require 'cgi-style.pl';
|
||||||
|
@ -120,7 +120,7 @@ elsif ($in{'action'} eq "submit") {
|
||||||
open(M, "| mail -s \"$subject\" $curator");
|
open(M, "| mail -s \"$subject\" $curator");
|
||||||
print M "$in{'contact'} submitted the following to be added under\n";
|
print M "$in{'contact'} submitted the following to be added under\n";
|
||||||
print M "\"$in{'category'}\" in the gallery:\n\n";
|
print M "\"$in{'category'}\" in the gallery:\n\n";
|
||||||
print M "<-- from $in{'contact'} on $timestamp -->\n";
|
print M "<!-- from $in{'contact'} on $timestamp -->\n";
|
||||||
print M "$entry\n";
|
print M "$entry\n";
|
||||||
close(M);
|
close(M);
|
||||||
}
|
}
|
||||||
|
|
|
@ -13,7 +13,7 @@ $subject = "Another gallery submission...";
|
||||||
require 'cgi-lib.pl';
|
require 'cgi-lib.pl';
|
||||||
&ReadParse;
|
&ReadParse;
|
||||||
|
|
||||||
#$d_date = "$Date: 1996-09-24 17:45:57 $";
|
#$d_date = "$Date: 1996-10-01 19:46:14 $";
|
||||||
#$h_base = "..";
|
#$h_base = "..";
|
||||||
#$d_author = "
|
#$d_author = "
|
||||||
require 'cgi-style.pl';
|
require 'cgi-style.pl';
|
||||||
|
@ -120,7 +120,7 @@ elsif ($in{'action'} eq "submit") {
|
||||||
open(M, "| mail -s \"$subject\" $curator");
|
open(M, "| mail -s \"$subject\" $curator");
|
||||||
print M "$in{'contact'} submitted the following to be added under\n";
|
print M "$in{'contact'} submitted the following to be added under\n";
|
||||||
print M "\"$in{'category'}\" in the gallery:\n\n";
|
print M "\"$in{'category'}\" in the gallery:\n\n";
|
||||||
print M "<-- from $in{'contact'} on $timestamp -->\n";
|
print M "<!-- from $in{'contact'} on $timestamp -->\n";
|
||||||
print M "$entry\n";
|
print M "$entry\n";
|
||||||
close(M);
|
close(M);
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue