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

Diff for /cvsweb/cvsweb.cgi between version 1.3 and 1.4

version 1.3, 1997/02/03 15:14:22 version 1.4, 1997/02/03 20:47:12
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>\n";              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 381  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 458  if (-d $fullname) {
Line 469  if (-d $fullname) {
         print &html_footer;          print &html_footer;
         print "</BODY></HTML>\n";          print "</BODY></HTML>\n";
 } else {  } else {
           # Is there an indexed version of modules?
           if (open(MODULES, "$cvsroot/CVSROOT/modules")) {
                   while (<MODULES>) {
                           if (/^${where}\s+(\S+)/o && -d "${cvsroot}/$1") {
                                   &redirect($scriptname . '/' . $1);
                           }
                   }
           }
         &fatal("404 Not Found","$where: no such file or directory");          &fatal("404 Not Found","$where: no such file or directory");
 }  }
   
Line 500  sub fatal {
Line 519  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.3  
changed lines
  Added in v.1.4

CVSweb