I found a lot of useful information in
"perldoc Apache::Status" (thanks Ruslan)
But i still have a problem.
When i run this script under ModPerl::Registry for several times, i get the
warrning in the my error.log
[Thu Jul 08 21:55:04 2004] [warn] /perl/test.pl did not send an HTTP header
Why so it? Please, direct me to respective manual.
So, test.pl
-----------------------------
#!/usr/bin/perl -w
package Headers;
use strict;
sub new {
my $this = shift;
my $class = ref($this) || $this;
my $self = {};
bless $self, $class;
$self->{headers} = {
"Expires" => "Mon, 26 Jul 1997 05:00:00 GMT",
"Last-Modified" => gmtime(time) . " GMT",
"Cache-Control" => "no-cache",
"Cache-Control" => "post-check=0, pre-check=0",
"Pragma" => "no-cache",
"Character-Set" => "windows-1251",
"Content-Type" => "text/html; charset=windows-1251",
};
return $self;
}
sub print {
my $self = shift;
print $_, ": ", $self->{headers}->{$_}, "\n" for keys
%{ $self->{headers} };
print "\n";
}
package main;
use strict;
use warnings;
our $HEADERS = new Headers;
$HEADERS->print();
print 1;
-----------------------------
> On Thu, 2004-07-08 at 12:09, Vadim wrote:
> > Are there any way to dump all cached vars for scripts under mod_perl?
>
> Can you explain what you mean by "cached vars"? Are you talking about
> global variables?
>
> - Perrin
--
Vad
--
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html
