Attachment 32256 Details for Bug 53386 – www-urlcgi-attic.patch

[patch] www-urlcgi-attic.patch

www-urlcgi-attic.patch (text/plain), 1.22 KB, created by simon on 2003-06-16 23:30:15 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: simon

Created: 2003-06-16 23:30:15 UTC

Size: 1.22 KB

patch

obsolete

>Index: url.cgi
>===================================================================
>RCS file: /home/ncvs/www/en/cgi/url.cgi,v
>retrieving revision 1.31
>diff -u -d -r1.31 url.cgi
>--- url.cgi	2 May 2002 14:21:40 -0000	1.31
>+++ url.cgi	16 Jun 2003 21:32:51 -0000
>@@ -69,15 +69,26 @@
>     print &short_html_header($file);
> }
> 
>+my $validfilename = $file =~ m%^ports/[\w-]+/\w[\w-+.]*/pkg-descr%;
>+my $atticfile = $file;
>+$atticfile =~ s%^(.*)/([^/]+)$%$1/Attic/$2%;
>+
> # do cvs checkout 
> my($cvsroot) = '/usr/local/www/cvsroot/FreeBSD';
>-if ($file =~ m%^ports/[\w-]+/\w[\w-+.]*/pkg-descr% && -f "$cvsroot/$file,v") {
>-    open(CO, "-|") || 
>-	exec ('/usr/bin/co', '-p', '-q', "$cvsroot/$file,v") ||
>-	die "exec co -pq $cvsroot/$file,v: $!\n";
>-} 
>+my $realfile;
>+if ($validfilename && -f "$cvsroot/$file,v") {
>+    $realfile = $file;
>+} elsif ($validfilename && -f "$cvsroot/$atticfile,v") {
>+    $realfile = $atticfile;
>+} else {
>+    $validfilename = 0;
>+}
> 
>-else {
>+if($validfilename) {
>+    open(CO, "-|") ||
>+	exec ('/usr/bin/co', '-p', '-q', "$cvsroot/$realfile,v") ||
>+	die "exec co -pq $cvsroot/$realfile,v: $!\n";
>+} else {
>     print "<p>The port specified does not exist, or has an invalid name: <p>",
> 	  "<blockquote>$file</blockquote>\n";

Actions: View | Diff

Attachments on bug 53386: 32256