Apache::Request CORE DUMPS

Bogomolnyi Constantin Sun, 01 Oct 2000 15:51:50 -0700

Hi ,

I have few very strange coredumps when using Apache::Request

here my script :

The *strange thing is that It only coredump when i put any param

like www.me.com?param=value =>coredump

but www.me.com =>works fine

Any ideas ??

Thanks !

use strict;
use Apache::Request;
my $r=shift;
my $cgi = Apache::Request->new($r);
use lib "/usr/local/abc/perl/carpe";
use Banner::Sql;
use Banner::Html;
use Banner::Config qw(valuor);

my $sql = new Banner::Sql(valuor('db_name'),valuor('db_host'),valuor('db_login'),valuor('db_pwd'));
$sql->DB_connect();

my $tbl_name=valuor('tbl_name');
my $prog=valuor('stat_prog');
eval{
my $actor = $cgi->param("actor")||''; #le lien du serveur ou est stocke l'image
if($actor eq 'del_link'){
&afficher_liste;
  exit;
}else{
  &afficher_liste;
  exit;
}
};
sub afficher_liste{
my $html=new Banner::Html($cgi);
my $start=$cgi->param('start')||'0';
my $stop=$cgi->param('stop')||'25';
my $limit = "LIMIT $start,$stop";
my $c = $sql->sqlSelectMany('uid,lien,email',$tbl_name,1,$limit);
my $nbr=$sql->getDBI('rows');
my @loop_data = (); # initialize an array to hold your loop
while(my $S = $c->fetchrow_hashref){
  my %row_data;
     $row_data{LIEN} = $S->{lien};
  $row_data{UID} = $S->{uid};
  $row_data{PROG} = $prog;
       push(@loop_data, \%row_data);
   }

   $c->finish;
$sql->DB_disconnect;
my $cnt=1;
my $st;
my $stp;
my $nav =qq(<a href="$prog">Page 1</a> > \n);
my $j;
for($j=25;$j<$nbr;$j+=25){
  $cnt++;
  $st=$j;
  $stp=$j+25;
  $nav .= qq(<a href="$prog?start=$start&stop=$stop">Page $cnt</a> > \n);
}
$html->afficher_stat(\@loop_data,$nav);
}

Apache::Request CORE DUMPS

Reply via email to