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

Diff for /cvsweb/cvsweb.cgi between version 1.1.1.17 and 1.1.1.18

version 1.1.1.17, 2000/12/29 09:20:45 version 1.1.1.18, 2001/01/01 23:55:44
Line 43 
Line 43 
 # SUCH DAMAGE.  # SUCH DAMAGE.
 #  #
 # $zId: cvsweb.cgi,v 1.104 2000/11/01 22:05:12 hnordstrom Exp $  # $zId: cvsweb.cgi,v 1.104 2000/11/01 22:05:12 hnordstrom Exp $
 # $kId: cvsweb.cgi,v 1.49 2000/12/29 09:12:15 knu Exp $  # $kId: cvsweb.cgi,v 1.54 2001/01/01 23:15:02 knu Exp $
 #  #
 ###  ###
   
Line 56  use vars qw (
Line 56  use vars qw (
     %alltags @tabcolors %fileinfo %tags @branchnames %nameprinted      %alltags @tabcolors %fileinfo %tags @branchnames %nameprinted
     %symrev %revsym @allrevisions %date %author @revdisplayorder      %symrev %revsym @allrevisions %date %author @revdisplayorder
     @revisions %state %difflines %log %branchpoint @revorder      @revisions %state %difflines %log %branchpoint @revorder
     $prcgi @prcategories $prcategories $mancgi      $prcgi @prcategories $re_prcategories $prkeyword $re_prkeyword $mancgi
     $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
Line 75  use vars qw (
Line 75  use vars qw (
     $difffontsize $inputTextSize $mime_types $allow_annotate      $difffontsize $inputTextSize $mime_types $allow_annotate
     $allow_markup $use_java_script $open_extern_window      $allow_markup $use_java_script $open_extern_window
     $extern_window_width $extern_window_height $edit_option_form      $extern_window_width $extern_window_height $edit_option_form
     $show_subdir_lastmod $show_log_in_markup $v      $show_subdir_lastmod $show_log_in_markup $preformat_in_markup $v
     $navigationHeaderColor $tableBorderColor $markupLogColor      $navigationHeaderColor $tableBorderColor $markupLogColor
     $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 $allow_tar      $use_moddate $has_zlib $gzip_open $allow_tar @tar_options @cvs_options
     $LOG_FILESEPARATOR $LOG_REVSEPARATOR      $LOG_FILESEPARATOR $LOG_REVSEPARATOR
 );  );
   
Line 426  if (-f $config_cvstree) {
Line 426  if (-f $config_cvstree) {
 }  }
 undef $config_cvstree;  undef $config_cvstree;
   
 $prcategories = '(?:' . join('|', @prcategories) . ')';  $re_prcategories = '(?:' . join('|', @prcategories) . ')' if @prcategories;
   $re_prkeyword = quotemeta($prkeyword) if defined($prkeyword);
 $prcgi .= '%s' if defined($prcgi) && $prcgi !~ /%s/;  $prcgi .= '%s' if defined($prcgi) && $prcgi !~ /%s/;
   
 $fullname = $cvsroot . '/' . $where;  $fullname = "$cvsroot/$where";
 $mimetype = &getMimeTypeFromSuffix ($fullname);  $mimetype = &getMimeTypeFromSuffix ($fullname);
 $defaultTextPlain = ($mimetype eq "text/plain");  $defaultTextPlain = ($mimetype eq "text/plain");
 $defaultViewable = $allow_markup && viewable($mimetype);  $defaultViewable = $allow_markup && viewable($mimetype);
Line 501  if ($input{tarball}) {
Line 502  if ($input{tarball}) {
           or $fatal = "500 Internal Error", "Unable to cd to temporary directory: $!"            or $fatal = "500 Internal Error", "Unable to cd to temporary directory: $!"
             && last;              && last;
   
         my @params = (exists $input{only_with_tag} && length $input{only_with_tag})          my $tag = (exists $input{only_with_tag} && length $input{only_with_tag})
           ? ("-r", $input{only_with_tag}) : ();            ? $input{only_with_tag} : "HEAD";
   
         system "cvs", "-RlQd", $cvsroot, "co", @params, $where          system "cvs", @cvs_options, "-Qd", $cvsroot, "export", "-r", $tag, $where
           and $fatal = "500 Internal Error","cvs co failure: $!: $where"            and $fatal = "500 Internal Error","cvs co failure: $!: $where"
             && last;              && last;
   
Line 516  if ($input{tarball}) {
Line 517  if ($input{tarball}) {
   
         print "Content-type: application/x-gzip\r\n\r\n";          print "Content-type: application/x-gzip\r\n\r\n";
   
         system "tar", "--ignore-failed-read", "--exclude", "CVS", "-zcf", "-", $basedir          system "tar", "-zcf", "-", $basedir, @tar_options
           and $fatal = "500 Internal Error","tar zc failure: $!: $basedir"            and $fatal = "500 Internal Error","tar zc failure: $!: $basedir"
             && last;              && last;
   
Line 1113  sub htmlify($;$) {
Line 1114  sub htmlify($;$) {
   
     if ($extra) {      if ($extra) {
         # get PR #'s as link: "PR#nnnn" "PR: nnnn, ..." "PR nnnn, ..." "bin/nnnn"          # get PR #'s as link: "PR#nnnn" "PR: nnnn, ..." "PR nnnn, ..." "bin/nnnn"
         if (defined($prcgi)) {          if (defined($prcgi) && defined($re_prcategories) && defined($re_prkeyword)) {
             my $prev;              my $prev;
   
             do {              do {
Line 1121  sub htmlify($;$) {
Line 1122  sub htmlify($;$) {
   
                 $_ = htmlify_sub {                  $_ = htmlify_sub {
                     s{                      s{
                       (\bPR[:\#]?\s*                        (\b$re_prkeyword[:\#]?\s*
                        (?:                         (?:
                         \#?                          \#?
                         \d+[,\s]\s*                          \d+[,\s]\s*
Line 1136  sub htmlify($;$) {
Line 1137  sub htmlify($;$) {
   
             $_ = htmlify_sub {              $_ = htmlify_sub {
                 s{                  s{
                   (\b$prcategories/(\d+)\b)                    (\b$re_prcategories/(\d+)\b)
                  }{                   }{
                      &link($1, sprintf($prcgi, $2))                       &link($1, sprintf($prcgi, $2))
                  }egox;                   }egox;
Line 1147  sub htmlify($;$) {
Line 1148  sub htmlify($;$) {
         if (defined($mancgi)) {          if (defined($mancgi)) {
             $_ = htmlify_sub {              $_ = htmlify_sub {
                 s{                  s{
                   (\b([a-zA-Z][\w_.]+)                    (\b([a-zA-Z][\w.]+)
                    (?:                     (?:
                     \( ([0-9n]) \)\B                      \( ([0-9n]) \)\B
                     |                      |
Line 1155  sub htmlify($;$) {
Line 1156  sub htmlify($;$) {
                    )                     )
                   )                    )
                  }{                   }{
                      &link($1, sprintf($mancgi, $3 ne '' ? $3 : $4, $2))                       &link($1, sprintf($mancgi, defined($3) ? $3 : $4, $2))
                  }egx;                   }egx;
             } $_;              } $_;
         }          }
Line 1371  sub doAnnotate($$) {
Line 1372  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 -Rl server") || fatal ("500 Internal Error",      $pid = open2($reader, $writer, "cvs @cvs_options -l 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 1564  sub doCheckout($$) {
Line 1565  sub doCheckout($$) {
     # Safely for a child process to read from.      # Safely for a child process to read from.
     if (! open($fh, "-|")) { # child      if (! open($fh, "-|")) { # child
       open(STDERR, ">&STDOUT"); # Redirect stderr to stdout        open(STDERR, ">&STDOUT"); # Redirect stderr to stdout
       exec("cvs", "-Rld", $cvsroot, "co", "-p", $revopt, $where);        exec("cvs", @cvs_options, "-d", $cvsroot, "co", "-p", $revopt, $where);
     }      }
   
     if (eof($fh)) {      if (eof($fh)) {
Line 1646  sub cvswebMarkup($$$) {
Line 1647  sub cvswebMarkup($$$) {
     elsif ($mimetype =~ m%^application/pdf%) {      elsif ($mimetype =~ m%^application/pdf%) {
         printf '<EMBED SRC="%s" WIDTH="100%"><BR>', hrefquote("$url$barequery");          printf '<EMBED SRC="%s" WIDTH="100%"><BR>', hrefquote("$url$barequery");
     }      }
     else {      elsif ($preformat_in_markup) {
         print "<PRE>";          print "<PRE>";
   
         # prefetch several lines          # prefetch several lines
Line 1661  sub cvswebMarkup($$$) {
Line 1662  sub cvswebMarkup($$$) {
         }          }
         print "</PRE>";          print "</PRE>";
     }      }
       else {
           print "<PLAINTEXT>\n", <$filehandle>;
       }
 }  }
   
 sub viewable($) {  sub viewable($) {
Line 1822  sub getDirLogs($$@) {
Line 1826  sub getDirLogs($$@) {
         return;          return;
     }      }
   
     if ($tag) {      if (defined($tag)) {
         #can't use -r<tag> as - is allowed in tagnames, but misinterpreated by rlog..          #can't use -r<tag> as - is allowed in tagnames, but misinterpreated by rlog..
         if (! open($fh, "-|")) {          if (! open($fh, "-|")) {
                 open(STDERR, '>/dev/null'); # rlog may complain; ignore.                  open(STDERR, '>/dev/null'); # rlog may complain; ignore.
Line 1840  sub getDirLogs($$@) {
Line 1844  sub getDirLogs($$@) {
     while (<$fh>) {      while (<$fh>) {
         if ($state eq "start") {          if ($state eq "start") {
             #Next file. Initialize file variables              #Next file. Initialize file variables
             $rev = undef;              $rev = '';
             $revwanted = undef;              $revwanted = '';
             $branch = undef;              $branch = '';
             $branchpoint = undef;              $branchpoint = '';
             $filename = undef;              $filename = '';
             $log = undef;              $log = '';
             $revision = undef;              $revision = '';
             $branch = undef;  
             %symrev = ();              %symrev = ();
             @filetags = ();              @filetags = ();
             #jump to head state              #jump to head state
Line 1866  again:
Line 1869  again:
                 $branch = $1                  $branch = $1
             } elsif (/^symbolic names:/) {              } elsif (/^symbolic names:/) {
                 $state = "tags";                  $state = "tags";
                 ($branch = $head) =~ s/\.\d+$// if (!defined($branch));                  ($branch = $head) =~ s/\.\d+$// if $branch eq '';
                 $branch =~ s/(\d+)$/0.$1/;                  $branch =~ s/(\d+)$/0.$1/;
                 $symrev{MAIN} = $branch;                  $symrev{MAIN} = $branch;
                 $symrev{HEAD} = $branch;                  $symrev{HEAD} = $branch;
Line 1875  again:
Line 1878  again:
                 push (@filetags, "MAIN", "HEAD");                  push (@filetags, "MAIN", "HEAD");
             } elsif (/$LOG_REVSEPARATOR/o) {              } elsif (/$LOG_REVSEPARATOR/o) {
                 $state = "log";                  $state = "log";
                 $rev = undef;                  $rev = '';
                 $date = undef;                  $date = '';
                 $log = "";                  $log = '';
                 # Try to reconstruct the relative filename if RCS spits out a full path                  # Try to reconstruct the relative filename if RCS spits out a full path
                 $filename =~ s%^\Q$DirName\E/%%;                  $filename =~ s%^\Q$DirName\E/%%;
             }              }
Line 1895  again:
Line 1898  again:
                         $revwanted = $symrev{$tag eq "HEAD" ? "MAIN" : $tag};                          $revwanted = $symrev{$tag eq "HEAD" ? "MAIN" : $tag};
                         ($branch = $revwanted) =~ s/\b0\.//;                          ($branch = $revwanted) =~ s/\b0\.//;
                         ($branchpoint = $branch) =~ s/\.?\d+$//;                          ($branchpoint = $branch) =~ s/\.?\d+$//;
                         $revwanted = undef if ($revwanted ne $branch);                          $revwanted = '' if ($revwanted ne $branch);
                     } elsif ($tag ne "HEAD") {                      } elsif ($tag ne "HEAD") {
                         print "Tag not found, skip this file" if ($verbose);                          print "Tag not found, skip this file" if ($verbose);
                         $state = "skip";                          $state = "skip";
Line 1912  again:
Line 1915  again:
         if ($state eq "log") {          if ($state eq "log") {
             if (/$LOG_REVSEPARATOR/o || /$LOG_FILESEPARATOR/o) {              if (/$LOG_REVSEPARATOR/o || /$LOG_FILESEPARATOR/o) {
                 # End of a log entry.                  # End of a log entry.
                 my $revbranch;                  my $revbranch = $rev;
                 ($revbranch = $rev) =~ s/\.\d+$//;                  $revbranch =~ s/\.\d+$//;
                 print "$filename $rev Wanted: $revwanted ",                  print "$filename $rev Wanted: $revwanted ",
                   "Revbranch: $revbranch Branch: $branch ",                    "Revbranch: $revbranch Branch: $branch ",
                     "Branchpoint: $branchpoint\n" if ($verbose);                      "Branchpoint: $branchpoint\n" if ($verbose);
                 if (!defined($revwanted) && defined($branch)                  if ($revwanted eq '' && $branch ne ''
                     && $branch eq $revbranch || !defined($tag)) {                      && $branch eq $revbranch || !defined($tag)) {
                     print "File revision $rev found for branch $branch\n"                      print "File revision $rev found for branch $branch\n"
                         if ($verbose);                          if ($verbose);
                     $revwanted = $rev;                      $revwanted = $rev;
                 }                  }
                 if (defined($revwanted) ? $rev eq $revwanted :                  if ($revwanted ne '' ? $rev eq $revwanted :
                     defined($branchpoint) ? $rev eq $branchpoint :                      $branchpoint ne '' ? $rev eq $branchpoint :
                     0 && ($rev eq $head)) { # Don't think head is needed here..                      0 && ($rev eq $head)) { # Don't think head is needed here..
                     print "File info $rev found for $filename\n" if ($verbose);                      print "File info $rev found for $filename\n" if ($verbose);
                     my @finfo = ($rev,$date,$log,$author,$filename);                      my @finfo = ($rev,$date,$log,$author,$filename);
Line 1933  again:
Line 1936  again:
                     $fileinfo{$name} = [ @finfo ];                      $fileinfo{$name} = [ @finfo ];
                     $state = "done" if ($rev eq $revwanted);                      $state = "done" if ($rev eq $revwanted);
                 }                  }
                 $rev = undef;                  $rev = '';
                 $date = undef;                  $date = '';
                 $log = "";                  $log = '';
             }              }
             elsif (!defined($date) && m|^date:\s+(\d+)/(\d+)/(\d+)\s+(\d+):(\d+):(\d+);|) {              elsif ($date eq '' && m|^date:\s+(\d+)/(\d+)/(\d+)\s+(\d+):(\d+):(\d+);|) {
                 my $yr = $1;                  my $yr = $1;
                 # damn 2-digit year routines :-)                  # damn 2-digit year routines :-)
                 if ($yr > 100) {                  if ($yr > 100) {
Line 1949  again:
Line 1952  again:
                 $log = '';                  $log = '';
                 next;                  next;
             }              }
             elsif (!defined($rev) && m/^revision (.*)$/) {              elsif ($rev eq '' && /^revision (.*)$/) {
                 $rev = $1;                  $rev = $1;
                 next;                  next;
             }              }
Line 2357  sub printLog($;$) {
Line 2360  sub printLog($;$) {
             if (/^\d+\.\d+\.\d+/ && !/^1\.1\.1\.\d+$/) {              if (/^\d+\.\d+\.\d+/ && !/^1\.1\.1\.\d+$/) {
                 my ($i,$nextmain);                  my ($i,$nextmain);
                 for ($i = 0; $i < $#revorder && $revorder[$i] ne $_; $i++){}                  for ($i = 0; $i < $#revorder && $revorder[$i] ne $_; $i++){}
                 my (@tmp2) = split(/\./, $_);                  my @tmp2 = split(/\./, $_);
                 for ($nextmain = ""; $i > 0; $i--) {                  for ($nextmain = ""; $i > 0; $i--) {
                     my ($next) = $revorder[$i-1];                      my $next = $revorder[$i-1];
                     my (@tmp1) = split(/\./, $next);                      my @tmp1 = split(/\./, $next);
                     if ($#tmp1 < $#tmp2) {                      if (@tmp1 < @tmp2) {
                         $nextmain = $next;                          $nextmain = $next;
                         last;                          last;
                     }                      }
                     # Only the highest version on a branch should have                      # Only the highest version on a branch should have
                     # a diff for the "next main".                      # a diff for the "next main".
                     last if (join(".",@tmp1[0..$#tmp1-1])                      last if (@tmp1 - 1 <= @tmp2 &&
                              eq join(".",@tmp2[0..$#tmp1-1]));                               join(".",@tmp1[0..$#tmp1-1]) eq join(".",@tmp2[0..$#tmp1-1]));
                 }                  }
                 if (!defined($diffrev{$nextmain})) {                  if (!defined($diffrev{$nextmain})) {
                     $diffrev{$nextmain} = 1;                      $diffrev{$nextmain} = 1;
Line 2718  sub navigateHeader($$$$$) {
Line 2721  sub navigateHeader($$$$$) {
     print qq`<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">`;      print qq`<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">`;
     print "<HTML>\n<HEAD>\n";      print "<HTML>\n<HEAD>\n";
     print qq`<META name="robots" content="nofollow">\n`;      print qq`<META name="robots" content="nofollow">\n`;
     print '<!-- CVSweb $zRevision: 1.104 $  $kRevision: 1.49 $ -->';      print '<!-- CVSweb $zRevision: 1.104 $  $kRevision: 1.54 $ -->';
     print "\n<TITLE>$path$filename - $title - $rev</TITLE></HEAD>\n";      print "\n<TITLE>$path$filename - $title - $rev</TITLE></HEAD>\n";
     print  "$body_tag_for_src\n";      print  "$body_tag_for_src\n";
     print "<table width=\"100%\" border=0 cellspacing=0 cellpadding=1 bgcolor=\"$navigationHeaderColor\">";      print "<table width=\"100%\" border=0 cellspacing=0 cellpadding=1 bgcolor=\"$navigationHeaderColor\">";
Line 3052  sub hrefquote($) {
Line 3055  sub hrefquote($) {
   
 sub http_header(;$) {  sub http_header(;$) {
     my $content_type = shift || "text/html";      my $content_type = shift || "text/html";
   
       $content_type .= "; charset=$charset"
         if $content_type =~ m,^text/, && defined($charset) && $charset;
   
     if (defined($moddate)) {      if (defined($moddate)) {
         if ($is_mod_perl) {          if ($is_mod_perl) {
             Apache->request->header_out("Last-Modified" => scalar gmtime($moddate) . " GMT");              Apache->request->header_out("Last-Modified" => scalar gmtime($moddate) . " GMT");
Line 3108  sub http_header(;$) {
Line 3115  sub http_header(;$) {
   
 sub html_header($) {  sub html_header($) {
     my ($title) = @_;      my ($title) = @_;
     my $version = '$zRevision: 1.104 $  $kRevision: 1.49 $'; #'      my $version = '$zRevision: 1.104 $  $kRevision: 1.54 $'; #'
     http_header(defined($charset) ? "text/html; charset=$charset" : "text/html");      http_header("text/html");
     print <<EOH;      print <<EOH;
 <!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN"  <!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN"
  "http://www.w3.org/TR/REC-html40/loose.dtd">   "http://www.w3.org/TR/REC-html40/loose.dtd">

Legend:
Removed from v.1.1.1.17  
changed lines
  Added in v.1.1.1.18

CVSweb