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

stricter @INC path

Browse source 
forces "taint" checks to be turned on
This commit is contained in:
Wolfram Schneider 2000-12-28 13:43:41 +00:00
parent a57ea9886a
commit a0a56a50b1
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=8564
5 changed files with 19 additions and 19 deletions

8
en/cgi/ftp.cgi
View file

@ -1,9 +1,9 @@
#!/usr/bin/perl
#!/usr/bin/perl -T
#
# $FreeBSD$
# $FreeBSD: www/en/cgi/ftp.cgi,v 1.3 2000/04/03 08:45:51 phantom Exp $
require 'cgi-lib.pl';
require 'cgi-style.pl';
require './cgi-lib.pl';
require './cgi-style.pl';
$newloc = "http://www.FreeBSD.org/";

6
en/cgi/missing_handler.cgi
View file

@ -1,4 +1,4 @@
#!/usr/bin/perl
#!/usr/bin/perl -T
# Copyright (c) Juli 1997-2000. Wolfram Schneider <wosch@FreeBSD.org>, Berlin.
# All rights reserved.
#
@ -52,7 +52,7 @@
#
# _________________________________________________________________
#
# $FreeBSD: www/en/cgi/missing_handler.cgi,v 1.6 2000/01/05 15:47:44 phantom Exp $
# $FreeBSD: www/en/cgi/missing_handler.cgi,v 1.8 2000/10/03 19:50:16 wosch Exp $
# ----------------------------------------------------------------------
# output title
@ -78,7 +78,7 @@ $redirect_url_save =~ s/([^a-zA-Z0-9;\/?:&=])/sprintf("%%%02x",ord($1))/eg;
$hsty_base = '';
require 'cgi-style.pl';
require './cgi-style.pl';
print &html_header($title);
# HTML body

8
en/cgi/query-pr-summary.cgi
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $FreeBSD: www/en/cgi/query-pr-summary.cgi,v 1.28 2000/10/29 22:16:41 steve Exp $
#!/usr/bin/perl -T
# $FreeBSD: www/en/cgi/query-pr-summary.cgi,v 1.29 2000/11/29 13:59:24 wosch Exp $
$html_mode = 1 if $ENV{'DOCUMENT_ROOT'};
$self_ref = $ENV{'SCRIPT_NAME'};
@ -32,8 +32,8 @@ $closed_too = 0;
"low", "l"
);
require "cgi-lib.pl";
require "cgi-style.pl";
require "./cgi-lib.pl";
require "./cgi-style.pl";
require "getopts.pl";
if ($ENV{'QUERY_STRING'} eq 'query') {

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

@ -1,5 +1,5 @@
#!/usr/bin/perl
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.22 2000/12/05 16:22:14 knu Exp $
#!/usr/bin/perl -T
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.23 2000/12/06 07:16:59 ps Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -8,8 +8,8 @@ $ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
'Jul', '07', 'Aug', '08', 'Sep', '09',
'Oct', '10', 'Nov', '11', 'Dec', '12');
require "cgi-lib.pl";
require "cgi-style.pl";
require "./cgi-lib.pl";
require "./cgi-style.pl";
require "getopts.pl";
&Getopts('p:');

8
en/cgi/search.cgi
View file

@ -1,4 +1,4 @@
#!/usr/bin/perl
#!/usr/bin/perl -T
#
# mail-archive.pl -- a CGI interface to a wais indexed maling list archive.
#
@ -15,7 +15,7 @@
# Disclaimer:
# This is pretty ugly in places.
#
# $FreeBSD: www/en/cgi/search.cgi,v 1.18 2000/10/28 18:20:39 wosch Exp $
# $FreeBSD: www/en/cgi/search.cgi,v 1.19 2000/11/05 19:05:43 wosch Exp $
$server_root = '/usr/local/www';
@ -26,8 +26,8 @@ $searchpage = '/search/search.html';
$myurl = $ENV{'SCRIPT_NAME'};
require "open2.pl";
require "cgi-lib.pl";
require "cgi-style.pl";
require "./cgi-lib.pl";
require "./cgi-style.pl";
@months = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');