# 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;