stricter @INC path
forces "taint" checks to be turned on
This commit is contained in:
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
|
@ -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/";
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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') {
|
||||||
|
|
|
@ -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:');
|
||||||
|
|
|
@ -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');
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue