in reply to Re: How to execute web code on server start only?
in thread How to execute web code on server start only?
#!/usr/bin/perl -- ## ## printenv -- demo CGI program which just prints its environment ## print "Content-type: text/plain; charset=iso-8859-1\n\n"; if( $ENV{QUERY_STRING} ){ $ENV{OneTimeEnvTestWillItPersistProbablyNot}=1; print "so did OneTimeEnvTestWillItPersistProbablyNot persist? thou +ght not\n\n\n"; } else { print "set OneTimeEnvTestWillItPersistProbablyNot=1\n"; print "now append ?foo to the url to see if OneTimeEnvTestWillItPe +rsistProbablyNot persists \n\n\n"; } foreach $var (sort(keys(%ENV))) { $val = $ENV{$var}; $val =~ s|\n|\\n|g; $val =~ s|"|\\"|g; print "${var}=\"${val}\"\n"; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: How to execute web code on server start only?
by WizardOfUz (Friar) on Jan 18, 2010 at 14:55 UTC |