ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Dolgan                    2:5020/400     05 Feb 2003  12:33:39
 To : All
 Subject : Multipart attachments
 -------------------------------------------------------------------------------- 
 

 
 Опять торможу. Hаверное, пора в чайники :(((
 Hормальные вложения выбираются нормально,
 а вытянуть вложение из вложения не могу.
 Хотя MIME::Parser его выделяет(временный файл создается).
 Hо: сложное вложение не определяется как is_multipart
 (во всяком случае Dumper не показывает "multipart-mixed")
 Вот такой кусок:
 Что и где я потерял?
 
 ##########################
 sub ent_handler{
    my $ent = shift;
    if($ent->is_multipart){
      multipart_handler($ent);
    }
    else{
      part_handler($ent);
    }
 }
 sub multipart_handler{
    my $ent = shift;
    my @parts = $ent->parts;
    my @atts = grep $_->mime_type ne 'text/plain', @parts;
    foreach(@atts){
      ent_handler($_);
    }
 }
 sub part_handler{
    my $part = shift;
    my $head = $part->head;
    my $body = $part->bodyhandle;
    my $name = $head->get('Content-Disposition');
    save_att($body,$name);
 }
 #################################
 
 Спасибо.
 Константин
 
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор