[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.12 and 3.36

version 1.1.1.12, 2000/11/04 19:19:48 version 3.36, 2000/10/20 12:28:45
Line 42 
Line 42 
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF  # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.  # SUCH DAMAGE.
 #  #
 # $zId: cvsweb.cgi,v 1.104 2000/11/01 22:05:12 hnordstrom Exp $  # $zId: cvsweb.cgi,v 1.103 2000/09/20 17:02:29 jumager Exp $
 # $kId: cvsweb.cgi,v 1.39 2000/11/04 15:32:17 knu Exp $  # $Id$
 #  #
 ###  ###
   
Line 52  use strict;
Line 52  use strict;
 use vars qw (  use vars qw (
     $config $allow_version_select $verbose      $config $allow_version_select $verbose
     %CVSROOT %CVSROOTdescr %MIRRORS %DEFAULTVALUE %ICONS %MTYPES      %CVSROOT %CVSROOTdescr %MIRRORS %DEFAULTVALUE %ICONS %MTYPES
     @DIFFTYPES %DIFFTYPES @LOGSORTKEYS %LOGSORTKEYS  
     %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
Line 62  use vars qw (
Line 61  use vars qw (
     %funcline_regexp $is_mod_perl      %funcline_regexp $is_mod_perl
     $is_links $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 $defaultDiffType $logsort $cvstree $cvsroot      $bylog $byfile $hr_default $logsort $cvstree $cvsroot
     $mimetype $defaultTextPlain $defaultViewable $allow_compress      $mimetype $defaultTextPlain $defaultViewable $allow_compress
     $GZIPBIN $backicon $diricon $fileicon $fullname $newname      $GZIPBIN $backicon $diricon $fileicon $fullname $newname
     $cvstreedefault $body_tag $body_tag_for_src      $cvstreedefault $body_tag $body_tag_for_src
Line 84  use vars qw (
Line 83  use vars qw (
 );  );
   
 sub printDiffSelect($);  sub printDiffSelect($);
 sub printDiffLinks($$);  
 sub printLogSortSelect($);  
 sub findLastModifiedSubdirs(@);  sub findLastModifiedSubdirs(@);
 sub htmlify_sub(&$);  sub htmlify_sub(&$);
 sub htmlify($;$);  sub htmlify($;$);
Line 169  $tabstop = $use_moddate = $moddate = $gzip_open = unde
Line 166  $tabstop = $use_moddate = $moddate = $gzip_open = unde
 $LOG_FILESEPARATOR = q/^={77}$/;  $LOG_FILESEPARATOR = q/^={77}$/;
 $LOG_REVSEPARATOR = q/^-{28}$/;  $LOG_REVSEPARATOR = q/^-{28}$/;
   
 @DIFFTYPES = qw(h H u c s);  
 @DIFFTYPES{@DIFFTYPES} = (  
                           {  
                            'descr'   => 'colored',  
                            'opts'    => [ '-u' ],  
                            'colored' => 1,  
                           },  
                           {  
                            'descr'   => 'long colored',  
                            'opts'    => [ '--unified=15' ],  
                            'colored' => 1,  
                           },  
                           {  
                            'descr'   => 'unified',  
                            'opts'    => [ '-u' ],  
                            'colored' => 0,  
                           },  
                           {  
                            'descr'   => 'context',  
                            'opts'    => [ '-c' ],  
                            'colored' => 0,  
                           },  
                           {  
                            'descr'   => 'side by side',  
                            'opts'    => [ '--side-by-side', '--width=164' ],  
                            'colored' => 0,  
                           },  
                          );  
   
 @LOGSORTKEYS = qw(cvs date rev);  
 @LOGSORTKEYS{@LOGSORTKEYS} = (  
                               {  
                                'descr' => 'Not sorted',  
                               },  
                               {  
                                'descr' => 'Commit date',  
                               },  
                               {  
                                'descr' => 'Revision',  
                               },  
                              );  
   
   
 ##### End of configuration variables #####  ##### End of configuration variables #####
   
 use Time::Local;  use Time::Local;
Line 375  else {
Line 329  else {
     $byfile = 1;      $byfile = 1;
 }  }
   
 $defaultDiffType = $input{'f'};  $hr_default = ($input{'f'} eq 'h' || $input{'f'} eq 'H');
   
 $logsort = $input{'logsort'};  $logsort = $input{'logsort'};
   
Line 831  elsif (-d $fullname) {
Line 785  elsif (-d $fullname) {
             print "<OPTION",$byrev ? " SELECTED" : ""," VALUE=rev>Revision";              print "<OPTION",$byrev ? " SELECTED" : ""," VALUE=rev>Revision";
             print "<OPTION",$bylog ? " SELECTED" : ""," VALUE=log>Log message";              print "<OPTION",$bylog ? " SELECTED" : ""," VALUE=log>Log message";
             print "</SELECT></td>";              print "</SELECT></td>";
             print "<td>Sort log by: ";              print "<td>revisions by: \n";
             printLogSortSelect(0);              print "<SELECT NAME=logsort>\n";
             print "</td></tr>";              print "<OPTION VALUE=cvs",$logsort eq "cvs" ? " SELECTED" : "", ">Not sorted";
               print "<OPTION VALUE=date",$logsort eq "date" ? " SELECTED" : "", ">Commit date";
               print "<OPTION VALUE=rev",$logsort eq "rev" ? " SELECTED" : "", ">Revision";
               print "</SELECT></td></tr>";
             print "<tr><td>Diff format: ";              print "<tr><td>Diff format: ";
             printDiffSelect(0);              printDiffSelect(0);
             print "</td>";              print "</td>";
Line 927  gzipclose();
Line 884  gzipclose();
   
 sub printDiffSelect($) {  sub printDiffSelect($) {
     my ($use_java_script) = @_;      my ($use_java_script) = @_;
     my $f = $input{'f'};      my ($f) = $input{'f'};
       print "<SELECT NAME=\"f\"";
     print '<SELECT NAME="f"';      print " onchange=\"submit()\"" if ($use_java_script);
     print ' onchange="submit()"' if $use_java_script;      print ">\n";
     print '>';      print "<OPTION VALUE=h",$f eq "h" ? " SELECTED" : "", ">Colored Diff";
       print "<OPTION VALUE=H",$f eq "H" ? " SELECTED" : "", ">Long Colored Diff";
     local $_;      print "<OPTION VALUE=u",$f eq "u" ? " SELECTED" : "", ">Unidiff";
     for (@DIFFTYPES) {      print "<OPTION VALUE=c",$f eq "c" ? " SELECTED" : "", ">Context Diff";
         printf('<OPTION VALUE="%s"%s>%s',      print "<OPTION VALUE=s",$f eq "s" ? " SELECTED" : "", ">Side by Side";
                $_,  
                $f eq $_ ? ' SELECTED' : '',  
                "\u$DIFFTYPES{$_}{'descr'}"  
               );  
     }  
   
     print "</SELECT>";      print "</SELECT>";
 }  }
   
 sub printLogSortSelect($) {  
     my ($use_java_script) = @_;  
   
     print '<SELECT NAME="logsort"';  
     print ' onchange="submit()"' if $use_java_script;  
     print '>';  
   
     local $_;  
     for (@LOGSORTKEYS) {  
         printf('<OPTION VALUE="%s"%s>%s',  
                $_,  
                $logsort eq $_ ? ' SELECTED' : '',  
                "\u$LOGSORTKEYS{$_}{'descr'}"  
               );  
     }  
   
     print "</SELECT>";  
 }  
   
 sub findLastModifiedSubdirs(@) {  sub findLastModifiedSubdirs(@) {
     my (@dirs) = @_;      my (@dirs) = @_;
     my ($dirname, @files);      my ($dirname, @files);
Line 1001  sub findLastModifiedSubdirs(@) {
Line 933  sub findLastModifiedSubdirs(@) {
 sub htmlify_sub(&$) {  sub htmlify_sub(&$) {
     (my $proc, local $_) = @_;      (my $proc, local $_) = @_;
     local @_ = split(m`(<a [^>]+>[^<]*</a>)`i);      local @_ = split(m`(<a [^>]+>[^<]*</a>)`i);
     my $linked;      my ($linked, $result);
     my $result = '';  
   
     while (($_, $linked) = splice(@_, 0, 2)) {      while (($_, $linked) = splice(@_, 0, 2)) {
         &$proc();          &$proc();
         $result .= $_ if defined($_);          $result .= $_;
         $result .= $linked if defined($linked);          $result .= $linked;
     }      }
   
     $result;      $result;
Line 1598  sub viewable($) {
Line 1529  sub viewable($) {
 sub doDiff($$$$$$) {  sub doDiff($$$$$$) {
         my($fullname, $r1, $tr1, $r2, $tr2, $f) = @_;          my($fullname, $r1, $tr1, $r2, $tr2, $f) = @_;
         my $fh = do {local(*FH);};          my $fh = do {local(*FH);};
         my ($rev1, $rev2, $sym1, $sym2, $f1, $f2);          my ($rev1, $rev2, $sym1, $sym2, @difftype, $diffname, $f1, $f2);
   
         if ($r1 =~ /([^:]+)(:(.+))?/) {          if ($r1 =~ /([^:]+)(:(.+))?/) {
             $rev1 = $1;              $rev1 = $1;
Line 1632  sub doDiff($$$$$$) {
Line 1563  sub doDiff($$$$$$) {
             ($rev1, $sym1) = ($rev2, $sym2);              ($rev1, $sym1) = ($rev2, $sym2);
             ($rev2, $sym2) = ($tmp1, $tmp2);              ($rev2, $sym2) = ($tmp1, $tmp2);
         }          }
         my $difftype = $DIFFTYPES{$f};          my $human_readable = 0;
           if ($f eq 'c') {
         if (!$difftype) {              @difftype = qw{-c};
               $diffname = "Context diff";
           }
           elsif ($f eq 's') {
               @difftype = qw{--side-by-side --width=164};
               $diffname = "Side by Side";
           }
           elsif ($f eq 'H') {
               $human_readable = 1;
               @difftype = qw{--unified=15};
               $diffname = "Long Human readable";
           }
           elsif ($f eq 'h') {
               @difftype =qw{-u};
               $human_readable = 1;
               $diffname = "Human readable";
           }
           elsif ($f eq 'u') {
               @difftype = qw{-u};
               $diffname = "Unidiff";
           }
           else {
             fatal ("400 Bad arguments", "Diff format $f not understood");              fatal ("400 Bad arguments", "Diff format $f not understood");
         }          }
   
         my @difftype       = @{$difftype->{'opts'}};  
         my $human_readable = $difftype->{'colored'};  
   
         # apply special options          # apply special options
         if ($showfunc) {          if ($showfunc) {
             push @difftype, '-p' if $f ne 's';              push @difftype, '-p' if $f =~ /^[cHhu]$/;
   
             my($re1, $re2);              my($re1, $re2);
   
Line 1805  again:
Line 1754  again:
         if ($state eq "tags" && /^\S/) {          if ($state eq "tags" && /^\S/) {
             if (defined($tag) && (defined($symrev{$tag}) || $tag eq "HEAD")) {              if (defined($tag) && (defined($symrev{$tag}) || $tag eq "HEAD")) {
                 $revwanted = $tag eq "HEAD" ? $symrev{"MAIN"} : $symrev{$tag};                  $revwanted = $tag eq "HEAD" ? $symrev{"MAIN"} : $symrev{$tag};
                 ($branch = $revwanted) =~ s/\.0\././;                  ($branch = $revwanted) =~ s/\b0\.//;
                 ($branchpoint = $branch) =~ s/\.?\d+$//;                  ($branchpoint = $branch) =~ s/\.?\d+$//;
                 $revwanted = undef if ($revwanted ne $branch);                  $revwanted = undef if ($revwanted ne $branch);
             }              }
Line 2034  sub readLog($;$) {
Line 1983  sub readLog($;$) {
   
         foreach (reverse sort keys %symrev) {          foreach (reverse sort keys %symrev) {
             $rev = $symrev{$_};              $rev = $symrev{$_};
             if ($rev =~ /^((.*)\.)0\.(\d+)$/) {              if ($rev =~ /^((.*)\.)?\b0\.(\d+)$/) {
                 push(@branchnames, $_);                  push(@branchnames, $_);
                 #                  #
                 # A revision number of A.B.0.D really translates into                  # A revision number of A.B.0.D really translates into
Line 2047  sub readLog($;$) {
Line 1996  sub readLog($;$) {
                 # with the branch number 0.A, with the exception that                  # with the branch number 0.A, with the exception that
                 # it has no head to translate to if there is nothing on                  # it has no head to translate to if there is nothing on
                 # the branch, but I guess this can never happen?                  # the branch, but I guess this can never happen?
                   # (the code below gracefully forgets about the branch
                   # if it should happen)
                 #                  #
                 # Since some stupid people actually import/check in  
                 # files with version 0.X we assume that the above cannot  
                 # happen, and regard 0.X(.*) as a revision and not a branch.  
                 #  
                 $head = defined($2) ? $2 : "";                  $head = defined($2) ? $2 : "";
                 $branch = $3;                  $branch = $3;
                 $branchrev = $head . ($head ne "" ? "." : "") . $branch;                  $branchrev = $head . ($head ne "" ? "." : "") . $branch;
Line 2081  sub readLog($;$) {
Line 2028  sub readLog($;$) {
         my ($onlyonbranch, $onlybranchpoint);          my ($onlyonbranch, $onlybranchpoint);
         if ($onlyonbranch = $input{'only_with_tag'}) {          if ($onlyonbranch = $input{'only_with_tag'}) {
             $onlyonbranch = $symrev{$onlyonbranch};              $onlyonbranch = $symrev{$onlyonbranch};
             if ($onlyonbranch =~ s/\.0\././) {              if ($onlyonbranch =~ s/\b0\.//) {
                 ($onlybranchpoint = $onlyonbranch) =~ s/\.\d+$//;                  ($onlybranchpoint = $onlyonbranch) =~ s/\.\d+$//;
             }              }
             else {              else {
Line 2119  sub readLog($;$) {
Line 2066  sub readLog($;$) {
   
 }  }
   
 sub printDiffLinks($$) {  
     my($text, $url) = @_;  
     my @extra;  
   
     local $_;  
     for ($DIFFTYPES{$defaultDiffType}{'colored'} ? qw(u) : qw(h)) {  
         my $f = $_ eq $defaultDiffType ? '' : $_;  
   
         push @extra, &link(lc $DIFFTYPES{$_}{'descr'}, "$url&f=$f");  
     }  
   
     print &link($text, $url), ' (', join(', ', @extra), ')';  
 }  
   
 sub printLog($;$) {  sub printLog($;$) {
         my ($link, $br, $brp);          my ($link, $br, $brp);
         ($_,$link) = @_;          ($_,$link) = @_;
Line 2257  sub printLog($;$) {
Line 2190  sub printLog($;$) {
                                   $barequery);                                    $barequery);
   
                 print " to previous ";                  print " to previous ";
                 printDiffLinks($prev, $url);                  print &link($prev, $url);
                   if (!$hr_default) { # offer a human readable version if not default
                       print ' (', &link('colored', "$url&f=h"), ')';
                   }
             }              }
             #              #
             # Plus, if it's on a branch, and it's not a vendor branch,              # Plus, if it's on a branch, and it's not a vendor branch,
Line 2270  sub printLog($;$) {
Line 2206  sub printLog($;$) {
                                   $barequery);                                    $barequery);
   
                 print " to branchpoint ";                  print " to branchpoint ";
                 printDiffLinks($brp, $url);                  print &link($brp, $url);
                   if (!$hr_default) { # offer a human readable version if not default
                       print ' (', &link('colored', "$url&f=h"), ')';
                   }
             }              }
             #              #
             # Plus, if it's on a branch, and it's not a vendor branch,              # Plus, if it's on a branch, and it's not a vendor branch,
Line 2303  sub printLog($;$) {
Line 2242  sub printLog($;$) {
                                       $barequery);                                        $barequery);
   
                     print " next main ";                      print " next main ";
                     printDiffLinks($nextmain, $url);                      print &link($nextmain, $url);
                       if (!$hr_default) { # offer a human readable version if not default
                           print ' (', &link('colored', "$url&f=h"), ')';
                       }
                 }                  }
             }              }
             # Plus if user has selected only r1, then present a link              # Plus if user has selected only r1, then present a link
Line 2318  sub printLog($;$) {
Line 2260  sub printLog($;$) {
                                   $barequery);                                    $barequery);
   
                 print " to selected ";                  print " to selected ";
                 printDiffLinks($input{'r1'}, $url);                  print &link($input{'r1'}, $url);
                   if (!$hr_default) { # offer a human readable version if not default
                       print ' (', &link('colored', "$url&f=h"), ')';
                   }
             }              }
         }          }
         print "<PRE>\n";          print "<PRE>\n";
Line 2398  sub doLog($) {
Line 2343  sub doLog($) {
         print "<HR noshade>\n";          print "<HR noshade>\n";
         print "<TABLE>";          print "<TABLE>";
         print "<FORM METHOD=\"GET\" ACTION=\"$scriptwhere\">\n";          print "<FORM METHOD=\"GET\" ACTION=\"$scriptwhere\">\n";
         print "<TR><TD align=right>Preferred Diff type:</TD>";          print "<TR><TD align=right>Preferred Diff type:</TD>";
         print "<TD>";          print "<TD>";
         printDiffSelect($use_java_script);          printDiffSelect($use_java_script);
         print "</TD><TD></TD></TR>\n";          print "</TD><TD></TD></TR>\n";
         if (@branchnames) {          if (@branchnames) {
Line 2434  sub doLog($) {
Line 2379  sub doLog($) {
         print "<TR><TD align=right>";          print "<TR><TD align=right>";
         print "<A name=logsort></A>\n";          print "<A name=logsort></A>\n";
         print "Sort log by:</TD>";          print "Sort log by:</TD>";
         print "<TD>";          print "<TD><SELECT NAME=\"logsort\"";
         printLogSortSelect($use_java_script);          print " onchange=\"submit()\"" if ($use_java_script);
         print "</TD>";          print ">\n";
           print "<OPTION VALUE=cvs",$logsort eq "cvs" ? " SELECTED" : "", ">Not sorted";
           print "<OPTION VALUE=date",$logsort eq "date" ? " SELECTED" : "", ">Commit date";
           print "<OPTION VALUE=rev",$logsort eq "rev" ? " SELECTED" : "", ">Revision";
           print "</SELECT></TD>";
         print "<TD><INPUT TYPE=SUBMIT VALUE=\"  Set  \"></TD>";          print "<TD><INPUT TYPE=SUBMIT VALUE=\"  Set  \"></TD>";
         print "</FORM>\n";          print "</FORM>\n";
         print "</TR></TABLE>";          print "</TR></TABLE>";
Line 2640  sub navigateHeader($$$$$) {
Line 2589  sub navigateHeader($$$$$) {
     $swhere = urlencode($filename) if ($swhere eq "");      $swhere = urlencode($filename) if ($swhere eq "");
     print "<\!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";      print "<\!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
     print "<HTML>\n<HEAD>\n";      print "<HTML>\n<HEAD>\n";
     print '<!-- CVSweb $zRevision: 1.104 $  $kRevision: 1.39 $ -->';      print '<!-- CVSweb $zRevision: 1.103 $  $Revision$ -->';
     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 2843  sub fileSortCmp() {
Line 2792  sub fileSortCmp() {
 sub download_url($$;$) {  sub download_url($$;$) {
     my ($url,$revision,$mimetype) = @_;      my ($url,$revision,$mimetype) = @_;
   
     $revision =~ s/\.0\././;      $revision =~ s/\b0\.//;
   
     if (defined($checkoutMagic)      if (defined($checkoutMagic)
         && (!defined($mimetype) || $mimetype ne "text/x-cvsweb-markup")) {          && (!defined($mimetype) || $mimetype ne "text/x-cvsweb-markup")) {
Line 3023  sub http_header(;$) {
Line 2972  sub http_header(;$) {
   
 sub html_header($) {  sub html_header($) {
     my ($title) = @_;      my ($title) = @_;
     my $version = '$zRevision: 1.104 $  $kRevision: 1.39 $'; #'      my $version = '$zRevision: 1.103 $  $Revision$'; #'
     http_header();      http_header();
     print <<EOH;      print <<EOH;
 <!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN"  <!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN"
Legend:
Removed from v.1.1.1.12  
changed lines
  Added in v.3.36
CVSweb