httpd-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Marc Slemko <m...@hyperreal.org>
Subject cvs commit: apache-site/websrc cvsweb.cgi cgi-style.pl
Date Tue, 01 Jul 1997 21:59:41 GMT
marc        97/07/01 14:59:40

  Modified:    websrc    cvsweb.cgi cgi-style.pl
  Log:
  Local changes for Apache use.
  
  Revision  Changes    Path
  1.2       +10 -8     apache-site/websrc/cvsweb.cgi
  
  Index: cvsweb.cgi
  ===================================================================
  RCS file: /export/home/cvs/apache-site/websrc/cvsweb.cgi,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -C3 -r1.1 -r1.2
  *** cvsweb.cgi	1997/07/01 21:23:55	1.1
  --- cvsweb.cgi	1997/07/01 21:59:39	1.2
  ***************
  *** 1,4 ****
  ! #!/usr/bin/perl -s
    #
    # cvsweb - a CGI interface to the CVS tree.
    #
  --- 1,4 ----
  ! #!/usr/local/bin/perl -s
    #
    # cvsweb - a CGI interface to the CVS tree.
    #
  ***************
  *** 31,39 ****
    $hsty_base = "";
    require 'cgi-style.pl';
    
  ! $cvsroot = '/home/ncvs';
    $intro = "
  ! This is a WWW interface to the FreeBSD CVS tree.
    You can browse the file hierarchy by picking directories
    (which have slashes after them, e.g. <b>src/</b>).
    If you pick a file, you will see the revision history
  --- 31,39 ----
    $hsty_base = "";
    require 'cgi-style.pl';
    
  ! $cvsroot = '/export/home/cvs';
    $intro = "
  ! This is a WWW interface to the Apache CVS tree.
    You can browse the file hierarchy by picking directories
    (which have slashes after them, e.g. <b>src/</b>).
    If you pick a file, you will see the revision history
  ***************
  *** 46,55 ****
    <p>
    If you would like to use this CGI script on your own web server and
    CVS tree, see <A HREF=\"http://www.freebsd.org/~fenner/cvsweb/\">
  ! the CVSWeb distribution site</A>.
  ! <p>
  ! Please send any suggestions, comments, etc. to
  ! <A HREF=\"mailto:fenner@freebsd.org\">Bill Fenner &lt;fenner@freebsd.org&gt;</A>
    ";
    $shortinstr = "
    Click on a directory to enter that directory. Click on a file to display
  --- 46,57 ----
    <p>
    If you would like to use this CGI script on your own web server and
    CVS tree, see <A HREF=\"http://www.freebsd.org/~fenner/cvsweb/\">
  ! the CVSWeb distribution site</A>.  Thanks to <B>Bill Fenner 
  ! &lt;fenner\@freebsd.org&gt;</B> for creating this script and making 
  ! it available for use.  Questions about and problems with this script
  ! should be sent to <A HREF=\"mailto:apache\@apache.org\">
  ! apache\@apache.org</A>.
  ! 
    ";
    $shortinstr = "
    Click on a directory to enter that directory. Click on a file to display
  ***************
  *** 85,91 ****
    	@dir = readdir(DIR);
    	closedir(DIR);
    	if ($where eq '') {
  ! 	    print &html_header("FreeBSD CVS Repository");
    	    print $intro;
    	} else {
    	    print &html_header("/$where");
  --- 87,93 ----
    	@dir = readdir(DIR);
    	closedir(DIR);
    	if ($where eq '') {
  ! 	    print &html_header("Apache CVS Repository");
    	    print $intro;
    	} else {
    	    print &html_header("/$where");
  
  
  
  1.2       +13 -30    apache-site/websrc/cgi-style.pl
  
  Index: cgi-style.pl
  ===================================================================
  RCS file: /export/home/cvs/apache-site/websrc/cgi-style.pl,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -C3 -r1.1 -r1.2
  *** cgi-style.pl	1997/07/01 21:23:54	1.1
  --- cgi-style.pl	1997/07/01 21:59:39	1.2
  ***************
  *** 1,4 ****
  - # $Id: cgi-style.pl,v 1.1 1997/07/01 21:23:54 marc Exp $
    #
    # Perl routines to encapsulate various elements of HTML page style.
    
  --- 1,3 ----
  ***************
  *** 9,57 ****
    $timestamp = "$mo-$md-$yr";
    
    # Colors for the body
  ! $t_body = "<body text=\"#000000\" bgcolor=\"#ffffff\">";
    
  ! if (!defined($hsty_base)) { 
  !     $hsty_base = "..";
  ! }
  ! if (!defined($hsty_author)) {
  !     $hsty_author = "<a href=\"$hsty_base/mailto.html\">www\@freebsd.org</a>";
  ! }
  ! 
  ! $i_topbar = "<IMG SRC=\"$hsty_base/gifs/bar.gif\" ALT=\"\" WIDTH=\"565\" HEIGHT=\"33\"
BORDER=0 usemap=\"#bar\">
  ! <map name=\"bar\">
  ! <area shape=\"rect\" coords=\"1,1,111,31\" href=\"$hsty_base/index.html\" ALT=\"\">
  ! <area shape=\"rect\" coords=\"112,11,196,31\" href=\"$hsty_base/ports/index.html\"
ALT=\"\">
  ! <area shape=\"rect\" coords=\"196,12,257,33\" href=\"$hsty_base/support.html\" ALT=\"\">
  ! <area shape=\"rect\" coords=\"256,12,365,33\" href=\"$hsty_base/docs.html\" ALT=\"\">

  ! <area shape=\"rect\" coords=\"366,13,424,32\" href=\"$hsty_base/commercial.html\" ALT=\"\">
  ! <area shape=\"rect\" coords=\"425,16,475,32\" href=\"$hsty_base/search.html\" ALT=\"\">
  ! <area shape=\"rect\" coords=\"477,16,516,33\" href=\"$hsty_base/index-site.html\" ALT=\"\">
  ! <area shape=\"rect\" coords=\"516,15,562,33\" href=\"$hsty_base/index.html\" ALT=\"\">
  ! <area shape=\"rect\" href=\"$hsty_base/index.html\" coords=\"0,0,564,32\" ALT=\"\">
  ! </map>";
  ! 
  ! if ($hsty_home eq "") {
  !     $hsty_home = "<a href=\"$hsty_base/\"><img src=\"$hsty_base/gifs/home.gif\"
  !   alt=\"FreeBSD Home Page\" border=\"0\" align=\"right\"></a>";
  ! }
    
    sub html_header {
        local ($title) = @_;
    
        return "Content-type: text/html\n\n" . 
  ! 	"<html>\n<title>$title</title>\n</head>\n$t_body\n" .
  ! 	"$i_topbar <h1><font color=\"#660000\">$title</font></h1>\n";
    }
    
    sub short_html_header {
        local ($title) = @_;
    
        return "Content-type: text/html\n\n" .
  ! 	"<html>\n<title>$title</title>\n</head>\n$t_body\n" .
            "$i_topbar";
    }
    
    sub html_footer {
  !     return "<hr><address>$hsty_author<br>$hsty_date</address>\n";
    }
  --- 8,40 ----
    $timestamp = "$mo-$md-$yr";
    
    # Colors for the body
  ! #Background white, links blue (unvisited), navy (visited), red (active) 
  ! $t_body = "<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#0000FF\"" .
  !           "VLINK=\"#000080\" ALINK=\"#FF0000\">";
    
  ! $i_topbar = "<IMG SRC=\"/images/apache_sub.gif\" ALT=\"Apache Server\">";
    
    sub html_header {
        local ($title) = @_;
    
        return "Content-type: text/html\n\n" . 
  !         "<html>\n<title>$title</title>\n</head>\n$t_body\n" .
  !         "$i_topbar <h1><font color=\"#660000\">$title</font></h1>\n";
    }
    
    sub short_html_header {
        local ($title) = @_;
    
        return "Content-type: text/html\n\n" .
  !         "<html>\n<title>$title</title>\n</head>\n$t_body\n" .
            "$i_topbar";
    }
    
    sub html_footer {
  !     return "<hr>" .
  !            "<A HREF=\"/\"><IMG SRC=\"/images/apache_home.gif\"" .
  !            "ALT = \"Apache Home\"></A>" .
  !            "<A HREF=\"mailto:apache\@apache.org\">" .
  !            "<IMG SRC=\"/images/apache_email.gif\"" .
  !            "ALT = \"Apache Email\"></A>";
    }
  
  
  

Mime
View raw message