sybperl-l Archive

From: "Klein, Shoshana R" <Shoshana dot Klein at gs dot com>
Subject: RE:
Date: Nov 22 2000 2:45PM

You might want to look into the following module and it's options

use CGI::Carp qw(fatalsToBrowser);

-----Original Message-----
From: André de oliveira Castanheira
[mailto:andre.castanheira@cariocaengenharia.com.br]
Sent: Wednesday, November 22, 2000 8:29 AM
To: SybPerl Discussion List
Subject: 


Hi,

I'm using sybperl, and I would like to show in my home page the error :
"Atenção! Problemas na Query!"
Because the user has access to the database but doesn't have grant to select
the table.

( $X = Sybase::DBlib->dblogin($user, $pwd, $server) )
    and print("")
    or print "Atenção! Login/Senha inválidos!";

( $X->dbuse($banco) == &SUCCEED )
    and print("")
    or print "Atenção! Problemas na abertura do banco de dados!";

($X->dbcmd("select * from tb_depto") == &SUCCEED)
    and print("")
    or print "Atenção! Problemas na Query!";



Any ideas appreciated,
André