hi all,
i tried to send this to perl-DBI but it did not get
through, nevertheless, maybe someone has any ideea,
please.
I am executing the following code:
use CGI;
use DBI;
use strict;
my $query = new CGI;
print $query->header;
print $query->start_html("My Page");
print "<BODY BGCOLOR=#FFFFFF>\n";
print "<LEFT>\n";
print "My List here<BR>\n";
&print_prompt($query);
print "I GOT HERE! -- form printed";
&do_work($query);
print "I GOT HERE! -- values processed";
#connect to ORACLE
print "<\BR>";
print "I GOT HERE! -- before db connection";
print "<\BR>";
my $usr = "testusr";
my $pwd = "testpwd";
my $dbh =
DBI->connect('dbi:Oracle:ORCL_192.168.55.116', $usr,
$pwd) || die "Database connection not made:
$DBI::errstr";
print "I GOT HERE! -- db connected";
$dbh->disconnect;
print "<\BR>";
print "I GOT HERE! -- db disconnected";
#
print $query->end_html;
# SUBROUTINES ###
sub print_prompt {
#put some check boxes on the page, submit button, etc.
}
sub do_work {
unless ($query->param) {
print "<b>No query submitted yet.</b>";
return;
#get some values, etc.
}
it never gets after the connection line (it prints
only:
I GOT HERE! -- form printed
I GOT HERE! -- values processed
I GOT HERE! -- before db connection)
, HOWEVER I never get any error; I am definitely not
connecting but I can't see anything wrong here!
WinXP, Oracle 10.2.0.0 server, Oracle 10.2.0 client,
Perl
5.8.6.811,
any idea what's happening?
Thanks,
jablonsky
____________________________________________________________________________________
Boardwalk for $500? In 2007? Ha! Play Monopoly Here and Now (it's updated for
today's economy) at Yahoo! Games.
http://get.games.yahoo.com/proddesc?gamekey=monopolyherenow
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
