🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: pl.comp.lang.perl
3 messages
3 total messages Started by ŁR Sun, 27 Nov 2011 12:47
zapisywanie załączników IMAP
#52321
Author: ŁR
Date: Sun, 27 Nov 2011 12:47
18 lines
1422 bytes
Witam szanowne grono.
Próbuję napisać swój pierwszy skrypt w Perlu i niby wszystko ok tylko że 
poniższe linijki zapisują mi wszystko łącznie z załącznikami i treścią 
wiadomości. Chciałbym z maila tylko załączniki. Proszę o jakąś sugestię 
jak zapisać tylko załączniki. Udało mi się to zrobić pośrednio przez 
usunięcie z kat. pliów z msg i zostawieniu tylko załączników, ale 
wygląda mi to na półśrodek :)

     my $parser = new MIME::Parser;

     $parser->output_dir($tmpdir);
     $parser->output_prefix("msg");
     $parser->tmp_dir("$tmpdir/tmp");
     $parser->parse_data($imap->message_string($i[0]));

-- 
Pozdrawiam
Łukasz
Re: zapisywanie załączników IMAP
#52322
Author: Stachu 'Dozzie' K.
Date: Sun, 27 Nov 2011 16:52
22 lines
2057 bytes
On 2011-11-27, ŁR <lukaszTylkO@WyTNIJrostalski.pl> wrote:
> Witam szanowne grono.
> Próbuję napisać swój pierwszy skrypt w Perlu i niby wszystko ok tylko że 
> poniższe linijki zapisują mi wszystko łącznie z załącznikami i treścią 
> wiadomości. Chciałbym z maila tylko załączniki. Proszę o jakąś sugestię 
> jak zapisać tylko załączniki. Udało mi się to zrobić pośrednio przez 
> usunięcie z kat. pliów z msg i zostawieniu tylko załączników, ale 
> wygląda mi to na półśrodek :)
>
>      my $parser = new MIME::Parser;
>
>      $parser->output_dir($tmpdir);
>      $parser->output_prefix("msg");
>      $parser->tmp_dir("$tmpdir/tmp");
>      $parser->parse_data($imap->message_string($i[0]));

W pierwszym rzędzie trzeba było podać, że używasz modułu
Mail::IMAPClient. Użyj funkcji bodypart_string.

-- 
Secunia non olet.
Stanislaw Klekot
Re: zapisywanie załączników IMAP
#52323
Author: ŁR
Date: Thu, 08 Dec 2011 13:57
30 lines
2119 bytes
W dniu 2011-11-27 17:52, Stachu 'Dozzie' K. pisze:
> On 2011-11-27, ŁR<lukaszTylkO@WyTNIJrostalski.pl>  wrote:
>> Witam szanowne grono.
>> Próbuję napisać swój pierwszy skrypt w Perlu i niby wszystko ok tylko że
>> poniższe linijki zapisują mi wszystko łącznie z załącznikami i treścią
>> wiadomości. Chciałbym z maila tylko załączniki. Proszę o jakąś sugestię
>> jak zapisać tylko załączniki. Udało mi się to zrobić pośrednio przez
>> usunięcie z kat. pliów z msg i zostawieniu tylko załączników, ale
>> wygląda mi to na półśrodek :)
>>
>>       my $parser = new MIME::Parser;
>>
>>       $parser->output_dir($tmpdir);
>>       $parser->output_prefix("msg");
>>       $parser->tmp_dir("$tmpdir/tmp");
>>       $parser->parse_data($imap->message_string($i[0]));
>
> W pierwszym rzędzie trzeba było podać, że używasz modułu
> Mail::IMAPClient. Użyj funkcji bodypart_string.
>

Witam,
powyższy kod zapisuje mi wiadomości na starym serwerze. Po przeniesieniu 
skryptu na nową maszynę tworzone są tylko nazwy klików msg-xxxx bez 
treści i brak jest również załączników. Co może być przyczyną? Perl 
zainstalowany z paczek w najnowszym Debianie.

-- 
Pozdrawiam
Łukasz
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads