abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×

dnes 08:22 | Komunita

Grsecurity (Wikipedie) je sada bezpečnostních patchů pro linuxové jádro (porovnání se SELinuxem, AppArmorem a KSPP). Od září 2015 nejsou stabilní verze těchto patchů volně k dispozici. Dle včerejšího oznámení (FAQ) nejsou s okamžitou platností volně k dispozici už ani jejich testovací verze.

Ladislav Hagara | Komentářů: 1
včera 23:33 | Komunita

OpenBSD 6.1 vyšlo již 11. dubna. Po dvou týdnech byla vydána i oficiální píseň. Její název je Winter of 95 a k dispozici je ve formátech MP3 a OGG.

Ladislav Hagara | Komentářů: 0
včera 18:55 | Nová verze

Byla vydána verze 2017.1 linuxové distribuce navržené pro digitální forenzní analýzu a penetrační testování Kali Linux. S vydáním verze 2016.1 se Kali Linux stal průběžně aktualizovanou distribucí. Aktualizovat jej lze pomocí příkazů "apt update; apt dist-upgrade; reboot".

Ladislav Hagara | Komentářů: 0
včera 18:22 | Nová verze

Po téměř pěti letech od vydání verze 2.00 byla vydána nová stabilní verze 2.02 systémového zavaděče GNU GRUB (GRand Unified Bootloader). Přehled novinek v souboru NEWS.

Ladislav Hagara | Komentářů: 3
včera 17:55 | Komunita

Vývojáři Debianu oznámili, že od 1. listopadu letošního roku nebudou jejich archivy dostupné pomocí protokolu FTP. Již v lednu oznámil ukončení podpory FTP kernel.org (The Linux Kernel Archives).

Ladislav Hagara | Komentářů: 2
včera 17:00 | Bezpečnostní upozornění

V oblíbeném webmailu postaveném na PHP SquirrelMail (Wikipedie) byla nalezena bezpečnostní chyba CVE-2017-7692, jež může být útočníkem zneužita ke spuštění libovolných příkazů a kompletnímu ovládnutí dotčeného serveru. Zranitelnost se týká pouze instancí, kde je pro transport používán Sendmail.

Ladislav Hagara | Komentářů: 3
včera 13:11 | Zajímavý článek

Soudní dvůr Evropské unie rozhodl (tisková zpráva) ve věci C-527/15: Prodej multimediálního přehrávače, který umožňuje zdarma a jednoduše zhlédnout na televizní obrazovce filmy protiprávně zpřístupněné na internetu, může představovat porušení autorského práva.

Ladislav Hagara | Komentářů: 20
25.4. 13:33 | Pozvánky

Byly stanoveny termíny konferencí LinuxDays 2017 a OpenAlt 2017. Letošní LinuxDays proběhne o víkendu 7. a 8. října v Praze v Dejvicích v prostorách FIT ČVUT. Letošní OpenAlt proběhne o víkendu 4. a 5. listopadu na FIT VUT v Brně.

Ladislav Hagara | Komentářů: 0
25.4. 11:11 | Komunita

Jiří Eischmann z desktopového týmu Red Hatu se v příspěvku Linuxový desktop: Co vám chybí na svém blogu ptá, co uživatele na Fedora Workstation a na linuxovém desktopu obecně trápí a co by desktopový tým mohl zlepšit. Pokud máte nějaké podněty, napište mu je do komentářů.

Ladislav Hagara | Komentářů: 72
25.4. 03:33 | Nová verze

