Here my minimal script that cause this to happen:

File Listing.pl
-------------------------------------
use DBI;
use CGI;
use strict;
use diagnostics;
use CGI::Carp qw(fatalsToBrowser);
# Let's require session stuff
use lib::SessionUtil;
my  $cgi;
$cgi = &lib::SessionUtil::Get_CGI_Object();
my $onload;
$onload = "if 0==1){
               top.Nav='test';
            };
            if (top.Nav > '' ) {
               top.frames.Navigation.location.href=top.Nav;
           top.Nav='';
               };
               top.CountRows='3';
               top.isRow='';
               top.CantRows='3';
               top.frames.Path.location.href='test1';
               top.isTitleLeft='test3';
               top.isTitleRight='test4';
               top.setTitle();
               top.ListCode='2';
               top.Level = '2';
               top.Origen = '2';
               top.IDAux = '2';
               top.Filtro='1';";
print $cgi->header;                    # create the HTTP header
print $cgi->start_html(-onload=>"$onload"); # start the HTML
print $cgi->end_html;

File lib/SessionUtil.pm
---------------------------------------------
package lib::SessionUtil;
use DBI;
use strict;
use CGI::Session qw/-ip-match/;
use CGI;
our $cgi;
$cgi = new CGI;

sub Get_CGI_Object {
   return $cgi;
}
1;

With this, I can reproduce the error, any ideas on how to fix this??
Best Regards...
Philip M. Gollucci wrote:
Aliet Santiesteban Sifontes wrote:
Windows 2003 Enterprise Server, ActivePerl 5.8.7 Build 813, Apache-2.0.54. Perl with modules:
  8. DBI                    [1.48]
good.

Active Perl ships with cgi-3.10, U updated to 3.11 as mod_perl says.
good.

in includes.pl
use lib qw(D:/Apache2/htdocs/intercompras/cgi-bin);
1;
did you ever use mod_perl2 and the like ?
http://perl.apache.org/docs/2.0/user/handlers/server.html#Startup_File

Mon Sep 19 14:35:05 2005] [notice] Server built: Jul 24 2005 23:42:22
[Mon Sep 19 14:35:05 2005] [notice] Parent: Created child process 3844
[Mon Sep 19 14:35:06 2005] [notice] Child 3844: Child process is running
[Mon Sep 19 14:35:06 2005] [notice] Child 3844: Acquired the start mutex. [Mon Sep 19 14:35:06 2005] [notice] Child 3844: Starting 250 worker threads. [Mon Sep 19 14:35:16 2005] [notice] Parent: child process exited with status 3221225477 -- Restarting.
Can you implement a minimal script that causing this to happen and show that to the list ?








Reply via email to