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;

Reply via email to