Thanks.
I looked at both, I do remember reading over them awhile back, but I don't
think they apply to my problem.
Given the code that I use, should should print at least: "Down to the
bottom..." but it doesn't, in fact, it seems like the program is erroring
out somewhere. The weird fact is that it's not outputting anything to the
error log either.
So, I'm lost.
Mark W
> -----Original Message-----
> From: ___cliff rayman___ [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, July 27, 2000 4:49 PM
> To: Mark D Wolinski; modperl
> Subject: Re: 3 Accesses and then nothing...
>
>
> i think you'll find the answer here:
> http://perl.apache.org/guide/porting.html#Exposing_Apache_Registry_secret
>
> and here:
> http://perl.apache.org/guide/perl.html#my_Scoped_Variable_in_Nested_S
>
>
> --
> ___cliff [EMAIL PROTECTED]http://www.genwax.com/
> Mark D Wolinski wrote:
>
> > 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;
>
>
>
>
