Hi gurus,

I have this scrip as follow :

#!/usr/local/bin/perl
    use CGI qw/:standard/       ;
    print header;
    use DBI;
    $host = 'aaa.com';
    $sid = 'oralin';
    $user = 'scott';
    $passwd = 'tiger';
    #$dbh = DBI->connect("DBI:Oracle", $user, $passwd);
    $dbh = DBI->connect("DBI:Oracle:host=$host;sid=$sid", $user, $passwd);
    $sth = $dbh->prepare("select ename from emp where empno = 7499");
    $sth->execute();
    print $sth->fetchrow();

When i execute this from a server with a user "oracle", it works fine. But
when i call this from HTTP protocol, it does not show anything ???. Even,
with a "root" user, it shows error.

Do i have to set any variables for DBI or ??

pl help

Denis

Reply via email to