Forum Webscript.Ru

Программирование => Perl => Тема начата: Black Rabbit от 17 Июня 2006, 02:02:37

Название: IMAP и флаги сообщений
Отправлено: Black Rabbit от 17 Июня 2006, 02:02:37

Всем привет!
Возникла такая проблема: пытаюсь при помощью модуля Mail::IMAPClient получить список писем в ящике
Вот функция

Код: [Выделить]


sub getMSGlist{
 my $self  = shift;
 my $folder = @_[0];
 my @msgs =();
 $self->{imap}->select($folder);
 
 my @uids = $self->{imap}->search("ALL");

 my $flaghash = $self->{imap}->flags(scalar(@uids));

 for my $msg(@uids)
   {
     my $h = $self->{imap}->parse_headers($msg,"Date","Subject","From","Message-ID")||throwError("failed to receive messages list");

     push @msgs,{
                  id         => $msg,
                  title      => $h->{\'Subject\'}[0],
                  flags       => join(\',\',@{$flaghash->{$msg}})

                };
             
     }
     
 @msgs;
}



На строчке  my $flaghash = $self->{imap}->flags(scalar(@uids)) программа вылетает. Если кто разбирался с Mail::IMAPClient  подскажите пожалуйста, в чем может быть причина