Mark,
You say:
> > > I'm using httpd -x
If that's not a typo, you should be trying httpd -X (uppercase X) to
test the web server in single-process mode. If it is a typo, and you
have been using -X, I don't know what's happening.
What I would expect you to see in single-process mode, is that it works
once (not two or three times) and then fails thereafter. I believe your
required file (routines.lib) is only being loaded, and thus generating
output, once per process. If, on the other hand, it defined a subroutine
which you then called in your program, you'd get output every time.
- Amy
Mark D Wolinski wrote:
>
> 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;
> >
> >
> >
> >
--
Amy Farrell | Technical Staff | [EMAIL PROTECTED]
503/944-5044 x224 | eMerchandise.com | http://www.eMerchandise.com
