Perl ping

[Hardiel]

Cześć!
Mam następujacy problem łącze do pewnego serwera przez skrypt tunelujący połacznie telnetem i pojawia sie problem bo trzeba odbijać pingi . Wiec postanowiłem dograć do skryptu tunelujacego "suba" odbijającego pingi

sub ping {
my ($ch, $tbuffer) = @_;
if ( $tbuffer=~m/.*PING.*/gis ) {
$tbuffer .= "pong $1\n";
print $ch "Ping? Pong!\n";
}

($ch to serwer do którego sie podłącza)

Co ja tu robie źle?


Pozdrawiam

[TQM]

Uzywasz nie tej skladni odpowiedzi i pozniej wypadasz na PING TIMEOUT

Sprawdz w RFC jak wyglada odpowiedz na PING'a i wyslij ja w tym formacie bo na razie tylko ustawiasz zmienna a nie wysylasz jej dalej...

Proponuje uzyc Net::IRC zamiast Net::Telnet... IO::Socket tez ladnie daje rade ale obsluga pingow dziala roznie zaleznie od sieci - mozna sie nameczyc i nic nie zrobic. Moje botki gubily PINGi po jakims czsaie i wylatywaly :-( trzebaby cale RFC przeleciec i zaimplementowac. Na naszym czacie stoi botek napisany w POE dla wygody - ma wspolbiezne prztwarzanie danych itd...

Poczytaj o POE::Component::IRC - calkiem wygodnie sie w tym pisze ale botek zajmuje sporo RAM ze wzgledu na cala otoczke jaka dodaje POE!