[BACK]Return to cvsweb.cgi CVS log [TXT][DIR] Up to [cvsweb.bsd.lv] / cvsweb

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

version 3.33, 2000/10/07 07:44:12 version 3.34, 2000/10/10 18:48:59
Line 59  use vars qw (
Line 59  use vars qw (
     $checkoutMagic $doCheckout $scriptname $scriptwhere      $checkoutMagic $doCheckout $scriptname $scriptwhere
     $where $pathinfo $Browser $nofilelinks $maycompress @stickyvars      $where $pathinfo $Browser $nofilelinks $maycompress @stickyvars
     %funcline_regexp $is_mod_perl      %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      %input $query $barequery $sortby $bydate $byrev $byauthor
     $bylog $byfile $hr_default $logsort $cvstree $cvsroot      $bylog $byfile $hr_default $logsort $cvstree $cvsroot
     $mimetype $defaultTextPlain $defaultViewable $allow_compress      $mimetype $defaultTextPlain $defaultViewable $allow_compress
Line 196  $is_mod_perl = defined($ENV{MOD_PERL});
Line 196  $is_mod_perl = defined($ENV{MOD_PERL});
 # per file, so disable the link at the icon  # per file, so disable the link at the icon
 # in this case:  # in this case:
 $Browser = $ENV{HTTP_USER_AGENT};  $Browser = $ENV{HTTP_USER_AGENT};
   $is_links = ($Browser =~ m`^Links `);
 $is_lynx = ($Browser =~ m`^Lynx/`i);  $is_lynx = ($Browser =~ m`^Lynx/`i);
 $is_w3m = ($Browser =~ m`^w3m/`i);  $is_w3m = ($Browser =~ m`^w3m/`i);
 $is_msie = ($Browser =~ m`MSIE`);  $is_msie = ($Browser =~ m`MSIE`);
 $is_mozilla3 = ($Browser =~ m`^Mozilla/[3-9]`);  $is_mozilla3 = ($Browser =~ m`^Mozilla/[3-9]`);
   
 $is_textbased = ($is_lynx || $is_w3m);  $is_textbased = ($is_links || $is_lynx || $is_w3m);
   
 $nofilelinks = $is_textbased;  $nofilelinks = $is_textbased;
   
Line 1255  sub doAnnotate($$) {
Line 1256  sub doAnnotate($$) {
             }              }
             else {              else {
                 $revprint = sprintf('%-8s', $lrev);                  $revprint = sprintf('%-8s', $lrev);
                 $revprint =~ s`\S+`<a href="${scriptwhere}${barequery}#rev$1">$&</A>`;  # `                  $revprint =~ s`\S+`<a href="${scriptwhere}${barequery}#rev$&">$&</A>`;  # `
                 $oldLusr = '';                  $oldLusr = '';
             }              }
             if ($lusr eq $oldLusr) {              if ($lusr eq $oldLusr) {

Legend:
Removed from v.3.33  
changed lines
  Added in v.3.34

CVSweb