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

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

version 3.28, 2000/09/30 18:27:16 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 79  use vars qw (
Line 79  use vars qw (
     $tabstop $state $annTable $sel $curbranch @HideModules      $tabstop $state $annTable $sel $curbranch @HideModules
     $module $use_descriptions %descriptions @mytz $dwhere $moddate      $module $use_descriptions %descriptions @mytz $dwhere $moddate
     $use_moddate $has_zlib $gzip_open      $use_moddate $has_zlib $gzip_open
       $LOG_FILESEPARATOR $LOG_REVSEPARATOR
 );  );
   
 sub printDiffSelect($);  sub printDiffSelect($);
Line 159  $checkout_magic = $show_subdir_lastmod = $show_log_in_
Line 160  $checkout_magic = $show_subdir_lastmod = $show_log_in_
 $navigationHeaderColor = $tableBorderColor = $markupLogColor =  $navigationHeaderColor = $tableBorderColor = $markupLogColor =
 $tabstop = $use_moddate = $moddate = $gzip_open = undef;  $tabstop = $use_moddate = $moddate = $gzip_open = undef;
   
   $LOG_FILESEPARATOR = q/^={77}$/;
   $LOG_REVSEPARATOR = q/^-{28}$/;
   
 ##### End of configuration variables #####  ##### End of configuration variables #####
   
 use Time::Local;  use Time::Local;
Line 192  $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 279  foreach (keys %DEFAULTVALUE)
Line 284  foreach (keys %DEFAULTVALUE)
 }  }
   
 $barequery = "";  $barequery = "";
   my @barequery;
 foreach (@stickyvars) {  foreach (@stickyvars) {
     # construct a query string with the sticky non default parameters set      # construct a query string with the sticky non default parameters set
     if (defined($input{$_}) && $input{$_} ne '' &&      if (defined($input{$_}) && $input{$_} ne '' &&
         !(defined($DEFAULTVALUE{$_}) && $input{$_} eq $DEFAULTVALUE{$_})) {          !(defined($DEFAULTVALUE{$_}) && $input{$_} eq $DEFAULTVALUE{$_})) {
         if ($barequery) {          push @barequery, join('=', urlencode($_), urlencode($input{$_}));
             $barequery = $barequery . "&";  
         }  
         my $thisval = urlencode($_) . "=" . urlencode($input{$_});  
         $barequery .= $thisval;  
     }      }
 }  }
 # is there any query ?  # is there any query ?
 if ($barequery) {  if (@barequery) {
       $barequery = join('&', @barequery);
     $query = "?$barequery";      $query = "?$barequery";
     $barequery = "&" . $barequery;      $barequery = "&$barequery";
 }  }
 else {  else {
     $query = "";      $query = "";
 }  }
   undef @barequery;
   
 # get actual parameters  # get actual parameters
 $sortby = $input{"sortby"};  $sortby = $input{"sortby"};
Line 345  if ($input{'cvsroot'} && $CVSROOT{$input{'cvsroot'}}) 
Line 349  if ($input{'cvsroot'} && $CVSROOT{$input{'cvsroot'}}) 
 $cvsroot = $CVSROOT{$cvstree};  $cvsroot = $CVSROOT{$cvstree};
   
 # create icons out of description  # create icons out of description
 foreach my $k (keys %ICONS) {  my $k;
   foreach $k (keys %ICONS) {
     no strict 'refs';      no strict 'refs';
     my ($itxt,$ipath,$iwidth,$iheight) = @{$ICONS{$k}};      my ($itxt,$ipath,$iwidth,$iheight) = @{$ICONS{$k}};
     if ($ipath) {      if ($ipath) {
Line 355  foreach my $k (keys %ICONS) {
Line 360  foreach my $k (keys %ICONS) {
         ${"${k}icon"} = $itxt;          ${"${k}icon"} = $itxt;
     }      }
 }  }
   undef $k;
   
 my $config_cvstree = "$config-$cvstree";  my $config_cvstree = "$config-$cvstree";
   
Line 365  if (-f $config_cvstree) {
Line 371  if (-f $config_cvstree) {
                sprintf('Error in loading configuration file: %s<BR><BR>%s<BR>',                 sprintf('Error in loading configuration file: %s<BR><BR>%s<BR>',
                        $config_cvstree, &htmlify($@)));                         $config_cvstree, &htmlify($@)));
 }  }
   undef $config_cvstree;
   
 $prcategories = '(?:' . join('|', @prcategories) . ')';  $prcategories = '(?:' . join('|', @prcategories) . ')';
 $prcgi .= '%s' if defined($prcgi) && $prcgi !~ /%s/;  $prcgi .= '%s' if defined($prcgi) && $prcgi !~ /%s/;
