include manually won't work. We can kludge these CGI's... but what about
the viewcvs stuff?
This needs a rethink.
# Print the contents of a file containing html
sub print_html {
my ($filename) = @_;
+ my($virtual) = '<!--#include virtual="/cgi-bin/logo.cgi" -->';
+ my(@virtualresponse) = `/web/i-scream/nwww.cgi-bin/logo.cgi`;
open(FILE, $filename);
while(<FILE>) {
+ if(/$virtual/) {
+ s/$virtual/$virtualresponse[@virtualresponse-1]/;
+ }
print;
}
close FILE;
# Print the contents of a file containing html
sub print_html ($) {
my ($filename) = @_;
+ my($virtual) = '<!--#include virtual="/cgi-bin/logo.cgi" -->';
+ my(@virtualresponse) = `/web/i-scream/nwww.cgi-bin/logo.cgi`;
open(FILE, $filename);
while(<FILE>) {
+ if(/$virtual/) {
+ s/$virtual/$virtualresponse[@virtualresponse-1]/;
+ }
print;
}
close FILE;