[rlug] Re: Perl problem

[Tarhon-Onu Victor]

On Sun, 17 Jun 2001, Stefan Laudat wrote:

> my $t = Net::Telnet->new(Host=>$ipaddr,Port=>$port,Timeout => 3);
> if( !$t ) { print "Eroare port $port service $service on $host\n";
>
> din pacate, totul se termina in die() cu urmatorul mesaj:
> problem connecting to "1.2.3.4", port 1: Connection refused at ./check.pl line 339

blackblue (Mituc):~>cat m.pl
#!/usr/bin/perl -w
use strict;

use Net::Telnet;

my $ipaddr="192.168.0.7";
my $port="21";

my $t = Net::Telnet->new(Host=>$ipaddr,Port=>$port,Timeout => 3);
if( !$t ) {
        print "Eroare port $port on $ipaddr\n"
} else {
        print "Salut Stefane! Tocmai am vazut ca ai portul de ftp deschis
si amfacut si io un ftp pe acolo!:)\n";
}

blackblue (Mituc):~>perl m.pl
Salut Stefane! Tocmai am vazut ca ai portul de ftp deschis si am facut si
io un
ftp pe acolo!:)

        Upgradeaza-ti Net::Telnet, prolly ala pe care il ai tu o fi avind
vreo belea. Daca e ultimul... nasol, pune-l pe penultimul!:)

---
Send e-mail to '[EMAIL PROTECTED]' with 'unsubscribe rlug' to 
unsubscribe from this list.