[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.25 and 1.1.1.26

version 1.1.1.25, 2001/05/07 17:19:27 version 1.1.1.26, 2001/06/05 10:56:15
Line 43 
Line 43 
 # SUCH DAMAGE.  # SUCH DAMAGE.
 #  #
 # $zId: cvsweb.cgi,v 1.106 2001/03/10 01:16:27 hnordstrom Exp $  # $zId: cvsweb.cgi,v 1.106 2001/03/10 01:16:27 hnordstrom Exp $
 # $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.71 2001/05/07 17:13:42 knu Exp $  # $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.74 2001/06/05 04:46:21 knu Exp $
 #  #
 ###  ###
   
Line 140  sub forbidden_module($);
Line 140  sub forbidden_module($);
 delete $ENV{PATH};  delete $ENV{PATH};
   
 $cvsweb_revision = '1.106' . '.' . (split(/ /,  $cvsweb_revision = '1.106' . '.' . (split(/ /,
  q$Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.71 2001/05/07 17:13:42 knu Exp $   q$Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.74 2001/06/05 04:46:21 knu Exp $
 ))[2];  ))[2];
   
 use File::Basename;  use File::Basename;
Line 748  if (-d $fullname) {
Line 748  if (-d $fullname) {
                     else {                      else {
                         print &link($backicon, $url);                          print &link($backicon, $url);
                     }                      }
                     print " ", &link("Previous Directory", $url);                      print " ", &link("Parent Directory", $url);
                 }                  }
                 else {                  else {
                     $url = './' . urlencode($_) . "/$query";                      $url = './' . urlencode($_) . "/$query";
Line 1106  sub findLastModifiedSubdirs(@) {
Line 1106  sub findLastModifiedSubdirs(@) {
   
 sub htmlify_sub(&$) {  sub htmlify_sub(&$) {
     (my $proc, local $_) = @_;      (my $proc, local $_) = @_;
     local @_ = split(m`(<a [^>]+>[^<]*</a>)`i);      my @a = split(m`(<a [^>]+>[^<]*</a>)`i);
     my $linked;      my $linked;
     my $result = '';      my $result = '';
   
     while (($_, $linked) = splice(@_, 0, 2)) {      while (($_, $linked) = splice(@a, 0, 2)) {
         &$proc();          &$proc();
         $result .= $_ if defined($_);          $result .= $_ if defined($_);
         $result .= $linked if defined($linked);          $result .= $linked if defined($linked);
Line 2668  sub human_readable_diff($){
Line 2668  sub human_readable_diff($){
   
       if ($difftxt =~ /^@@/) {        if ($difftxt =~ /^@@/) {
           ($oldline,$newline,$funname) = $difftxt =~ /@@ \-([0-9]+).*\+([0-9]+).*@@(.*)/;            ($oldline,$newline,$funname) = $difftxt =~ /@@ \-([0-9]+).*\+([0-9]+).*@@(.*)/;
             $funname = htmlquote($funname);
           print  "<tr bgcolor=\"$diffcolorHeading\"><td width=\"50%\">";            print  "<tr bgcolor=\"$diffcolorHeading\"><td width=\"50%\">";
           print  "<table width=\"100%\" border=1 cellpadding=5><tr><td><b>Line $oldline</b>";            print  "<table width=\"100%\" border=1 cellpadding=5><tr><td><b>Line $oldline</b>";
           print  "&nbsp;<font size=-1>$funname</font></td></tr></table>";            print  "&nbsp;<font size=-1>$funname</font></td></tr></table>";
Line 2762  sub human_readable_diff($){
Line 2763  sub human_readable_diff($){
 sub navigateHeader($$$$$) {  sub navigateHeader($$$$$) {
     my ($swhere,$path,$filename,$rev,$title) = @_;      my ($swhere,$path,$filename,$rev,$title) = @_;
     $swhere = "" if ($swhere eq $scriptwhere);      $swhere = "" if ($swhere eq $scriptwhere);
     $swhere = './', urlencode($filename) if ($swhere eq "");      $swhere = './' . urlencode($filename) if ($swhere eq "");
   
     print <<EOF;      print <<EOF;
 <!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.25  
changed lines
  Added in v.1.1.1.26
CVSweb