os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Minor modifications to facilitate adds into the gallery.db file.

Browse source
This commit is contained in:
nsj 1998-05-26 19:52:58 +00:00
parent 61c9ceb653
commit 35299837f7
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=2854
2 changed files with 30 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
data/cgi/gallery.cgi
View file

@ -3,7 +3,8 @@
# A CGI form processor for FreeBSD Gallery submissions # A CGI form processor for FreeBSD Gallery submissions
# #
# John Fieber <jfieber@indiana.edu> # John Fieber <jfieber@indiana.edu>
# $Id: gallery.cgi,v 1.8 1997-01-12 05:13:22 jkh Exp $ # Modified for new gallery.db format by Nate Johnson <nsj@freebsd.org>
# $Id: gallery.cgi,v 1.9 1998-05-26 19:52:58 nsj Exp $
################################################################## ##################################################################
$curator = "gallery@freebsd.org"; $curator = "gallery@freebsd.org";
@ -12,7 +13,7 @@ $subject = "Another gallery submission...";
require 'cgi-lib.pl'; require 'cgi-lib.pl';
&ReadParse; &ReadParse;
$hsty_date = "\$Date: 1997-01-12 05:13:22 $"; $hsty_date = "\$Date: 1998-05-26 19:52:58 $";
#$h_base = ".."; #$h_base = "..";
#$d_author = " #$d_author = "
require 'cgi-style.pl'; require 'cgi-style.pl';
@ -117,9 +118,18 @@ elsif ($in{'action'} eq "submit") {
# close(STDOUT); # close(STDOUT);
open(M, "| mail -s \"$subject\" $curator"); open(M, "| mail -s \"$subject\" $curator");
print M "\"$in{'category'}\" gallery entry:\n\n"; # print M "\"$in{'category'}\" gallery entry:\n\n";
print M "<!-- from $in{'contact'} ($ENV{'REMOTE_HOST'}) on $timestamp -->\n"; # print M "<!-- from $in{'contact'} ($ENV{'REMOTE_HOST'}) on $timestamp -->\n";
print M "$entry\n"; # print M "$entry\n";
$category = $in{'category'};
$category =~ tr/A-Z/a-z/;
($mo,$da,$year) = $timestamp =~ m/(\d\d?)-(\d\d?)-(\d\d\d\d)/;
$year -= $1900;
$date = join("",$year,$mo,$da);
print M "$category\t$in{'organization'}\t$in{'url'}\t$in{'description'}\t$i {'contact'}\t$date\t000000\n";
close(M); close(M);
} }
else { else {

20
en/cgi/gallery.cgi
View file

@ -3,7 +3,8 @@
# A CGI form processor for FreeBSD Gallery submissions # A CGI form processor for FreeBSD Gallery submissions
# #
# John Fieber <jfieber@indiana.edu> # John Fieber <jfieber@indiana.edu>
# $Id: gallery.cgi,v 1.8 1997-01-12 05:13:22 jkh Exp $ # Modified for new gallery.db format by Nate Johnson <nsj@freebsd.org>
# $Id: gallery.cgi,v 1.9 1998-05-26 19:52:58 nsj Exp $
################################################################## ##################################################################
$curator = "gallery@freebsd.org"; $curator = "gallery@freebsd.org";
@ -12,7 +13,7 @@ $subject = "Another gallery submission...";
require 'cgi-lib.pl'; require 'cgi-lib.pl';
&ReadParse; &ReadParse;
$hsty_date = "\$Date: 1997-01-12 05:13:22 $"; $hsty_date = "\$Date: 1998-05-26 19:52:58 $";
#$h_base = ".."; #$h_base = "..";
#$d_author = " #$d_author = "
require 'cgi-style.pl'; require 'cgi-style.pl';
@ -117,9 +118,18 @@ elsif ($in{'action'} eq "submit") {
# close(STDOUT); # close(STDOUT);
open(M, "| mail -s \"$subject\" $curator"); open(M, "| mail -s \"$subject\" $curator");
print M "\"$in{'category'}\" gallery entry:\n\n"; # print M "\"$in{'category'}\" gallery entry:\n\n";
print M "<!-- from $in{'contact'} ($ENV{'REMOTE_HOST'}) on $timestamp -->\n"; # print M "<!-- from $in{'contact'} ($ENV{'REMOTE_HOST'}) on $timestamp -->\n";
print M "$entry\n"; # print M "$entry\n";
$category = $in{'category'};
$category =~ tr/A-Z/a-z/;
($mo,$da,$year) = $timestamp =~ m/(\d\d?)-(\d\d?)-(\d\d\d\d)/;
$year -= $1900;
$date = join("",$year,$mo,$da);
print M "$category\t$in{'organization'}\t$in{'url'}\t$in{'description'}\t$i {'contact'}\t$date\t000000\n";
close(M); close(M);
} }
else { else {