[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.23 and 1.1.1.24

version 1.1.1.23, 2001/03/22 19:52:43 version 1.1.1.24, 2001/03/27 17:24:25
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.68 2001/03/22 19:46:59 knu Exp $  # $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.70 2001/03/27 17:20:46 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.68 2001/03/22 19:46:59 knu Exp $   q$Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.70 2001/03/27 17:20:46 knu Exp $
 ))[2];  ))[2];
   
 use File::Basename;  use File::Basename;
Line 751  if (-d $fullname) {
Line 751  if (-d $fullname) {
                     print " ", &link("Previous Directory", $url);                      print " ", &link("Previous Directory", $url);
                 }                  }
                 else {                  else {
                     $url = urlencode($_) . "/$query";                      $url = './' . urlencode($_) . "/$query";
                     print "<A NAME=\"$_\"></A>";                      print "<A NAME=\"$_\"></A>";
                     if ($nofilelinks) {                      if ($nofilelinks) {
                         print $diricon;                          print $diricon;
Line 814  if (-d $fullname) {
Line 814  if (-d $fullname) {
             }              }
             elsif (s/,v$//) {              elsif (s/,v$//) {
                 $fileurl = ($attic ? "Attic/" : "") . urlencode($_);                  $fileurl = ($attic ? "Attic/" : "") . urlencode($_);
                 $url = $fileurl . $query;                  $url = './' . $fileurl . $query;
                 my $rev = '';                  my $rev = '';
                 my $date = '';                  my $date = '';
                 my $log = '';                  my $log = '';
Line 912  if (-d $fullname) {
Line 912  if (-d $fullname) {
                     &link("Download this directory in tarball",                      &link("Download this directory in tarball",
                           # Mangle the filename so browsers show a reasonable                            # Mangle the filename so browsers show a reasonable
                           # filename to download.                            # filename to download.
                           "$basefile.tar.gz$query".                            "./$basefile.tar.gz$query".
                           ($query ? "&" : "?")."tarball=1"),                            ($query ? "&" : "?")."tarball=1"),
                             "</DIV>";                              "</DIV>";
             }              }
Line 1226  sub spacedHtmlText($;$) {
Line 1226  sub spacedHtmlText($;$) {
 sub link($$) {  sub link($$) {
         my($name, $url) = @_;          my($name, $url) = @_;
   
         $url =~ s/:/sprintf("%%%02x", ord($&))/eg;          $url =~ s/:/sprintf("%%%02x", ord($&))/eg if $url =~ /^[^a-z]/; # relative
   
         sprintf '<A HREF="%s">%s</A>', hrefquote($url), $name;          sprintf '<A HREF="%s">%s</A>', hrefquote($url), $name;
 }  }
Line 1705  sub cvswebMarkup($$$) {
Line 1705  sub cvswebMarkup($$$) {
         print "</PRE>";          print "</PRE>";
     }      }
     else {      else {
         print "<PLAINTEXT>\n", <$filehandle>;          print "<PRE>";
           while (<$filehandle>) {
               print htmlquote($_);
           }
           print "</PRE>";
     }      }
 }  }
   
Line 2758  sub human_readable_diff($){
Line 2762  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">
Line 2773  $body_tag_for_src
Line 2777  $body_tag_for_src
 EOF  EOF
   
     print &link($backicon, "$swhere$query#rev$rev");      print &link($backicon, "$swhere$query#rev$rev");
     print "</a> <b>Return to ", &link("$filename","$swhere$query#rev$rev")," CVS log";      print "<b>Return to ", &link($filename,"$swhere$query#rev$rev")," CVS log";
     print "</b> $fileicon</td>";      print "</b> $fileicon</td>";
   
     print "<td align=right>$diricon <b>Up to ", &clickablePath($path, 1), "</b></td>";      print "<td align=right>$diricon <b>Up to ", &clickablePath($path, 1), "</b></td>";
Line 2982  sub download_url($$;$) {
Line 2986  sub download_url($$;$) {
     $url .= "?rev=$revision";      $url .= "?rev=$revision";
     $url .= '&content-type=' . urlencode($mimetype) if (defined($mimetype));      $url .= '&content-type=' . urlencode($mimetype) if (defined($mimetype));
   
     $url =~ s/:/sprintf("%%%02x", ord($&))/eg;  
   
     $url;      $url;
 }  }
   
Line 2993  sub download_link($$$;$) {
Line 2995  sub download_link($$$;$) {
     my ($url, $revision, $textlink, $mimetype) = @_;      my ($url, $revision, $textlink, $mimetype) = @_;
     my ($fullurl) = download_url($url, $revision, $mimetype);      my ($fullurl) = download_url($url, $revision, $mimetype);
   
       $fullurl =~ s/:/sprintf("%%%02x", ord($&))/eg;
   
     printf '<A HREF="%s"', hrefquote("$fullurl$barequery");      printf '<A HREF="%s"', hrefquote("$fullurl$barequery");
   
     if ($open_extern_window && (!defined($mimetype) || $mimetype ne "text/x-cvsweb-markup")) {      if ($open_extern_window && (!defined($mimetype) || $mimetype ne "text/x-cvsweb-markup")) {
Line 3189  sub link_tags($) {
Line 3193  sub link_tags($) {
     my ($fileurl,$filename);      my ($fileurl,$filename);
   
     ($filename = $where) =~ s/^.*\///;      ($filename = $where) =~ s/^.*\///;
     $fileurl = urlencode($filename);      $fileurl = './' . urlencode($filename);
   
     foreach my $sym (split(", ", $tags)) {      foreach my $sym (split(", ", $tags)) {
         $ret .= ",\n" if ($ret ne "");          $ret .= ",\n" if ($ret ne "");
Legend:
Removed from v.1.1.1.23  
changed lines
  Added in v.1.1.1.24
CVSweb