[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.15 and 1.1.1.16

version 1.1.1.15, 2000/12/18 04:35:54 version 1.1.1.16, 2000/12/28 18:37:25
Line 43 
Line 43 
 # SUCH DAMAGE.  # SUCH DAMAGE.
 #  #
 # $zId: cvsweb.cgi,v 1.104 2000/11/01 22:05:12 hnordstrom Exp $  # $zId: cvsweb.cgi,v 1.104 2000/11/01 22:05:12 hnordstrom Exp $
 # $kId: cvsweb.cgi,v 1.45 2000/12/18 04:25:30 knu Exp $  # $kId: cvsweb.cgi,v 1.47 2000/12/28 18:07:20 knu Exp $
 #  #
 ###  ###
   
Line 79  use vars qw (
Line 79  use vars qw (
     $navigationHeaderColor $tableBorderColor $markupLogColor      $navigationHeaderColor $tableBorderColor $markupLogColor
     $tabstop $state $annTable $sel $curbranch @HideModules      $tabstop $state $annTable $sel $curbranch @HideModules
     $module $use_descriptions %descriptions @mytz $dwhere $moddate      $module $use_descriptions %descriptions @mytz $dwhere $moddate
     $use_moddate $has_zlib $gzip_open      $use_moddate $has_zlib $gzip_open $allow_tar
     $LOG_FILESEPARATOR $LOG_REVSEPARATOR      $LOG_FILESEPARATOR $LOG_REVSEPARATOR
 );  );
   
Line 228  $verbose = $v;
Line 228  $verbose = $v;
 $checkoutMagic = "~checkout~";  $checkoutMagic = "~checkout~";
 $pathinfo = defined($ENV{PATH_INFO}) ? $ENV{PATH_INFO} : '';  $pathinfo = defined($ENV{PATH_INFO}) ? $ENV{PATH_INFO} : '';
 $where = $pathinfo;  $where = $pathinfo;
   $where =~ tr|/|/|s;
 $doCheckout = ($where =~ /^\/$checkoutMagic/);  $doCheckout = ($where =~ /^\/$checkoutMagic/);
 $where =~ s|^/($checkoutMagic)?||;  $where =~ s|^/($checkoutMagic)?||;
 $where =~ s|/+$||;  $where =~ s|/$||;
 $scriptname = defined($ENV{SCRIPT_NAME}) ? $ENV{SCRIPT_NAME} : '';  $scriptname = defined($ENV{SCRIPT_NAME}) ? $ENV{SCRIPT_NAME} : '';
 $scriptname =~ s|^/?|/|;  $scriptname =~ s|^/?|/|;
 $scriptname =~ s|/+$||;  $scriptname =~ s|/+$||;
Line 294  $query = $ENV{QUERY_STRING};
Line 295  $query = $ENV{QUERY_STRING};
   
 if (defined($query) && $query ne '') {  if (defined($query) && $query ne '') {
     foreach (split(/&/, $query)) {      foreach (split(/&/, $query)) {
           y/+/ /;
         s/%(..)/sprintf("%c", hex($1))/ge;      # unquote %-quoted          s/%(..)/sprintf("%c", hex($1))/ge;      # unquote %-quoted
         if (/(\S+)=(.*)/) {          if (/(\S+)=(.*)/) {
             $input{$1} = $2 if ($2 ne "");              $input{$1} = $2 if ($2 ne "");
Line 404  foreach $k (keys %ICONS) {
Line 406  foreach $k (keys %ICONS) {
     my ($itxt,$ipath,$iwidth,$iheight) = @{$ICONS{$k}};      my ($itxt,$ipath,$iwidth,$iheight) = @{$ICONS{$k}};
     if ($ipath) {      if ($ipath) {
         ${"${k}icon"} = sprintf('<IMG SRC="%s" ALT="%s" BORDER="0" WIDTH="%d" HEIGHT="%d">',          ${"${k}icon"} = sprintf('<IMG SRC="%s" ALT="%s" BORDER="0" WIDTH="%d" HEIGHT="%d">',
                                 htmlquote($ipath), htmlquote($itxt), $iwidth, $iheight)                                  hrefquote($ipath), htmlquote($itxt), $iwidth, $iheight)
     }      }
     else {      else {
         ${"${k}icon"} = $itxt;          ${"${k}icon"} = $itxt;
Line 471  $module = $1;
Line 473  $module = $1;
 if ($module && &forbidden_module($module)) {  if ($module && &forbidden_module($module)) {
     &fatal("403 Forbidden", "Access to $where forbidden.");      &fatal("403 Forbidden", "Access to $where forbidden.");
 }  }
   
   #
   # Handle tarball downloads before any headers are output.
   #
   if ($input{tarball}) {
       &fatal("403 Forbidden", "Downloading tarballs is prohibited.")
         unless $allow_tar;
       $where =~ s,/[^/]*$,,;
       $where =~ s,^/,,;
       my($basedir) = ($where =~ m,([^/]+)$,);
   
       if ($basedir eq '' || $where eq '') {
           &fatal("500 Internal Error", "You cannot download the top level directory.");
       }
   
       my $tmpdir = "/tmp/.cvsweb.$$." . int(time);
   
       mkdir($tmpdir, 0700)
         or &fatal("500 Internal Error", "Unable to make temporary directory: $!");
   
       my $fatal = '';
   
       do {
           chdir $tmpdir
             or $fatal = "500 Internal Error", "Unable to cd to temporary directory: $!"
               && last;
   
           my @params = (exists $input{only_with_tag} && length $input{only_with_tag})
             ? ("-r", $input{only_with_tag}) : ();
   
           system "cvs", "-RlQd", $cvsroot, "co", @params, $where
             and $fatal = "500 Internal Error","cvs co failure: $!: $where"
               && last;
   
           chdir "$where/.."
             or $fatal = "500 Internal Error","Cannot find expected directory in checkout"
               && last;
   
           $| = 1; # Essential to get the buffering right.
   
           print "Content-type: application/x-gzip\r\n\r\n";
   
           system "tar", "--ignore-failed-read", "--exclude", "CVS", "-zcf", "-", $basedir
             and $fatal = "500 Internal Error","tar zc failure: $!: $basedir"
               && last;
   
           chdir $tmpdir
             or $fatal = "500 Internal Error","Unable to cd to temporary directory: $!"
               && last;
       } while (0);
   
       system "rm", "-rf", $tmpdir if -d $tmpdir;
   
       &fatal($fatal) if $fatal;
   
       exit;
   }
   
 ##############################  ##############################
 # View a directory  # View a directory
 ###############################  ###############################
 elsif (-d $fullname) {  if (-d $fullname) {
         my $dh = do {local(*DH);};          my $dh = do {local(*DH);};
         opendir($dh, $fullname) || &fatal("404 Not Found","$where: $!");          opendir($dh, $fullname) || &fatal("404 Not Found","$where: $!");
         my @dir = readdir($dh);          my @dir = readdir($dh);
Line 812  elsif (-d $fullname) {
Line 872  elsif (-d $fullname) {
             print "<INPUT TYPE=SUBMIT VALUE=\"Go\">\n";              print "<INPUT TYPE=SUBMIT VALUE=\"Go\">\n";
             print "</FORM>\n";              print "</FORM>\n";
         }          }
   
           if ($allow_tar) {
               my($basefile) = ($where =~ m,(?:.*/)?([^/]+),);
   
               if ($basefile ne '') {
                   print "<HR NOSHADE>\n",
                     "<DIV align=center>",
                       &link("Download this directory in tarball",
                             # Mangle the filename so browsers show a reasonable
                             # filename to download.
                             "$basefile.tar.gz$query".
                             ($query ? "&" : "?")."tarball=1"),
                               "</DIV>";
               }
           }
   
         my $formwhere = $scriptwhere;          my $formwhere = $scriptwhere;
         $formwhere =~ s|Attic/?$|| if ($input{'hideattic'});          $formwhere =~ s|Attic/?$|| if ($input{'hideattic'});
   
Line 1120  sub spacedHtmlText($;$) {
Line 1196  sub spacedHtmlText($;$) {
 sub link($$) {  sub link($$) {
         my($name, $where) = @_;          my($name, $where) = @_;
   
         sprintf '<A HREF="%s">%s</A>', htmlquote($where), $name;          sprintf '<A HREF="%s">%s</A>', hrefquote($where), $name;
 }  }
   
 sub revcmp($$) {  sub revcmp($$) {
Line 1564  sub cvswebMarkup($$$) {
Line 1640  sub cvswebMarkup($$$) {
     my $url = download_url($fileurl, $revision, $mimetype);      my $url = download_url($fileurl, $revision, $mimetype);
     print "<HR noshade>";      print "<HR noshade>";
     if ($mimetype =~ /^image/) {      if ($mimetype =~ /^image/) {
         printf '<IMG SRC="%s"><BR>', htmlquote("$url$barequery");          printf '<IMG SRC="%s"><BR>', hrefquote("$url$barequery");
     }      }
     elsif ($mimetype =~ m%^application/pdf%) {      elsif ($mimetype =~ m%^application/pdf%) {
         printf '<EMBED SRC="%s" WIDTH="100%"><BR>', htmlquote("$url$barequery");          printf '<EMBED SRC="%s" WIDTH="100%"><BR>', hrefquote("$url$barequery");
     }      }
     else {      else {
         print "<PRE>";          print "<PRE>";
Line 2641  sub navigateHeader($$$$$) {
Line 2717  sub navigateHeader($$$$$) {
     print qq`<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">`;      print qq`<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">`;
     print "<HTML>\n<HEAD>\n";      print "<HTML>\n<HEAD>\n";
     print qq`<META name="robots" content="nofollow">\n`;      print qq`<META name="robots" content="nofollow">\n`;
     print '<!-- CVSweb $zRevision: 1.104 $  $kRevision: 1.45 $ -->';      print '<!-- CVSweb $zRevision: 1.104 $  $kRevision: 1.47 $ -->';
     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 2864  sub download_link($$$;$) {
Line 2940  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);
   
     printf '<A HREF="%s"', htmlquote("$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")) {
         print ' target="cvs_checkout"';          print ' target="cvs_checkout"';
Line 2898  sub download_link($$$;$) {
Line 2974  sub download_link($$$;$) {
               if (defined($extern_window_height));                if (defined($extern_window_height));
   
             printf q` onClick="window.open('%s','cvs_checkout','%s');"`,              printf q` onClick="window.open('%s','cvs_checkout','%s');"`,
               htmlquote($fullurl), join(',', @attr);                hrefquote($fullurl), join(',', @attr);
         }          }
     }      }
     print "><b>$textlink</b></A>";      print "><b>$textlink</b></A>";
Line 2938  sub urlencode($) {
Line 3014  sub urlencode($) {
   
     s/[\000-+{-\377]/sprintf("%%%02x", ord($&))/ge;      s/[\000-+{-\377]/sprintf("%%%02x", ord($&))/ge;
   
       $_;
        $_;  
 }  }
   
 sub htmlquote($) {  sub htmlquote($) {
Line 2966  sub htmlunquote($) {
Line 3041  sub htmlunquote($) {
     $_;      $_;
 }  }
   
   sub hrefquote($) {
       local($_) = @_;
   
       y/ /+/;
   
       htmlquote($_)
   }
   
 sub http_header(;$) {  sub http_header(;$) {
     my $content_type = shift || "text/html";      my $content_type = shift || "text/html";
     if (defined($moddate)) {      if (defined($moddate)) {
Line 3024  sub http_header(;$) {
Line 3107  sub http_header(;$) {
   
 sub html_header($) {  sub html_header($) {
     my ($title) = @_;      my ($title) = @_;
     my $version = '$zRevision: 1.104 $  $kRevision: 1.45 $'; #'      my $version = '$zRevision: 1.104 $  $kRevision: 1.47 $'; #'
     http_header(defined($charset) ? "text/html; charset=$charset" : "text/html");      http_header(defined($charset) ? "text/html; charset=$charset" : "text/html");
     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.15  
changed lines
  Added in v.1.1.1.16

CVSweb