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

Diff for /cvsweb/cvsweb.cgi between version 3.3 and 3.4

version 3.3, 2000/07/27 16:16:41 version 3.4, 2000/07/28 17:24:35
Line 217  foreach (keys %DEFAULTVALUE)
Line 217  foreach (keys %DEFAULTVALUE)
 $barequery = "";  $barequery = "";
 foreach (@stickyvars) {  foreach (@stickyvars) {
     # construct a query string with the sticky non default parameters set      # construct a query string with the sticky non default parameters set
     if (defined($input{$_}) && $input{$_} ne "" && $input{$_} ne $DEFAULTVALUE{$_}) {      if (defined($input{$_}) && $input{$_} ne '' &&
         if ($barequery) {          !(defined($DEFAULTVALUE{$_}) && $input{$_} eq $DEFAULTVALUE{$_})) {
           if ($barequery) {
             $barequery = $barequery . "&";              $barequery = $barequery . "&";
         }          }
         my $thisval = urlencode($_) . "=" . urlencode($input{$_});          my $thisval = urlencode($_) . "=" . urlencode($input{$_});
Line 918  sub fatal {
Line 919  sub fatal {
                 Apache->request->status((split(/ /, $errcode))[0]);                  Apache->request->status((split(/ /, $errcode))[0]);
         }          }
         else {          else {
                 print "Status: $errcode\n";                  print "Status: $errcode\r\n";
         }          }
         html_header("Error");          html_header("Error");
         print "Error: $errmsg\n";          print "Error: $errmsg\n";
Line 933  sub redirect {
Line 934  sub redirect {
                 Apache->request->header_out(Location => $url);                  Apache->request->header_out(Location => $url);
         }          }
         else {          else {
                 print "Status: 301 Moved\n";                  print "Status: 301 Moved\r\n";
                 print "Location: $url\n";                  print "Location: $url\r\n";
         }          }
         html_header("Moved");          html_header("Moved");
         print "This document is located <A HREF=$url>here</A>.\n";          print "This document is located <A HREF=$url>here</A>.\n";
Line 1475  sub getDirLogs {
Line 1476  sub getDirLogs {
     else {      else {
         my $kidpid = open($fh, "-|");          my $kidpid = open($fh, "-|");
         if (! $kidpid) {          if (! $kidpid) {
                 close(STDERR); # rlog may complain; ignore.                  open(STDERR, '>/dev/null'); # rlog may complain; ignore.
                 exec("rlog","-r",@files);                  exec("rlog","-r",@files);
         }          }
     }      }
Line 2631  sub http_header {
Line 2632  sub http_header {
             Apache->request->header_out(Last_modified => scalar gmtime($moddate) . " GMT");              Apache->request->header_out(Last_modified => scalar gmtime($moddate) . " GMT");
         }          }
         else {          else {
             print "Last-Modified: " . scalar gmtime($moddate) . " GMT\n";              print "Last-Modified: " . scalar gmtime($moddate) . " GMT\r\n";
         }          }
     }      }
     if ($is_mod_perl) {      if ($is_mod_perl) {
         Apache->request->content_type($content_type);          Apache->request->content_type($content_type);
     }      }
     else {      else {
             print "Content-type: $content_type\n";              print "Content-type: $content_type\r\n";
     }      }
     if ($allow_compress && $maycompress) {      if ($allow_compress && $maycompress) {
         my $fh = do {local(*FH);};          my $fh = do {local(*FH);};
Line 2649  sub http_header {
Line 2650  sub http_header {
                     Apache->request->send_http_header;                      Apache->request->send_http_header;
             }              }
             else {              else {
                     print "Content-encoding: x-gzip\n";                      print "Content-encoding: x-gzip\r\n";
                     print "Vary: Accept-Encoding\n";  #RFC 2068, 14.43                      print "Vary: Accept-Encoding\r\n";  #RFC 2068, 14.43
                     print "\n"; # Close headers                      print "\r\n"; # Close headers
             }              }
             $| = 1; $| = 0; # Flush header output              $| = 1; $| = 0; # Flush header output
             select ($fh);              select ($fh);
Line 2662  sub http_header {
Line 2663  sub http_header {
                     Apache->request->send_http_header;                      Apache->request->send_http_header;
             }              }
             else {              else {
                     print "\n"; # Close headers                      print "\r\n"; # Close headers
             }              }
             print "<font size=-1>Unable to find gzip binary in the \$PATH to compress output</font><br>";              print "<font size=-1>Unable to find gzip binary in the \$PATH to compress output</font><br>";
         }          }
Line 2672  sub http_header {
Line 2673  sub http_header {
                     Apache->request->send_http_header;                      Apache->request->send_http_header;
             }              }
             else {              else {
                     print "\n"; # Close headers                      print "\r\n"; # Close headers
             }              }
     }      }
 }  }

Legend:
Removed from v.3.3  
changed lines
  Added in v.3.4

CVSweb