cvsweb/cvsweb.cgi - diff

Return to cvsweb.cgi CVS log

Up to [cvsweb.bsd.lv] / cvsweb

Diff for /cvsweb/cvsweb.cgi between version 3.32 and 3.34

version 3.32, 2000/10/07 07:35:08

version 3.34, 2000/10/10 18:48:59

Line 59 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

Line 196 $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;

Line 936 sub htmlify($;$) {

Line 937 sub htmlify($;$) {

if ($extra) {

# get PR #'s as link ..

if (defined($prcgi)) {

1 while $string =~ s`\b(pr[:#]?\s*(?:#?\d+[,\s]\s*)*#?)(\d+)\b`$1 . &link($2, sprintf($prcgi, $2))`ie; # `

1 while $string =~ s`\b(pr[:#]?\s*(?:#?\d+[,\s]\s*)*#?)(\d+)\b`$1 . &link($2, sprintf($prcgi, $2))`ie; # `;

$string =~ s`\b${prcategories}/(\d+)\b`&link($&, sprintf($prcgi, $1))`igeo; # `

$string =~ s`\b${prcategories}/(\d+)\b`&link($&, sprintf($prcgi, $1))`igeo; # `;

}

# get manpage specs as link ..

if (defined($mancgi)) {

$string =~ s`\b([a-zA-Z]\w+)$([0-9n])$\B`&link($&, sprintf($mancgi, $2, $1))`ge; # `

$string =~ s`\b([a-zA-Z]\w+)(?:$([0-9n])$\B|\.([0-9n])\b)`&link($&, sprintf($mancgi, $2 ne '' ? $2 : $3, $1))`ge; # `x;

}

Line 982 sub spacedHtmlText($;$) {

Line 983 sub spacedHtmlText($;$) {

sub link($$) {

my($name, $where) = @_;

return "<A HREF=\"$where\">$name</A>\n";

return "<A HREF=\"$where\">$name</A>";

}

sub revcmp($$) {

Line 1255 sub doAnnotate($$) {

Line 1256 sub doAnnotate($$) {

}

else {

$revprint = sprintf('%-8s', $lrev);

$revprint =~ s`\S+`<a href="${scriptwhere}${barequery}#rev$1">$&</A>`; # `

$revprint =~ s`\S+`<a href="${scriptwhere}${barequery}#rev$&">$&</A>`; # `

$oldLusr = '';

}

if ($lusr eq $oldLusr) {

CVSweb