my ($anw);
eval {
$t = Net::Telnet->new(
Timeout => 10,
Host => $host,
Port => 25
);
$t->open($host);
$anw = $t->get(Timeout => 10);
@fields = split(/\n/, $anw);
if($fields[$#fields] !~ /^220.+$/) {
$t->close;
exit;
}
$t->print ("HELO quercimail.com");
$anw = $t->get(Timeout => 10);
if($anw !~ /^250.+$/) {
$t->close();
exit;
}
$t->print ("MAIL FROM: <krpt-s\@ukr.net>");
$anw = $t->get(Timeout => 10);
if($anw !~ /^250.+$/) {
$t->close();
exit;
}
$t->print ("RCPT TO: <$to>");
$anw = $t->get(Timeout => 10);
$t->close();
};
if($@) {
if($t){
$t->close();
}
}
return ($anw !~ /^250.+$/) ? 0 : 1;
>>Люди, помогите. Когда в перловском скрипте вызываю метод open, вылетает следующая ошибка:
>>Insecure dependency in connect while running with -T switch at /usr/local/lib/perl5/site_perl/5.8.0/Net/Telnet.pm
>>line 1286. Что это, и как с этим бороться???
>
>А покажите код скрипта? Вы случайно флаг -T не используете?
Вариант для распечатки
Программирование под UNIX (Public)
(ok) on
20-Май-05, 16:49 (MSK)
