Net::OSCAR (Perl)

pcodr · Сообщение **pcodr** » 23.09.2008 18:37

Есть в модуле Net::OSCAR метод file_send() . Насколько я понял из документации он предназначен для отправки файлов "собеседнику".
Но документация по этому методу крайне скудна, поэтому не получается его использовать.
Вот все что есть в perldoc:

file_send SCREENNAME MESSAGE FILEREFS
"FILEDATA" can be undef to have Net::OSCAR read the file, a file handle, or the data
to send.

Насколько я понял у метода должно быть три аргумента. Первый - номер собеседника, второй - сообщение, а вот с третьим разобраться не могу. Пробовал дескриптор файла и ссылку, не получилось.

Вот так примерно это выглядит

Код: Выделить всё

    my $quit=0;
    my $oscar=Net::OSCAR->new();
    $oscar->set_callback_signon_done( sub
                         {
                             my $client=shift;
                             open $fh, "<myfile.tgz";
                             $client->file_send($to, "Bla-bla-bla", \$fh);
                             #$client->send_im($to, "Bla-bla-bla");
                             $oscar->signoff;
                             close $fh;
                             $quit=1;
                         }
                        );
    $oscar->signon(1111, "password") or die("can't login");
    $oscar->do_one_loop() while(!$quit);

Собственно вопрос такой: что нужно передать третьим параметром методу file_send() модуля Net::OSCAR ?