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

Disable LWP::UserAgent perl package

Browse source 
Allow `+' in port names, e.g. for mgetty+sendfax
Print a better warning if a port does not exists
or contain untrusted characters in port name.
This commit is contained in:
Wolfram Schneider 1998-11-03 11:47:27 +00:00
parent 48166782cb
commit dbe851680a
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=3723
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
en/cgi/url.cgi
View file

@ -1,4 +1,4 @@
#!/usr/local/bin/perl -T #!/usr/local/bin/perl
# #
# Copyright (c) Oct 1997 Wolfram Schneider <wosch@FreeBSD.org>. Berlin. # Copyright (c) Oct 1997 Wolfram Schneider <wosch@FreeBSD.org>. Berlin.
# All rights reserved. # All rights reserved.
@ -26,10 +26,10 @@
# #
# url.cgi - make plain text URLs clickable # url.cgi - make plain text URLs clickable
# #
# $Id: url.cgi,v 1.9 1998-09-29 11:20:02 wosch Exp $ # $Id: url.cgi,v 1.10 1998-11-03 11:47:27 wosch Exp $
require LWP::UserAgent; #require LWP::UserAgent;
$hsty_base = ''; $hsty_base = '';
$hsty_email = 'ports@freebsd.org'; $hsty_email = 'ports@freebsd.org';
@ -37,8 +37,8 @@ $hsty_email = 'ports@freebsd.org';
require "./cgi-lib.pl"; require "./cgi-lib.pl";
require "./cgi-style.pl"; require "./cgi-style.pl";
$ua = new LWP::UserAgent; #$ua = new LWP::UserAgent;
$ua -> max_size(20*1024); #$ua -> max_size(20*1024);
$file = $ENV{'QUERY_STRING'}; $file = $ENV{'QUERY_STRING'};
$uri = "$file"; $uri = "$file";
@ -52,11 +52,12 @@ if (1) {
my($cvsroot) = '/home/ncvs'; my($cvsroot) = '/home/ncvs';
$file =~ s%(http|ftp)://ftp.freebsd.org/pub/FreeBSD/FreeBSD-current/%%; $file =~ s%(http|ftp)://ftp.freebsd.org/pub/FreeBSD/FreeBSD-current/%%;
print &short_html_header($file); print &short_html_header($file);
if ($file =~ m%^ports/[\w-]+/[\w-]+/pkg/DESCR% && if ($file =~ m%^ports/[\w-]+/[\w-+]+/pkg/DESCR% &&
-f "$cvsroot/$file,v") { -f "$cvsroot/$file,v") {
open(CO, "-|") || exec ('/usr/bin/co', '-p', '-q', "$cvsroot/$file,v"); open(CO, "-|") || exec ('/usr/bin/co', '-p', '-q', "$cvsroot/$file,v");
} else { } else {
print "bla\n"; print "<p>Port does not exists or invalid port name: $file\n";
print "<p>Please contact the webmaster!\n";
} }
#print "$cvsroot/$file,v"; #print "$cvsroot/$file,v";