From dbe851680ab6f056d2a0f55101c1a83dd3e0e453 Mon Sep 17 00:00:00 2001
From: Wolfram Schneider <wosch@FreeBSD.org>
Date: Tue, 3 Nov 1998 11:47:27 +0000
Subject: [PATCH] Disable LWP::UserAgent perl package 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.

---
 en/cgi/url.cgi | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/en/cgi/url.cgi b/en/cgi/url.cgi
index a8a139f8d4..9beddb5a83 100755
--- a/en/cgi/url.cgi
+++ b/en/cgi/url.cgi
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl -T
+#!/usr/local/bin/perl
 #
 # Copyright (c) Oct 1997 Wolfram Schneider <wosch@FreeBSD.org>. Berlin.
 # All rights reserved.
@@ -26,10 +26,10 @@
 #
 # 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_email = 'ports@freebsd.org';
@@ -37,8 +37,8 @@ $hsty_email = 'ports@freebsd.org';
 require "./cgi-lib.pl";
 require "./cgi-style.pl";
 
-$ua = new LWP::UserAgent;
-$ua -> max_size(20*1024);
+#$ua = new LWP::UserAgent;
+#$ua -> max_size(20*1024);
 
 $file = $ENV{'QUERY_STRING'};
 $uri = "$file";
@@ -52,11 +52,12 @@ if (1) {
 	my($cvsroot) = '/home/ncvs';
 	$file =~ s%(http|ftp)://ftp.freebsd.org/pub/FreeBSD/FreeBSD-current/%%;
 	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") {
 		 open(CO, "-|") || exec ('/usr/bin/co', '-p', '-q', "$cvsroot/$file,v");
 	} 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";