Byla vydána nová verze 0.25.0 multimediálního přehrávače mpv (Wikipedie) vycházejícího z přehrávačů MPlayer a mplayer2. Z novinek lze zmínit například podporu DVB-T2. Další části mpv byly přelicencovány z GPLv2 nebo novější na LGPLv2.1 nebo novější (#2033).

Ladislav Hagara | Komentářů: 0
Chystáte se pořídit CPU AMD Ryzen?
 (4%)
 (34%)
 (1%)
 (6%)
 (45%)
 (10%)
Celkem 312 hlasů
 Komentářů: 50, poslední dnes 04:06
    Rozcestník

    Dotaz: Perl MIME::Parser - jak ziskat text zpravy

    15.10.2005 00:22 Zubbik
    Perl MIME::Parser - jak ziskat text zpravy
    Přečteno: 335×
    Ahoj, uz nejakou tu chvili se tu potykam s problemem, jak dostat text z tela e-mailu. Timto stylem ziskavam ostatni hodnoty, ktere potrebuji:
    my $parser=new MIME::Parser;
    $parser->ignore_errors(1);
    $parser->extract_uuencode(1);
    $parser->tmp_recycling(0);
    $parser->output_to_core(1);
    my $entity=$parser->parse(\*STDIN);
    
    my $from=$entity->head->get('From');
    my $to=$entity->head->get('To');
    my $subject=$entity->head->get('Subject');
    Poradite mi nekdo, jak z toho dostat i telo zpravy?

    Diky

    Odpovědi

    15.10.2005 00:44 unchallenger | skóre: 69 | blog: unchallenger
    Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
    Zkusils vyhledávání? Dokonce jsem sem snad někdy dával celý skript, který to používal.
    15.10.2005 10:24 Zubbik
    Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
    Zkusil jsem vyhledavani zde, zkusil jsem vyhledavani v Googlu, procetl jsem kde co, ale proste ten text z toho nemuzu dostat. Dostanu z toho e-mailu vsechno vcetne priloh, ale s textem zpravy si proste nevim rady. :-(
    15.10.2005 10:34 unchallenger | skóre: 69 | blog: unchallenger
    Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
    Mezi tělem zprávy a příhlohami není žádný rozdíl. Dostaneš-li všechny přílohy, je mezi nimi i tělo zprávy.
    15.10.2005 10:50 Zubbik
    Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
    A dokazal bys mi poradit konkretne, kdyz prilohy ukladam nize uvedenym stylem, jak z toho to telo zpravy dostat?
    my @parts=$entity->parts;
    my $aname='attachment001';
    while(my $part = shift(@parts)) {
        if($part->parts) {
            push @parts,$part->parts; # Nested multi-part
            next;
        }
        my $type=$part->head->mime_type || $part->head->effective_type;
        if($type !~ /^(text|message)/i) { # Not a text, save it
            my $filename=$part->head->recommended_filename || $aname;
            $aname++;
            my $io=$part->open("r");
            open(F,"> $attachdir/$filename");
            my $buf;
            while($io->read($buf,1024)) {
                print F $buf;
            }
            close(F);
            $io->close;
        }
    }
    15.10.2005 11:02 unchallenger | skóre: 69 | blog: unchallenger
    Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
    Perl je write-only, takže ne ;-)

    Ale následující triviální skript uloží do aktuálního adresáře přílohy jednoho mailu ze standardního výstupu pod jejich názvy a tělo mailu pod názvem typu msg-28630-1.txt (to je defaultní nastavení, předefinování jsem ukazoval v nějaké minulé diskusi):
    #!/usr/bin/perl
    use MIME::Parser;
    
    my $parser = new MIME::Parser;
    $parser->output_dir('.');
    undef $/;
    $parser->parse_data( <STDIN> );
    
    15.10.2005 11:23 unchallenger | skóre: 69 | blog: unchallenger
    Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
    s/standardního výstupu/standardního vstupu/
    15.10.2005 11:37 Zubbik
    Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
    Jak jednoduche. V tom mym skriptu, ktery jsem mimo jine nasel nekde tady :-), staci pouze zakomentovat podminky, ktere urcuji, aby se ulozily pouze prilohy. Potom se mi ulozi i telo. A to melo napadlo na zaklade tveho jednoducheho skriptiku. :-)

    Dik za pomoc.
    15.10.2005 13:27 goldenfish | skóre: 38 | blog: aqarium | Praha
    Rozbalit Rozbalit vše Re: Perl MIME::Parser - jak ziskat text zpravy
    nevim na co to potrebujete, ale mozna by postacil grepmail. zalezi ale skutecne, na co to pouzivate (aplikace, vystup z shellu).

    bye gf
    Pavel Kysilka - www.linuxsoft.cz

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.