Davide Bianchi wrote:
Christian Klinger wrote:In more detail if the Segmentation-Fault is raised there are no entries in the access log for this request.Hummm... so the 'child' is doing nothing?The error occurs if i try to call a perl scirpt. But there is no other error message than the segmentation fault.Well, so maybe the problem is in that perl script. Can't you add debugging info to that script? Davide
Hi I have enabeld a perl-debugger this is the output.
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
--------------------------------------------------------------------- The official User-To-User support forum of the Apache HTTP Server Project. See <URL:http://httpd.apache.org/userslist.html> for more info. To unsubscribe, e-mail: users-unsubscribe@xxxxxxxxxxxxxxxx " from the digest: users-digest-unsubscribe@xxxxxxxxxxxxxxxx For additional commands, e-mail: users-help@xxxxxxxxxxxxxxxx
|