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

Diff for /cvsweb/cvsweb.cgi between version 1.2 and 1.6

version 1.2, 1996/09/29 02:19:30 version 1.6, 1997/04/30 07:35:11
Line 366  if (-d $fullname) {
Line 366  if (-d $fullname) {
   
         for ($i = 0; $i <= $#revorder; $i++) {          for ($i = 0; $i <= $#revorder; $i++) {
             $_ = $revorder[$i];              $_ = $revorder[$i];
               print "<a NAME=\"rev$_\"></a>";
               foreach $sym (split(", ", $revsym{$_})) {
                   print "<a NAME=\"$sym\"></a>";
               }
               ($br = $_) =~ s/\.\d+$//;
               if ($revsym{$br} && !$nameprinted{$br}) {
                   foreach $sym (split(", ", $revsym{$br})) {
                       print "<a NAME=\"$sym\"></a>";
                   }
                   $nameprinted{$br}++;
               }
               print "\n";
 #           print "RCS revision <b>$_</b>\n";  #           print "RCS revision <b>$_</b>\n";
             print "<A HREF=\"$scriptwhere?rev=$_\"><b>$_</b></A>";              print "<A HREF=\"$scriptwhere?rev=$_\"><b>$_</b></A>";
             if (/^1\.1\.1\.\d+$/) {              if (/^1\.1\.1\.\d+$/) {
Line 380  if (-d $fullname) {
Line 392  if (-d $fullname) {
 #               print "CVS Tags: <b>$revsym{$_}</b><BR>\n";  #               print "CVS Tags: <b>$revsym{$_}</b><BR>\n";
                 print "<BR>CVS Tags: <b>$revsym{$_}</b>";                  print "<BR>CVS Tags: <b>$revsym{$_}</b>";
             }              }
             if (($br = $_) =~ s/\.\d+$// && $revsym{$br})  {              if ($revsym{$br})  {
 #               print "Branch: <b>$revsym{$br}</b><BR>\n";  #               print "Branch: <b>$revsym{$br}</b><BR>\n";
                 if ($revsym{$_}) {                  if ($revsym{$_}) {
                     print "; ";                      print "; ";
Line 457  if (-d $fullname) {
Line 469  if (-d $fullname) {
         print &html_footer;          print &html_footer;
         print "</BODY></HTML>\n";          print "</BODY></HTML>\n";
 } else {  } else {
         &fatal("404 Not Found","$where: no such file or directory");          # Assume it's a module name with a potential path following it.
           $where =~ s|/.*||;
           $xtra = $&;
           # Is there an indexed version of modules?
           if (open(MODULES, "$cvsroot/CVSROOT/modules")) {
                   while (<MODULES>) {
                           if (/^${where}\s+(\S+)/o && -d "${cvsroot}/$1" && ($1 ne $where)) {
                                   &redirect($scriptname . '/' . $1 . $xtra);
                           }
                   }
           }
           &fatal("404 Not Found","$where$xtra: no such file or directory");
 }  }
   
 sub htmlify {  sub htmlify {
Line 482  sub revcmp {
Line 505  sub revcmp {
         local(@r2) = split(/\./, $rev2);          local(@r2) = split(/\./, $rev2);
         local($a,$b);          local($a,$b);
   
         while (($a = pop(@r1)) && ($b = pop(@r2))) {          while (($a = shift(@r1)) && ($b = shift(@r2))) {
             if ($a != $b) {              if ($a != $b) {
                 return $a <=> $b;                  return $a <=> $b;
             }              }
Line 499  sub fatal {
Line 522  sub fatal {
         print "\n";          print "\n";
         print "<HTML><HEAD><TITLE>Error</TITLE></HEAD>\n";          print "<HTML><HEAD><TITLE>Error</TITLE></HEAD>\n";
         print "<BODY>Error: $errmsg</BODY></HTML>\n";          print "<BODY>Error: $errmsg</BODY></HTML>\n";
           exit(1);
   }
   
   sub redirect {
           local($url) = @_;
           print "Status: 301 Moved\n";
           print "Location: $url\n";
           print "\n";
           print "<HTML><HEAD><TITLE>Moved</TITLE></HEAD>\n";
           print "<BODY>This document is located <A HREF=$url>here</A>.</BODY></HTML>\n";
         exit(1);          exit(1);
 }  }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.6
CVSweb