summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
2039af9)
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) = @_;
# 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>) {
open(FILE, $filename);
while(<FILE>) {
+ if(/$virtual/) {
+ s/$virtual/$virtualresponse[@virtualresponse-1]/;
+ }
# Print the contents of a file containing html
sub print_html ($) {
my ($filename) = @_;
# 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>) {
open(FILE, $filename);
while(<FILE>) {
+ if(/$virtual/) {
+ s/$virtual/$virtualresponse[@virtualresponse-1]/;
+ }