The problem was solved using
ModPerl::PerlRun
Thank's a lot
Malcolm J Harwood wrote:
On Wednesday 21 September 2005 08:10 pm, Aliet Santiesteban Sifontes wrote:
On Wednesday 21 September 2005 07:09 pm, Aliet Santiesteban Sifontes
wrote:
Hi list, I have a problem with a .pl script, the scripts is executed in
the first request, and it's been cached by the server, I call this
script passing different arguments, and I expect that it must be
executed with the new args but, I'm having the same output from the
first execution wich seems to be cached by the server, not the browser,
if I restart the server works with the new args, how to avoid this???
PerlResponseHandler ModPerl::Registry
Is that deliberate? Any globals will persist between connections.
If you use ModPerl::PerlRun does the problem go away?
The script does some database queries, later just list it:
use strict;
use DBI;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use lib::Master;
# Let's require session stuff
use lib::SessionUtil;
...
print $cgi->header, # create the HTTP header
$cgi->start_html(-onload=>"if ($isInvitado==1){
top.Nav='".${$config}{"nav"}."';
};
if (top.Nav > '' ) {
top.frames.Navigation.location.href=top.Nav;
top.Nav='';
};
top.CountRows=$NumRows;
top.isRow=$isRow;
top.CantRows=".${$config}{"CantRows"}.";
top.frames.Path.location.href='".${$config}{"path"}."';
top.isTitleLeft='".${$config}{"LeftTitle"}."';
top.isTitleRight='".${$config}{"RightTitle"}."';
top.setTitle();
top.ListCode='$ListCode';
top.Level = '".${$config}{"Level"}."';
top.Origen = '$Origen';
top.IDAux = '$ID';
top.Filtro='$Filtro';
top.Parame[".${$config}{"Level"}."]='$Parametro';");
blaablala...
....end_html...
Where are you getting the data in this? It doesn't look like it's your output
code.
Check you are reinitialising any globals you might have. Check for closures in
your data acquisition code.
