Philip M. Gollucci wrote:
Christian Klinger wrote:
Can you give me some tips for debugging this error?
You can attach gdb or ddd to the running httpd
see here:
http://httpd.apache.org/dev/debugging.html
and/or
You can use Apache::DB from CPAN
to get a PERL debugger for things under mod_perl.
See Apache::DB's documentation ...
I have a config handy so here it is:
in httpd.conf:
PerlRequire conf/db.pl
PerlModule Apache::DB
<Location />
SetHandler modperl
PerlFixUpHandler Apache::DB
</Location>
cat conf/db.pl
use APR::Pool ();
use Apache::DB ();
Apache::DB->init();
1;
If you can't figure it yourself, post a strack trace WITH debugging
enabled to the list and we'll look again.
HTH
Hello agin,
i have enabled your debugging.
Here is the scirpt which raises these error.
...
if ($f == 1)
{
success($uid,$pw);
}
else
{
error_exit();
}
sub error_exit
{
print STDERR "Exit to error Page \n";
#print
$cgi->redirect('https://bgeextranet.cnbg.de/anmeldung/LoginErr.htm');
print $cgi->header(-location=>"https://192.168.2.11";);
print STDERR "Exit to error Page \n";
exit;
}
These are the last lines of the error_log
...
DB<1> CGI::self_or_default(/usr/lib/perl5/5.8.3/CGI.pm:433):
433: unless (defined($_[0]) &&
434: (ref($_[0]) eq 'CGI' || UNIVERSAL::isa($_[0],'CGI'))
# slightly optimized for common case
435: ) {
DB<1> CGI::self_or_default(/usr/lib/perl5/5.8.3/CGI.pm:439):
439: return wantarray ? @_ : $Q;
DB<1> CGI::cache((eval 18)[/usr/lib/perl5/5.8.3/CGI.pm:810]:3):
3: $new_value = '' unless $new_value;
DB<1> CGI::cache((eval 18)[/usr/lib/perl5/5.8.3/CGI.pm:810]:4):
4: if ($new_value ne '') {
DB<1> CGI::cache((eval 18)[/usr/lib/perl5/5.8.3/CGI.pm:810]:7):
7: return $self->{'cache'};
DB<1> CGI::header((eval 16)[/usr/lib/perl5/5.8.3/CGI.pm:810]:57):
57: push(@header,"Content-Disposition: attachment;
filename=\"$attachment\"") if $attachment;
DB<1> CGI::header((eval 16)[/usr/lib/perl5/5.8.3/CGI.pm:810]:58):
58: push(@header,map {ucfirst $_} @other);
DB<1> CGI::header((eval 16)[/usr/lib/perl5/5.8.3/CGI.pm:810]:58):
58: push(@header,map {ucfirst $_} @other);
DB<1> CGI::header((eval 16)[/usr/lib/perl5/5.8.3/CGI.pm:810]:59):
59: push(@header,"Content-Type: $type") if $type ne '';
DB<1> CGI::header((eval 16)[/usr/lib/perl5/5.8.3/CGI.pm:810]:60):
60: my $header = join($CRLF,@header)."${CRLF}${CRLF}";
DB<1> CGI::header((eval 16)[/usr/lib/perl5/5.8.3/CGI.pm:810]:61):
61: if ($MOD_PERL and not $nph) {
DB<1> CGI::header((eval 16)[/usr/lib/perl5/5.8.3/CGI.pm:810]:62):
62: $self->r->send_cgi_header($header);
DB<1> CGI::r(/usr/lib/perl5/5.8.3/CGI.pm:377):
377: my $self = shift;
DB<1> CGI::r(/usr/lib/perl5/5.8.3/CGI.pm:378):
378: my $r = $self->{'.r'};
DB<1> CGI::r(/usr/lib/perl5/5.8.3/CGI.pm:379):
379: $self->{'.r'} = shift if @_;
DB<1> CGI::r(/usr/lib/perl5/5.8.3/CGI.pm:380):
380: $r;
DB<1> .
###########################################################################
I see in mod_forensic that these request is not "responded"
+6iY7e8CoAgsAACj3ST0AAAAE|POST /anmeldung/perl/bg30auth.pl
HTTP/1.1|Accept:*/*|Accept-Language:de-de, ja;q=0.85, en;q=0.92,
ja-jp;q=0.88, de;q=0.96, fr;q=0.81, es;q=0.77, it-it;q=0.73, it;q=0.69,
nl-nl;q=0.65, nl;q=0.62, sv-se;q=0.58, sv;q=0.54, no-no;q=0.50,
no;q=0.46, da-dk;q=0.42, da;q=0.38, fi-fi;q=0.35,
fi;q=0.31|Accept-Encoding:gzip, deflate;q=1.0, identity;q=0.5,
*;q=0|Referer:https%3a//192.168.2.11/anmeldung/Login.htm?back=https%253a%252f%252f192.168.2.11%252f|User-Agent:Mozilla/5.0
(Macintosh; U; PPC Mac OS X; de-de) AppleWebKit/125.2 (KHTML, like
Gecko)
Safari/125.7|Content-Type:application/x-www-form-urlencoded|Content-Length:8|Connection:close|Host:192.168.2.11
