Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

S_Shrum's scratchpad

by S_Shrum (Pilgrim)
on Jun 04, 2004 at 03:30 UTC ( #360658=scratchpad: print w/replies, xml ) Need Help??

... #!/usr/local/bin/perl -w BEGIN { print "Content-type: text/html\n\n"; use CGI::Carp qw(carpout); carpout(STDOUT); carpout(\*LOGGY) if open(LOGGY,'>>'.__FILE__.'.err.log'); } use strict; use CGI; my ($input, %args, $data); # get the command line arguments and convert the input variables into +hash values if (@ARGV) { $input = new CGI ( join "&" => @ARGV ); } else { $input += new CGI; } %args = ( $input->Vars ); #attempt to open the file directly print "<P>Attempting to open file: " . $args{'file'} . " from " . $arg +s{root} . "</p>"; open ( DATA, $args{root}.$args{file} ) or print "<P>Unable to open fr +om this location - $!</P>"; local($/) = undef; $data = <DATA>; close (DATA); print $data; 1 ...
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (4)
As of 2019-11-17 07:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Strict and warnings: which comes first?



    Results (86 votes). Check out past polls.

    Notices?