cvsweb/cvsweb.cgi - diff

Return to cvsweb.cgi CVS log

Up to [cvsweb.bsd.lv] / cvsweb

Diff for /cvsweb/cvsweb.cgi between version 3.4 and 3.7

version 3.4, 2000/07/28 17:24:35

version 3.7, 2000/07/29 09:24:14

Line 12

# Based on:

# * Bill Fenners cvsweb.cgi revision 1.28 available from:

# http://www.freebsd.org/cgi/cvsweb.cgi/www/en/cgi/cvsweb.cgi

# http://www.FreeBSD.org/cgi/cvsweb.cgi/www/en/cgi/cvsweb.cgi

Line 57 use vars qw (

$checkoutMagic $doCheckout $scriptname $scriptwhere

$where $pathinfo $Browser $nofilelinks $maycompress @stickyvars

%funcline_regexp $is_mod_perl

$is_lynx $is_msie $is_mozilla3

$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

Line 133 $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_lynx = ($Browser =~ m`^Lynx/`);

$is_lynx = ($Browser =~ m`^Lynx/`i);

$is_w3m = ($Browser =~ m`^w3m/`i);

$is_msie = ($Browser =~ m`MSIE`);

$is_mozilla3 = ($Browser =~ m`^Mozilla/[3456789]`);

$is_mozilla3 = ($Browser =~ m`^Mozilla/[3-9]`);

$nofilelinks = $is_lynx;

$is_textbased = ($is_lynx || $is_w3m);

$nofilelinks = $is_textbased;

# newer browsers accept gzip content encoding

# and state this in a header

# (netscape did always but didn't state it)

Line 158 $maycompress =(($ENV{HTTP_ACCEPT_ENCODING} =~ m`gzip`

Line 161 $maycompress =(($ENV{HTTP_ACCEPT_ENCODING} =~ m`gzip`

# to hold our state - they will be added (with

# their current value) to any link/query string

# you construct

@stickyvars = qw(cvsroot hideattic sortby logsort fonly_with_tag);

@stickyvars = qw(cvsroot hideattic sortby logsort f only_with_tag);

if (-f $config) {

do $config;

Line 1469 sub getDirLogs {

Line 1472 sub getDirLogs {

if ($tag) {

#can't use -r<tag> as - is allowed in tagnames, but misinterpreated by rlog..

if (! open($fh, "-|")) {

close(STDERR); # rlog may complain; ignore.

open(STDERR, '>/dev/null'); # rlog may complain; ignore.

exec("rlog",@files);

exec('rlog', @files);

}

else {

my $kidpid = open($fh, "-|");

if (! $kidpid) {

open(STDERR, '>/dev/null'); # rlog may complain; ignore.

exec("rlog","-r",@files);

exec('rlog', '-r', @files);

}

$state = "start";

CVSweb