| # | Line 291 | Line 291 | exit 0; | |
|---|---|---|
| 291 | # Print the contents of a file containing html | |
| 292 | sub print_html { | |
| 293 | my ($filename) = @_; | |
| 294 | + | my($virtual) = '<!--#include virtual="/cgi-bin/logo.cgi" -->'; |
| 295 | + | my(@virtualresponse) = `/web/i-scream/nwww.cgi-bin/logo.cgi`; |
| 296 | open(FILE, $filename); | |
| 297 | while(<FILE>) { | |
| 298 | + | if(/$virtual/) { |
| 299 | + | s/$virtual/$virtualresponse[@virtualresponse-1]/; |
| 300 | + | } |
| 301 | print; | |
| 302 | } | |
| 303 | close FILE; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |