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

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

version 3.31, 2000/10/02 19:07:08 version 3.32, 2000/10/07 07:35:08
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 284  foreach (@stickyvars) {
Line 288  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{$_})) {
         push @barequery, join('=', urlencode($_), urlencode($input{$_});          push @barequery, join('=', urlencode($_), urlencode($input{$_}));
     }      }
 }  }
 # is there any query ?  # is there any query ?
Line 344  if ($input{'cvsroot'} && $CVSROOT{$input{'cvsroot'}}) 
Line 348  if ($input{'cvsroot'} && $CVSROOT{$input{'cvsroot'}}) 
 $cvsroot = $CVSROOT{$cvstree};  $cvsroot = $CVSROOT{$cvstree};
   
 # create icons out of description  # create icons out of description
 my $k  my $k;
 foreach $k (keys %ICONS) {  foreach $k (keys %ICONS) {
     no strict 'refs';      no strict 'refs';
     my ($itxt,$ipath,$iwidth,$iheight) = @{$ICONS{$k}};      my ($itxt,$ipath,$iwidth,$iheight) = @{$ICONS{$k}};
Line 1268  sub doAnnotate($$) {
Line 1272  sub doAnnotate($$) {
             # so it looks irregular.              # so it looks irregular.
             print "<b>" if ($isCurrentRev && $is_textbased);              print "<b>" if ($isCurrentRev && $is_textbased);
   
             printf ("%s%s %-8s %4d:",              printf "%s%s %-8s %4d:",
                     $revprint,                      $revprint,
                     $isCurrentRev ? '!' : ' ',                      $isCurrentRev ? '!' : ' ',
                     $usrprint,                      $usrprint,
                     $lineNr);                      $lineNr;
             print spacedHtmlText($line, $d{'tabstop'});              print spacedHtmlText($line, $d{'tabstop'});
   
             print "</b>" if ($isCurrentRev && $is_textbased);              print "</b>" if ($isCurrentRev && $is_textbased);
Line 1694  again:
Line 1698  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 1704  again:
Line 1708  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 1752  again:
Line 1755  again:
                 $log = $log . $_;                  $log = $log . $_;
             }              }
         }          }
         if (/^===============/) {          if (/$LOG_FILESEPARATOR/o) {
             $state = "start";              $state = "start";
             next;              next;
         }          }
Line 1826  sub readLog($;$) {
Line 1829  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 1834  sub readLog($;$) {
Line 1837  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 1868  sub readLog($;$) {
Line 1871  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.31  
changed lines
  Added in v.3.32
CVSweb