[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.16 and 1.1.1.17

version 1.1.1.16, 2000/12/28 18:37:25 version 1.1.1.17, 2000/12/29 09:20:45
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.47 2000/12/28 18:07:20 knu Exp $  # $kId: cvsweb.cgi,v 1.49 2000/12/29 09:12:15 knu Exp $
 #  #
 ###  ###
   
Line 122  sub toggleQuery($$);
Line 122  sub toggleQuery($$);
 sub urlencode($);  sub urlencode($);
 sub htmlquote($);  sub htmlquote($);
 sub htmlunquote($);  sub htmlunquote($);
   sub hrefquote($);
 sub http_header(;$);  sub http_header(;$);
 sub html_header($);  sub html_header($);
 sub html_footer();  sub html_footer();
Line 278  $maycompress = (((defined($ENV{HTTP_ACCEPT_ENCODING})
Line 279  $maycompress = (((defined($ENV{HTTP_ACCEPT_ENCODING})
 @stickyvars = qw(cvsroot hideattic sortby logsort f only_with_tag);  @stickyvars = qw(cvsroot hideattic sortby logsort f only_with_tag);
   
 if (-f $config) {  if (-f $config) {
    do $config     require $config
      || &fatal("500 Internal Error",       || &fatal("500 Internal Error",
                sprintf('Error in loading configuration file: %s<BR><BR>%s<BR>',                 sprintf('Error in loading configuration file: %s<BR><BR>%s<BR>',
                        $config, &htmlify($@)));                         $config, &htmlify($@)));
Line 418  my $config_cvstree = "$config-$cvstree";
Line 419  my $config_cvstree = "$config-$cvstree";
   
 # Do some special configuration for cvstrees  # Do some special configuration for cvstrees
 if (-f $config_cvstree) {  if (-f $config_cvstree) {
    do $config_cvstree     require $config_cvstree
      || &fatal("500 Internal Error",       || &fatal("500 Internal Error",
                sprintf('Error in loading configuration file: %s<BR><BR>%s<BR>',                 sprintf('Error in loading configuration file: %s<BR><BR>%s<BR>',
                        $config_cvstree, &htmlify($@)));                         $config_cvstree, &htmlify($@)));
Line 2717  sub navigateHeader($$$$$) {
Line 2718  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.47 $ -->';      print '<!-- CVSweb $zRevision: 1.104 $  $kRevision: 1.49 $ -->';
     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 3107  sub http_header(;$) {
Line 3108  sub http_header(;$) {
   
 sub html_header($) {  sub html_header($) {
     my ($title) = @_;      my ($title) = @_;
     my $version = '$zRevision: 1.104 $  $kRevision: 1.47 $'; #'      my $version = '$zRevision: 1.104 $  $kRevision: 1.49 $'; #'
     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.16  
changed lines
  Added in v.1.1.1.17
CVSweb