cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- FIX: Make revision links in annotation work.

Browse Source 
- Recognize "Links" as text-based browser.
This commit is contained in:
naddy 2000-10-12 19:53:30 +00:00
parent 2f2b0dad2b
commit 3e44784924
1 changed files with 37 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
devel/cvsweb/patches/patch-cvsweb_cgi
View File

@ -1,13 +1,22 @@
$OpenBSD: patch-cvsweb_cgi,v 1.1.1.1 2000/10/01 19:18:53 naddy Exp $
--- cvsweb.cgi.orig Sat Sep 30 22:10:01 2000
+++ cvsweb.cgi Sun Oct 1 20:37:59 2000
$OpenBSD: patch-cvsweb_cgi,v 1.2 2000/10/12 19:53:30 naddy Exp $
--- cvsweb.cgi.orig Sat Oct 7 10:00:22 2000
+++ cvsweb.cgi Tue Oct 10 23:12:30 2000
@@ -1,4 +1,4 @@
-#!/usr/bin/perl5 -ws
+#!/usr/bin/perl -ws
#
# cvsweb - a CGI interface to CVS trees.
#
@@ -128,7 +128,7 @@ use Cwd;
@@ -59,7 +59,7 @@ use vars qw (
$checkoutMagic $doCheckout $scriptname $scriptwhere
$where $pathinfo $Browser $nofilelinks $maycompress @stickyvars
%funcline_regexp $is_mod_perl
- $is_lynx $is_w3m $is_msie $is_mozilla3 $is_textbased
+ $is_links $is_lynx $is_w3m $is_msie $is_mozilla3 $is_textbased
%input $query $barequery $sortby $bydate $byrev $byauthor
$bylog $byfile $hr_default $logsort $cvstree $cvsroot
$mimetype $defaultTextPlain $defaultViewable $allow_compress
@@ -129,7 +129,7 @@ use Cwd;
# Locations to search for user configuration, in order:
for (
$ENV{CVSWEB_CONFIG},
@ -16,3 +25,27 @@ $OpenBSD: patch-cvsweb_cgi,v 1.1.1.1 2000/10/01 19:18:53 naddy Exp $
getcwd() . '/cvsweb.conf'
) {
$config = $_ if defined($_) && -r $_;
@@ -196,12 +196,13 @@ $is_mod_perl = defined($ENV{MOD_PERL});
# per file, so disable the link at the icon
# in this case:
$Browser = $ENV{HTTP_USER_AGENT};
+$is_links = ($Browser =~ m`^Links `);
$is_lynx = ($Browser =~ m`^Lynx/`i);
$is_w3m = ($Browser =~ m`^w3m/`i);
$is_msie = ($Browser =~ m`MSIE`);
$is_mozilla3 = ($Browser =~ m`^Mozilla/[3-9]`);
-$is_textbased = ($is_lynx || $is_w3m);
+$is_textbased = ($is_links || $is_lynx || $is_w3m);
$nofilelinks = $is_textbased;
@@ -1255,7 +1256,7 @@ sub doAnnotate($$) {
}
else {
$revprint = sprintf('%-8s', $lrev);
- $revprint =~ s`\S+`<a href="${scriptwhere}${barequery}#rev$1">$&</A>`; # `
+ $revprint =~ s`(\S+)`<a href="${scriptwhere}${query}#rev$1">$1</A>`;
$oldLusr = '';
}
if ($lusr eq $oldLusr) {