stricter @INC path

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

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-lib.pl';
require 'cgi-style.pl'; require './cgi-style.pl';
$newloc = "http://www.FreeBSD.org/"; $newloc = "http://www.FreeBSD.org/";

View file

@ -1,4 +1,4 @@
#!/usr/bin/perl #!/usr/bin/perl -T
# Copyright (c) Juli 1997-2000. Wolfram Schneider <wosch@FreeBSD.org>, Berlin. # Copyright (c) Juli 1997-2000. Wolfram Schneider <wosch@FreeBSD.org>, Berlin.
# All rights reserved. # 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 # output title
@ -78,7 +78,7 @@ $redirect_url_save =~ s/([^a-zA-Z0-9;\/?:&=])/sprintf("%%%02x",ord($1))/eg;
$hsty_base = ''; $hsty_base = '';
require 'cgi-style.pl'; require './cgi-style.pl';
print &html_header($title); print &html_header($title);
# HTML body # HTML body

View file

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

View file

@ -1,5 +1,5 @@
#!/usr/bin/perl #!/usr/bin/perl -T
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.22 2000/12/05 16:22:14 knu Exp $ # $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"; $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', 'Jul', '07', 'Aug', '08', 'Sep', '09',
'Oct', '10', 'Nov', '11', 'Dec', '12'); 'Oct', '10', 'Nov', '11', 'Dec', '12');
require "cgi-lib.pl"; require "./cgi-lib.pl";
require "cgi-style.pl"; require "./cgi-style.pl";
require "getopts.pl"; require "getopts.pl";
&Getopts('p:'); &Getopts('p:');

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. # mail-archive.pl -- a CGI interface to a wais indexed maling list archive.
# #
@ -15,7 +15,7 @@
# Disclaimer: # Disclaimer:
# This is pretty ugly in places. # 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'; $server_root = '/usr/local/www';
@ -26,8 +26,8 @@ $searchpage = '/search/search.html';
$myurl = $ENV{'SCRIPT_NAME'}; $myurl = $ENV{'SCRIPT_NAME'};
require "open2.pl"; require "open2.pl";
require "cgi-lib.pl"; require "./cgi-lib.pl";
require "cgi-style.pl"; require "./cgi-style.pl";
@months = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'); @months = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');