Hi all..
I'm getting started in Mod_Perl, so I'll assume this is a newbie question.
Here's the problem, with a relatively basic program the system works for 2
or 3 accesses then comes up with "Document Contains No Data" until a
restart.
I'm using httpd -x
So would anyone be kind enough to tell me what the error is and point me to
where it's talked about in either the Eagle book or the Mod_Perl Guide?
Much thanks.
Mark W
=-=-=
Here's the program:
#!/usr/bin/perl -w
use POSIX;
use strict;
use DBI;
use CGI qw(:standard);
use Email::Valid;
use LWP::Simple;
use Mail::Sendmail;
use HTML::FromText;
use IPC::Open3;
use Text::Wrap qw(fill 75);
use CGI::Carp 'fatalsToBrowser';
$CGI::POST_MAX=1024 * 100; # max 100K posts
$CGI::DISABLE_UPLOADS = 1; # no uploads
require "/usr/local/etc/httpd/sites/xxxxx/xxxxx/routines.lib";
Here's the routines.lib:
##### Setup required variables
my (%IN,%TEMP);
my $query = new CGI;
##### Convert all passed parameters to $IN{}
foreach $temp ($query -> param()) {
$IN{$temp} = $query -> param($temp);
}
$IN{'act'} = "" unless (defined($IN{'act'})); #### Initialize $IN{act}
print "Content-type: text/html\n\n";
print "Down to the bottom....<br>\n";
while (($key,$value) = each %IN) {
print "$key - $value<br>\n";
}
1;