To check the connection between the two servers:

smg

Hi,

Are these two snippets same or different in any aspect?

I understand the first one is executed from shell of the base server and the second one is perl script. I am trying to understand is IOocket::INET equivalent of telnet command.

(1)

# telnet targetserver 20014

"Is the connection successful?”

(2)

#perl

my $sock = IO:ocket::INET->new(

PeerAddr => targetserver,

PeerPort => 20014,

Proto => 'tcp',

Type => SOCK_STREAM,

Timeout => 10);

if ($sock) {

close($sock);

print "PASS\n";

} else {

print "FAIL\n";

}

Thanks

nipper

Besides the fact that you are missing use IO:ocket you seem to have hit the mark

I tried it on my servers here and they passed/failed as expected.

#!/usr/Interwoven/TeamSite/iw-perl/bin/iwperl

use IO:ocket;
$targetserver=shift;

my $sock = IO:ocket::INET->new(
PeerAddr => $targetserver,
PeerPort => 20014,
Proto => 'tcp',
Type => SOCK_STREAM,
Timeout => 10);

if ($sock) {
close($sock);
print "PASS\n";
} else {
print "FAIL\n";
}