Net:: zaden modol perla mi niedziala

[Sardihan]

Mam taki problem
chcialem napisac cos z gg w perlu
zainstalowalem sobie Net::Gadu przez cpan shella i napisalem sobie taki skrypcik

#!/usr/bin/perl

use Net::Gadu; use Data:umper;

$gg = new Net::Gadu(server => "serv");
$gg->login("numer", "haslo");
$gg->set_available();
$gg->send_message("Moj numer", "message");

(takie i inne podobne )
odpalam przez roota ale nic, zadnego blendu ale tez nic niedostaje ;/
drugi przyklad z Net:Ping:costam
napisałem skrypt do wysylania kilku pingow o rozmiaze 56 wszystko elegancko wg dokumentacji
nic sie niewysyla sprawdzilem tcpdumpem i wiresharkiem

moze mi ktos powiedziec o co chcodzi

[TQM]

odpalam przez roota ale nic, zadnego blendu ale tez nic niedostaje ;/
drugi przyklad z Net:Ping:costam

Nie widze abys gdziekolwiek zbieral wyniki wiec nic sie nie wyswietli - nie wiem czego oczekiwales

$result = $gg->send_message("Moj numer", "message");

w $result najprawdopodobniej bedzie kod powrotu - sukces, blad, cokolwiek - zobacz manual do Net::GG

To samo dotyczy Net::Ping

$p = Net::Ping->new();
print "$host is alive.\n" if $p->ping($host);
$p->close();

Jak widzisz $p->ping() zwraca jakas wartosc ktora ma konkretne znaczenie...

[Sardihan]

kurna za 5 minut wedytuje post bo cos sie sypneło ...

[Sardihan]

[quote=Sardihan;23215]#!/usr/bin/perl

use strict;
use warnings;
use Net::Gadu;

my %ARGV;
my $gg_number = $ARGV[0];
my $password = $ARGV[1];
my $number = $ARGV[2];
my $end = $ARGV[3];

if(!$ARGV[3]) {
print "./nazwa [numer_gg] [password] [numer_ofiary]

[Sardihan]

http://img143.imageshack.us/img143/9963/81530481mh4.jpg

nic domnie niepisze powinienem dostac jakas wiadomosc

a błendów tez niewyswietla ;/

[TQM]

czy $gg->send_message_chat() zwraca jakiekolwiek wartosci?

...
$gg->send_message_chat() ? print "MSG $l sent\n" : print "$l not sent\n";
...

Nie widze aby funkcja zwracala cokolwiek - przynajmniej dokumentacja nic nie mowi... ale mozesz sprobowac albo zajrzec do kodu zrodlowego send_message_chat czy jest jakis return() na koncu - wtedy wiedzialbys czy udalo sie wyslac czy nie...

P.S.
Odpalajac aplikacje odpal sobie sniffer i patrz czy sie loguje/wysyla dane...

[Sardihan]

TQM jestes guru normalnie xD
działa ! wielkie thx

[TQM]

Dziala w sensie ze pisze ze dziala czy tez wysyla wiadomosci?

[Sardihan]

dostaje wiadmosw sensie ze dostaje wiadomosc na gg
wczoraj z nieznanych przyczyn niedzialalo o_0