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
data/cgi/gallery.cgi
View file

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

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

@ -1,5 +1,5 @@
#!/usr/bin/perl #!/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"; $ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -156,7 +156,7 @@ print "</dl>";
$syn =~ s/[\?&%"]/"%" . sprintf("%02X", unpack(C, $&))/eg; $syn =~ s/[\?&%"]/"%" . sprintf("%02X", unpack(C, $&))/eg;
$email =~ 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; print &html_footer;
@ -170,7 +170,7 @@ sub getline
} }
sub fixline { sub fixline {
local($line) = @_[0]; local($line) = shift;
$line =~ s/&/&amp;/g; $line =~ s/&/&amp;/g;
$line =~ s/</&lt;/g; $line =~ s/</&lt;/g;

6
data/cgi/reg.cgi
View file

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

6
en/cgi/gallery.cgi
View file

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

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

@ -1,5 +1,5 @@
#!/usr/bin/perl #!/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"; $ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -156,7 +156,7 @@ print "</dl>";
$syn =~ s/[\?&%"]/"%" . sprintf("%02X", unpack(C, $&))/eg; $syn =~ s/[\?&%"]/"%" . sprintf("%02X", unpack(C, $&))/eg;
$email =~ 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; print &html_footer;
@ -170,7 +170,7 @@ sub getline
} }
sub fixline { sub fixline {
local($line) = @_[0]; local($line) = shift;
$line =~ s/&/&amp;/g; $line =~ s/&/&amp;/g;
$line =~ s/</&lt;/g; $line =~ s/</&lt;/g;

6
en/cgi/reg.cgi
View file

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