Line 930  sub htmlify($;$) {
Line 937  sub htmlify($;$) {
         if ($extra) {          if ($extra) {
             # get PR #'s as link ..              # get PR #'s as link ..
             if (defined($prcgi)) {              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 ..              # get manpage specs as link ..
             if (defined($mancgi)) {              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 976  sub spacedHtmlText($;$) {
Line 983  sub spacedHtmlText($;$) {
 sub link($$) {  sub link($$) {
         my($name, $where) = @_;          my($name, $where) = @_;
   
         return "<A HREF=\"$where\">$name</A>\n";          return "<A HREF=\"$where\">$name</A>";
 }  }
   
 sub revcmp($$) {  sub revcmp($$) {
Line 1141  sub doAnnotate($$) {
Line 1148  sub doAnnotate($$) {
     ($pathname = $where) =~ s/(Attic\/)?[^\/]*$//;      ($pathname = $where) =~ s/(Attic\/)?[^\/]*$//;
     ($filename = $where) =~ s/^.*\///;      ($filename = $where) =~ s/^.*\///;
   
     http_header();  
   
     navigateHeader($scriptwhere,$pathname,$filename,$rev, "annotate");  
     print "<h3 align=center>Annotation of $pathname$filename, Revision $rev</h3>\n";  
   
     # this seems to be necessary      # this seems to be necessary
     $| = 1; $| = 0; # Flush      $| = 1; $| = 0; # Flush
   
Line 1155  sub doAnnotate($$) {
Line 1157  sub doAnnotate($$) {
     # the public domain.      # the public domain.
     # we could abandon the use of rlog, rcsdiff and co using      # we could abandon the use of rlog, rcsdiff and co using
     # the cvsserver in a similiar way one day (..after rewrite)      # the cvsserver in a similiar way one day (..after rewrite)
     $pid = open2($reader, $writer, "cvs server") || fatal ("500 Internal Error",      $pid = open2($reader, $writer, "cvs -Rl server") || fatal ("500 Internal Error",
                                                                "Fatal Error - unable to open cvs for annotation");                                                                 "Fatal Error - unable to open cvs for annotation");
   
     # OK, first send the request to the server.  A simplified example is:      # OK, first send the request to the server.  A simplified example is:
Line 1207  sub doAnnotate($$) {
Line 1209  sub doAnnotate($$) {
     # were nicer about buffering, then we could just leave it open, I think.      # were nicer about buffering, then we could just leave it open, I think.
     close ($writer) || die "cannot close: $!";      close ($writer) || die "cannot close: $!";
   
       http_header();
   
       navigateHeader($scriptwhere,$pathname,$filename,$rev, "annotate");
       print "<h3 align=center>Annotation of $pathname$filename, Revision $rev</h3>\n";
   
     # Ready to get the responses from the server.      # Ready to get the responses from the server.
     # For example:      # For example:
     #     E Annotations for foo/xx      #     E Annotations for foo/xx
Line 1239  sub doAnnotate($$) {
Line 1246  sub doAnnotate($$) {
         }          }
         elsif ($words[0] eq "M") {          elsif ($words[0] eq "M") {
             $lineNr++;              $lineNr++;
             my $lrev = substr ($_, 2, 13);              (my $lrev = substr($_, 2, 13)) =~ y/ //d;
             my $lusr = substr ($_, 16,  9);              (my $lusr = substr($_, 16,  9)) =~ y/ //d;
             my $line = substr ($_, 36);              my $line = substr($_, 36);
               my $isCurrentRev = ($rev eq $lrev);
             # we should parse the date here ..              # we should parse the date here ..
             if ($lrev eq $oldLrev) {              if ($lrev eq $oldLrev) {
                 $revprint = "             ";                  $revprint = sprintf('%-8s', '');
             }              }
             else {              else {
                 $revprint = $lrev; $oldLusr = "";                  $revprint = sprintf('%-8s', $lrev);
                 $revprint =~ s`^(\S+)`<a href="${scriptwhere}${barequery}#rev$1">$1</A>`;       # `                  $revprint =~ s`\S+`<a href="${scriptwhere}${barequery}#rev$&">$&</A>`;  # `
                   $oldLusr = '';
             }              }
             if ($lusr eq $oldLusr) {              if ($lusr eq $oldLusr) {
                 $usrprint = "         ";                  $usrprint = '';
             }              }
             else {              else {
                 $usrprint = $lusr;                  $usrprint = $lusr;
             }              }
             $oldLrev = $lrev;              $oldLrev = $lrev;
             $oldLusr = $lusr;              $oldLusr = $lusr;
             # is there a less timeconsuming way to strip spaces ?  
             ($lrev = $lrev) =~ s/\s+//g;  
             my $isCurrentRev = ($rev eq $lrev);  
   
             print "<b>" if ($isCurrentRev);              # Set bold for text-based browsers only - graphical
             printf ("%8s%s%8s %4d:", $revprint, ($isCurrentRev ? "|" : " "), $usrprint, $lineNr);              # browsers show bold fonts a bit wider than regular fonts,
               # so it looks irregular.
               print "<b>" if ($isCurrentRev && $is_textbased);
   
               printf "%s%s %-8s %4d:",
                       $revprint,
                       $isCurrentRev ? '!' : ' ',
                       $usrprint,
                       $lineNr;
             print spacedHtmlText($line, $d{'tabstop'});              print spacedHtmlText($line, $d{'tabstop'});
             print "</b>" if ($isCurrentRev);  
               print "</b>" if ($isCurrentRev && $is_textbased);
         }          }
         elsif ($words[0] eq "ok") {          elsif ($words[0] eq "ok") {
             # We could complain about any text received after this, like the              # We could complain about any text received after this, like the
Line 1684  again:
Line 1699  again:
             $state = "head";              $state = "head";
             goto again;              goto again;
         }          }
         if ($state eq "head" && /^----------------------------$/) {          if ($state eq "head" && /$LOG_REVSEPARATOR/o) {
             $state = "log";              $state = "log";
             $rev = undef;              $rev = undef;
             $date = undef;              $date = undef;
Line 1694  again:
Line 1709  again:
             next;              next;
         }          }
         if ($state eq "log") {          if ($state eq "log") {
             if (/^----------------------------$/              if (/$LOG_REVSEPARATOR/o || /$LOG_FILESEPARATOR/o) {
                 || /^=============================/) {  
                 # End of a log entry.                  # End of a log entry.
                 my $revbranch;                  my $revbranch;
                 ($revbranch = $rev) =~ s/\.\d+$//;                  ($revbranch = $rev) =~ s/\.\d+$//;
Line 1742  again:
Line 1756  again:
                 $log = $log . $_;                  $log = $log . $_;
             }              }
         }          }
         if (/^===============/) {          if (/$LOG_FILESEPARATOR/o) {
             $state = "start";              $state = "start";
             next;              next;
         }          }
Line 1816  sub readLog($;$) {
Line 1830  sub readLog($;$) {
 # log info  # log info
 # ----------------------------  # ----------------------------
         logentry:          logentry:
         while (!/^=========/) {          while (!/$LOG_FILESEPARATOR/o) {
             $_ = <$fh>;              $_ = <$fh>;
             last logentry if (!defined($_));    # EOF              last logentry if (!defined($_));    # EOF
             print "R:", $_ if ($verbose);              print "R:", $_ if ($verbose);
Line 1824  sub readLog($;$) {
Line 1838  sub readLog($;$) {
                 $rev = $1;                  $rev = $1;
                 unshift(@allrevisions,$rev);                  unshift(@allrevisions,$rev);
             }              }
             elsif (/^========/ || /^----------------------------$/) {              elsif (/$LOG_FILESEPARATOR/o || /$LOG_REVSEPARATOR/o) {
                 next logentry;                  next logentry;
             }              }
             else {              else {
Line 1858  sub readLog($;$) {
Line 1872  sub readLog($;$) {
             while (<$fh>) {              while (<$fh>) {
                 print "L:", $_ if ($verbose);                  print "L:", $_ if ($verbose);
                 next line if (/^branches:\s/);                  next line if (/^branches:\s/);
                 last line if (/^----------------------------$/ || /^=========/);                  last line if (/$LOG_FILESEPARATOR/o || /$LOG_REVSEPARATOR/o);
                 $log{$rev} .= $_;                  $log{$rev} .= $_;
             }              }
             print "E:", $_ if ($verbose);              print "E:", $_ if ($verbose);
Legend:
Removed from v.3.28  
changed lines
  Added in v.3.34
CVSweb