--- web/cgi-bin/docs.cgi 2004/03/24 20:57:27 1.9 +++ web/cgi-bin/docs.cgi 2004/03/24 23:29:21 1.10 @@ -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;