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:[EMAIL PROTECTED]">Bill Fenner <[EMAIL
PROTECTED]></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
! <[EMAIL PROTECTED]></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:[EMAIL PROTECTED]">
! [EMAIL PROTECTED]</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\">[EMAIL
PROTECTED]</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:[EMAIL PROTECTED]">" .
! "<IMG SRC=\"/images/apache_email.gif\"" .
! "ALT = \"Apache Email\"></A>";
}
