From apache-cvs-owner@apache.org Tue Jul 1 15:12:46 1997 Received: (from majordom@localhost) by hyperreal.org (8.8.5/8.8.5) id OAA19181; Tue, 1 Jul 1997 14:59:43 -0700 (PDT) Received: (from marc@localhost) by hyperreal.org (8.8.5/8.8.5) id OAA19176 for apache-cvs; Tue, 1 Jul 1997 14:59:41 -0700 (PDT) Date: Tue, 1 Jul 1997 14:59:41 -0700 (PDT) From: Marc Slemko Message-Id: <199707012159.OAA19176@hyperreal.org> To: apache-cvs@hyperreal.org Subject: cvs commit: apache-site/websrc cvsweb.cgi cgi-style.pl Sender: apache-cvs-owner@apache.org Precedence: bulk Reply-To: new-httpd@apache.org 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. src/). 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. src/). If you pick a file, you will see the revision history *************** *** 46,55 ****

If you would like to use this CGI script on your own web server and CVS tree, see ! the CVSWeb distribution site. !

! Please send any suggestions, comments, etc. to ! Bill Fenner <fenner@freebsd.org> "; $shortinstr = " Click on a directory to enter that directory. Click on a file to display --- 46,57 ----

If you would like to use this CGI script on your own web server and CVS tree, see ! the CVSWeb distribution site. Thanks to Bill Fenner ! <fenner\@freebsd.org> for creating this script and making ! it available for use. Questions about and problems with this script ! should be sent to ! apache\@apache.org. ! "; $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 = ""; ! if (!defined($hsty_base)) { ! $hsty_base = ".."; ! } ! if (!defined($hsty_author)) { ! $hsty_author = "www\@freebsd.org"; ! } ! ! $i_topbar = "\"\" ! ! \"\" ! \"\" ! \"\" ! \"\" ! \"\" ! \"\" ! \"\" ! \"\" ! \"\" ! "; ! ! if ($hsty_home eq "") { ! $hsty_home = "\"FreeBSD"; ! } sub html_header { local ($title) = @_; return "Content-type: text/html\n\n" . ! "\n$title\n\n$t_body\n" . ! "$i_topbar

$title

\n"; } sub short_html_header { local ($title) = @_; return "Content-type: text/html\n\n" . ! "\n$title\n\n$t_body\n" . "$i_topbar"; } sub html_footer { ! return "
$hsty_author
$hsty_date
\n"; } --- 8,40 ---- $timestamp = "$mo-$md-$yr"; # Colors for the body ! #Background white, links blue (unvisited), navy (visited), red (active) ! $t_body = ""; ! $i_topbar = "\"Apache"; sub html_header { local ($title) = @_; return "Content-type: text/html\n\n" . ! "\n$title\n\n$t_body\n" . ! "$i_topbar

$title

\n"; } sub short_html_header { local ($title) = @_; return "Content-type: text/html\n\n" . ! "\n$title\n\n$t_body\n" . "$i_topbar"; } sub html_footer { ! return "
" . ! "" . ! "" . ! ""; }