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

Make perl5 happy.

Browse source
This commit is contained in:
Wolfram Schneider 1998-06-05 17:19:04 +00:00
parent a537fa0672
commit 1bab69a67d
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=2896
6 changed files with 18 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

6
en/cgi/gallery.cgi
View file

@ -4,16 +4,16 @@
#
# John Fieber <jfieber@indiana.edu>
# Modified for new gallery.db format by Nate Johnson <nsj@freebsd.org>
# $Id: gallery.cgi,v 1.11 1998-05-27 12:48:05 nsj Exp $
# $Id: gallery.cgi,v 1.12 1998-06-05 17:19:04 wosch Exp $
##################################################################
$curator = "gallery@freebsd.org";
$curator = "gallery\@freebsd.org";
$subject = "Another gallery submission...";
require 'cgi-lib.pl';
&ReadParse;
$hsty_date = "\$Date: 1998-05-27 12:48:05 $";
$hsty_date = '$Date: 1998-06-05 17:19:04 $';
#$h_base = "..";
#$d_author = "
require 'cgi-style.pl';

6
en/cgi/query-pr.cgi
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $Id: query-pr.cgi,v 1.10 1998-06-05 17:06:20 wosch Exp $
# $Id: query-pr.cgi,v 1.11 1998-06-05 17:19:04 wosch Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -156,7 +156,7 @@ print "</dl>";
$syn =~ s/[\?&%"]/"%" . sprintf("%02X", unpack(C, $&))/eg;
$email =~ s/[\?&%]/"%" . sprintf("%02X", unpack(C, $&))/eg;
print "<A HREF=\"mailto:freebsd-gnats-submit@freebsd.org,${email}?subject=Re: ${cat}/${number}: $syn\">Submit Followup</A>\n";
print "<A HREF=\"mailto:freebsd-gnats-submit\@freebsd.org,${email}?subject=Re: ${cat}/${number}: $syn\">Submit Followup</A>\n";
print &html_footer;
@ -170,7 +170,7 @@ sub getline
}
sub fixline {
local($line) = @_[0];
local($line) = shift;
$line =~ s/&/&amp;/g;
$line =~ s/</&lt;/g;

6
en/cgi/reg.cgi
View file

@ -36,7 +36,7 @@ if ($FORM{"emaila"} eq "") {
$recipient = $FORM{'recipient'};
exit(0) if $recipient !~ /^[a-z_\.\-]+\@freebsd\.org$/io;
$sub_recipient = "majordomo@freebsd.org";
$sub_recipient = "majordomo\@freebsd.org";
#
# format the mail file
format MAIL =
@ -98,9 +98,9 @@ print "</MAP>\n";
print "<P>Thank you, $FORM{'First'} $FORM{'Last'}, for your registration.\n";
print "<BR>It has been submitted.\n";
if ($FORM{"announce"} eq "yes") {
print "<BR>As you requested, you have also been subscribed to announce@freebsd.org.\n";
print "<BR>As you requested, you have also been subscribed to announce\@freebsd.org.\n";
}
print "</CENTER>\n";
print "</BODY>\n";
end;
1;