Hi,
Perl version: 5.00404
DBI version: 1.06
DBD::Sybase version: 0.13
We have two servers. One is 12.0 and the other is in
11.9.2. We moved the 12.0 server behind a firewall and
uses Mapped IP (MIP) address while the 11.9.2 will
remain in a public IP. We could isql in and out of any
of these machines without any problem. (ie. the sybase
listener port is open). I wrote this simple perl
script to "ping" the server from another machine in
the public IP address space and check whether they are
alive. This machine also able to isql into both 12.0
and 11.9.2 box.
--- cut here ---
#!/usr/local/bin/perl
use DBI;
use DBD::Sybase();
######
# Now lets check 12.0
$svrname = host1200;
$username = sa;
$passwd = passwd;
$data_source = "dbi:Sybase:server=$svrname";
$dbh = DBI->connect($data_source, $username, $passwd,
{
PrintError => 1});
if (! defined $dbh) {
print "No DBhandle and add $svrname to the
list\n";
}
else {
eval ($dbh->ping);
print "Got DBHandle and DBI::pinging
$svrname\n";
$dbh->disconnect;
}
#####
# Now check 11.9.2
$svrname = host1192;
$username = sa;
$passwd = passwd;
$data_source = "dbi:Sybase:server=$svrname";
$dbh = DBI->connect($data_source, $username, $passwd,
{
PrintError => 1});
if (! defined $dbh) {
print "No DBhandle and add $svrname to the
list\n";
}
else {
eval ($dbh->ping);
print "Got DBHandle and DBI::pinging
$svrname\n";
$dbh->disconnect;
}
--- cut here ---
RESULT:
======================================
Got DBHandle and DBI::pinging host1192
OpenClient message: LAYER = (5) ORIGIN = (3) SEVERITY
= (5) NUMBER = (4)
Message String: ct_connect(): network packet layer:
internal net library error:
Net-Lib protocol driver call to connect two endpoints
failed
Operating System Error: Failed to parse address info
at ./testping.pl line 35
No DBhandle and add host1200 to the list
However if I swap the order of ping, ie. I ping
host120 and then host1192. Both get the DBHandle and
connect succesfully.
Got DBHandle and DBI::pinging host1200
Got DBHandle and DBI::pinging host1192
Could someone tell me what is going on? I have no clue
now. The same script works fine if host120 were in the
public IP. Things only goes weird after we moved it to
MIP. We cannot change it to public IP because
management wants to put it behind a firewall to
protect sensitive data.
thanks,
benny
__________________________________________________
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com
