From dab5dbc565daac5f26e957130e49e29fc4d3cb6a Mon Sep 17 00:00:00 2001 From: Tim Bishop Date: Wed, 24 Mar 2004 23:29:21 +0000 Subject: [PATCH] Urg - now the image is generated using SSI the things that include the include manually won't work. We can kludge these CGI's... but what about the viewcvs stuff? This needs a rethink. --- cgi-bin/cvslog.cgi | 5 +++++ cgi-bin/docs.cgi | 5 +++++ 2 files changed, 10 insertions(+) diff --git a/cgi-bin/cvslog.cgi b/cgi-bin/cvslog.cgi index 004161e..01ee2bf 100755 --- a/cgi-bin/cvslog.cgi +++ b/cgi-bin/cvslog.cgi @@ -291,8 +291,13 @@ exit 0; # Print the contents of a file containing html sub print_html { my ($filename) = @_; + my($virtual) = ''; + my(@virtualresponse) = `/web/i-scream/nwww.cgi-bin/logo.cgi`; open(FILE, $filename); while() { + if(/$virtual/) { + s/$virtual/$virtualresponse[@virtualresponse-1]/; + } print; } close FILE; diff --git a/cgi-bin/docs.cgi b/cgi-bin/docs.cgi index 479adc9..ee22b7b 100755 --- a/cgi-bin/docs.cgi +++ b/cgi-bin/docs.cgi @@ -136,8 +136,13 @@ my ($urls) = '(' . join ('|', qw{ # Print the contents of a file containing html sub print_html ($) { my ($filename) = @_; + my($virtual) = ''; + my(@virtualresponse) = `/web/i-scream/nwww.cgi-bin/logo.cgi`; open(FILE, $filename); while() { + if(/$virtual/) { + s/$virtual/$virtualresponse[@virtualresponse-1]/; + } print; } close FILE; -- 2.44.0