From 7013ca7da90ba12257bce742782153edc4b07f52 Mon Sep 17 00:00:00 2001 From: Tim Bishop Date: Wed, 13 Jun 2001 17:44:03 +0000 Subject: [PATCH] Added the title and bottom in the correct fashion. This is inline with the i-scream layout and style. --- cgi-bin/cvslog.cgi | 25 ++++++++++++++++++------- 1 file changed, 18 insertions(+), 7 deletions(-) diff --git a/cgi-bin/cvslog.cgi b/cgi-bin/cvslog.cgi index abfc719..d3ca453 100755 --- a/cgi-bin/cvslog.cgi +++ b/cgi-bin/cvslog.cgi @@ -33,7 +33,10 @@ my($cvs2clpath) = "/home/sites/www.i-scream.org.uk/bin/cvs2cl.pl"; my($cvs2clargs) = "--stdout -r -b -t -w -U $cvsroot/CVSROOT/users -l \"-d'\>$firstdate'\" -g \"-d$cvsroot\" -g \"-Q\""; my($updatecmd) = "/home/sites/www.i-scream.org.uk/bin/fullcvsupdate.sh $modulelist"; my($logcmd) = "cd /home/sites/www.i-scream.org.uk/cvsscripttemp && $cvs2clpath $cvs2clargs"; -my($leftinc) = "/home/sites/www.i-scream.org.uk/web/left.inc"; + +my ($left) = "../left.inc" ; +my ($title) = "../title.inc"; +my ($bottom) = "../bottom.inc"; print "Content-type: text/html\n\n"; @@ -51,19 +54,19 @@ print <<"END";
- END -print `$leftinc`; -print <<"END"; +&print_html($left); + +print <<"END"; +END +&print_html($title); - - +print <<"END";

$heading

- END print `$updatecmd`; @@ -103,6 +106,8 @@ foreach my $module (@modules) { print "

\n\n"; } +&print_html($bottom); + print <<"END"; @@ -130,3 +135,9 @@ sub HTML_encode ($){ $encoded =~ s/>/>/g; return $encoded; } + +# Print a file without escaping HTML: - +sub print_html ($) { + my ($filename) = @_; + print `cat $filename 2>&1`; +} -- 2.44.0