[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.33 and 1.1.1.34

version 1.1.1.33, 2002/07/23 16:15:22 version 1.1.1.34, 2002/09/26 22:09:02
Line 21 
Line 21 
 #           (c) 1998-1999 Henner Zeller  #           (c) 1998-1999 Henner Zeller
 #           (c) 1999      Henrik Nordstrom  #           (c) 1999      Henrik Nordstrom
 #           (c) 2000-2002 Akinori MUSHA  #           (c) 2000-2002 Akinori MUSHA
 #           (c) 2002      Ville Skyttä  #           (c) 2002      Ville Skyttä‹# All rights reserved.
 # All rights reserved.  
 #  #
 # Redistribution and use in source and binary forms, with or without  # Redistribution and use in source and binary forms, with or without
 # modification, are permitted provided that the following conditions  # modification, are permitted provided that the following conditions
Line 45 
Line 44 
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF  # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.  # SUCH DAMAGE.
 #  #
 # $FreeBSD: projects/cvsweb/cvsweb.cgi,v 1.119 2002/07/23 13:58:32 scop Exp $  #  FreeBSD: projects/cvsweb/cvsweb.cgi,v 1.119 2002/07/23 13:58:32 scop Exp
 # $zId: cvsweb.cgi,v 1.112 2001/07/24 13:03:16 hzeller Exp $  # $zId: cvsweb.cgi,v 1.112 2001/07/24 13:03:16 hzeller Exp $
 # $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.84 2001/10/07 20:50:10 knu Exp $  # $Idaemons: /home/cvs/cvsweb/cvsweb.cgi,v 1.84 2001/10/07 20:50:10 knu Exp $
   # $FreeBSD: www/en/cgi/cvsweb.cgi,v 1.85 2002/07/23 16:27:04 scop Exp $
 #  #
 ###  ###
   
Line 235  $LOG_REVSEPARATOR  = q/^-{28}$/;
Line 235  $LOG_REVSEPARATOR  = q/^-{28}$/;
         },          },
 );  );
   
   $cgi_style::hsty_base = 'http://www.FreeBSD.org';
   $_ = q$FreeBSD: www/en/cgi/cvsweb.cgi,v 1.85 2002/07/23 16:27:04 scop Exp $;
   @_ = split;
   $cgi_style::hsty_date = "@_[3,4]";
   
   # warningproof
   0 if $cgi_style::hsty_base ne $cgi_style::hsty_date;
   
   package cgi_style;
   require "$main::mydir/cgi-style.pl";
   package main;
   
 $HTML_DOCTYPE =  $HTML_DOCTYPE =
   '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">';    '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">';
   
Line 3619  sub http_header(;$) {
Line 3631  sub http_header(;$) {
 sub html_header($) {  sub html_header($) {
         my ($title) = @_;          my ($title) = @_;
         http_header("text/html");          http_header("text/html");
   
           (my $header = &cgi_style::html_header) =~ s,\A.*</head>\n,,s;
   
         print <<EOH;          print <<EOH;
 $HTML_DOCTYPE  $HTML_DOCTYPE
 <html>  <html>
 <head>  <head>
 <title>$title</title>  <title>$title</title>
 $HTML_META</head>  $HTML_META</head>
 $body_tag  $header
 $logo <h1 align="center">$title</h1>  
 EOH  EOH
 }  }
   
 sub html_footer() {  sub html_footer() {
         print "<hr noshade>\n<address>$address</address>\n</body>\n</html>\n";          return &cgi_style::html_footer;
 }  }
   
 sub link_tags($) {  sub link_tags($) {
Legend:
Removed from v.1.1.1.33  
changed lines
  Added in v.1.1.1.34
CVSweb