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;
