From: Date: April 26 1999 7:59am
Subject: Re: CGI-script crashes in web browser, runs fine in shell
List-Archive: http://lists.mysql.com/mysql/2372
Message-Id: <372400C0.6DE54EC6@direct1.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit

JEP wrote:
> 
> Subject: Re: CGI-script crashes in web browser, runs fine in shell
> Cc:
> 
> At , you wrote:
> >JEP wrote:
> >>
> >> Hello,
> >> Installed software:
> >> Linux 2.0.36 (SuSE 6.0)
> >> running mysql 2.22.21
> >> apache 1.3.4 mod_perl 1.17
> >> perl 5.005
> >>
> >> When executing for debug purposes a CGI/DBI.pm-based perl script at bash
> >> prompt, everything fine
> >> using the Xbase.pm modules, the sript runs fine both at shell prompt and
> >> using Netscape / IE4, but quite slow, of course
> >> We migrated the data, build indexes, but the script coughs up a  mysterious
> >>
> >> "Error DBD::mysql::st execute failed: ase Selected at <perlmodule> line
> XXX"
> >>
> >> We haven't found any reference about this case despite using every search
> >> engine even in the mailing list archive
> >> Eternal grafetulness for charitable soul who can help
> >> TIA
> >> Jean Eric PREIS
> >>
> >> Jep sez:
> >
> >Could you provide more detail, such as table schema,
> >queries, and relevalt prortions of the Perl script?
> >Sasha Pachev
> Sure
> Here's the stuff: very basic dircetkly extracted from PerlCookbok, chap 19
> 
> #!/usr/bin/perl
> use DBI;
> use CGI qw(:standard :html3 :Carp);
> use Mysql;
> 
> print header(), start_html("yo les cakes!");
> print start_form;
> print " <b> ", scalar localtime , "</b><br> \n";
> print "Moien <br>\n";
> #foreach $key (keys %ENV) {
> #print $key,"\t",$ENV{$key},"<br>\n";
> #}
> #print system("whoami");
> print textfield('SALUT'),"<br>\n";
> print submit();
> print end_form;
> print hr;
> 
> # la premiere partie de la form
> 
> # Le traitement d'un clic sur le bouton
> 
> if(param()){
>   print "yo! tu a cherché le noms correspondant à ",param('SALUT'),"<br>\n";
> 
> 
>   # Pour le test avec Xbase
>   #  my $dbh =DBI->connect("DBI:XBase:/home/jep/exploit/data/DBFS/") or
> die("ooops\n");
> 
>   # en exploit, nous sommes sur MySQL
>   $username="username";
>   $password="password"
> 
> 
>   $dbh =
> DBI->connect("DBI:mysql:database=sqldatas;host=localhost;port=3306",$usernam
> e,$password) or die $dbh->errstr;
>   my  $valeur;
>   $valeur= param('SALUT');
>   $valeur =~ s/$\s+// ;
>   $valeur =uc($valeur);
>   my $sqlstring;
> 
> 
>   if($valeur =~ m/\b[0-9]+/ ){  # un chiffre determine une recherche par
> l'ID...
>                                 # Digits means ID number
> 
> 
>     $sqlstring = "select id,nomprenom from tree where id like \'";
> 
>   }else{                        # ...un autre caractère, une recherche par le nom
>                                 # everything else means nomprenom field as criterion string..
> 
>     $sqlstring = "select id,nomprenom from tree where nomprenom like \'";
>   }
>   $sqlstring .= $valeur;
>   $sqlstring .= "%\'";
>   print $sqlstring,"\n";
> 
>   $sqh = $dbh->prepare($sqlstring) or die $dbh->errstr;
> 
>   $sqh->execute or $dbh->errstr;
> 
>     my @data;
>     print "<TABLE> <CAPTION> LES RESULTATS </CAPTION>";
>     @hederz =qw(id nom);
>     print Tr(th(@hederz));
>     print "</TABLE>*";
> 
>     while(@data=$sqh->fetchrow() ) # <-- dies here
>       {
> # tables stuf deleted
>         print   $data[0],"\t",$data[1],"\t";
> # provides some nice links
>         print a({HREF=> "jrfacs.pl?id_query=".$data[0]}, qw(Facture ) ),"\t";
>         print a({HREF=> "jrfacs.pl?id_query=".$data[0]}, qw(Identité )),"\t";
>         print a({HREF=> "jrfacs.pl?id_query=".$data[0]}, qw(Compte Client )),"\t";
>         print a({HREF=> "jrfacs.pl?id_query=".$data[0]}, qw(Arbre )),"\t";
> 
> 
>         print "<br><hr>\n";
> 
> 
>   $dbh->disconnect;
> 
>   print end_html();
> }
> 
> # la fin du document
> 
> # As you can see there's no join
> # table tree is a basic customer description, like ID, nomprenom as
> char(50) with indexes
> 
> Jep sez:
> .....

Print each trouble query before it is executed. Compare what is printed
when it works and when it does not.

-- 
Sasha Pachev
http://www.sashanet.com