Byla vydána Beta 1 verze KDE 6 (Plasma, Frameworks a Gear) postavené na Qt 6. Testovat lze například v distribuci KDE Neon. Stabilní verze je plánována na konec února 2024. Předchozí velké vydání 5 vylo vydáno téměř před 10 lety (červenec 2014).
Open-source webmail Roundcube se připojil k balíku aplikací Nextcloudu. Převzetí firmou Nextcloud ale plánováno není, pouze integrace a podpoření vývoje.
Stability AI představila SDXL Turbo, tj. umělou inteligenci pro generování obrázků z textového popisu v reálném čase, viz ukázka na YouTube.
Svobodná webová platforma pro sdílení a přehrávání videí PeerTube (Wikipedie) byla vydána v nové major verzi 6. Přehled novinek i s náhledy a videi v oficiálním oznámení a na GitHubu (6.0.0, 6.0.1).
S eDoklady lze mít od ledna 2024 občanku v mobilní aplikaci [Digitální a informační agentura – DIA].
Google představil novou doménu nejvyššího řádu: .meme. Viz například knowyour.meme nebo find.meme.
IKEA představila 3 senzory pro chytrou domácnost: senzor na dveře a okna PARASOLL, bezdrátový pohybový senzor VALLHORN a senzor úniku vody BADRING. Budou kompatibilní s Home Assistant?
Weston, referenční implementace kompozitoru pro Wayland, byl vydán ve verzi 13.0.0. Přehled novinek v oznámení.
Laboratoře CZ.NIC vydaly novou verzi 4.23.0 aplikace Datovka, tj. svobodné multiplatformní desktopové aplikace pro přístup k datovým schránkám a k trvalému uchovávání datových zpráv v lokální databázi. Přidána byla podpora pro velkoobjemové datové zprávy (VoDZ) a pro typy datových schránek PFO_ARCH, PFO_AIAT a PFO_AZI. Další novinkou je pamatování velikosti dialogových oken, pozice ovládacích prvků, šířek sloupců a řazení položek
… více »Distribuce Tails specializující se ochranu online soukromí uživatele byla vydána ve verzi 5.20. Mimo jiné aktualizuje Tor Browser (13.0.4) a Thunderbird (115.5), opravuje několik chyb.
Return-Path: <www-data@xxx.cz>
Delivered-To: bad-header-quarantine
X-Envelope-From: <www-data@xxx.cz>
X-Envelope-To: <info@xxx.eu>
X-Quarantine-ID: <5x5tiQaaevhN>
X-Amavis-Alert: BAD HEADER Non-encoded 8-bit data (char E1 hex): Subject:
Rozd\341v\341me pen\355ze!\n
Received: from yyy.xxx.cz ([127.0.0.1])
by localhost (yyy.xxx.cz [127.0.0.1]) (amavisd-new, port 10024)
with ESMTP id 5x5tiQaaevhN for <info@xxx.eu>
Sun, 9 Dec 2007 08:26:27 +0100 (CET)
Received: from apache.xxx.cz (apache.superhosting.cz [88.86.xxx.xxx])
by mx1.xxx.cz (Postfix) with ESMTP id 766CEB7BE8
for <info@xxx.eu> Sun, 9 Dec 2007 08:26:27 +0100 (CET)
Received: by apache.xxx.cz (Postfix, from userid 33)
id 7D3A99C36B; Sun, 9 Dec 2007 08:25:02 +0100 (CET)
To: info@xxx.eu
Subject: tohel je subject
From: info@xxx.cz
X-Mailer: PHP
X-Priority: 1
Content-Type: text/html; charset=windows-1250
Message-Id: <20071209072502.7D3A99C36B@apache.xxx.cz>
Date: Sun, 9 Dec 2007 08:25:02 +0100 (CET)
Toto je text,tery potrebuju vytahnout do perlu
bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla
Dokazal by někdo poradit jak na to?
perl -00 -e 'print $1,"\n" if <>=~/^Subject:(.*)$/m;print while <>;'
# xyz.pl use Mail::Audit; my $mail = new Mail::Audit; print "Subject: ", $mail->subject, "\n"; print "Body: ", $mail->body, "\n";Použitie:
A co treba nasledujici (neodzkouseno). Vyzaduje soubor s maily jako parametr
#!/usr/bin/perl -w my $filename = shift @ARGV; if (!$filename || -r $filename) { die "Nelze cist soubor s maily"; } my $mgr = Mail::Box::Manager->new; my $folder = $mgr->open($filename); foreach my $message ($folder->messages) { print $message->get('Subject') || '<no subject>', "\n"; print $message->string || '<no body>', "\n\n"; } $folder->close;
Ani jsem si to po sobe neprecetl Chybi mi tam use pro modul Mail::Box::Manager, takze jeste jednou a s kontrolou chyb.
#!/usr/bin/perl -w use Mail::Box::Manager; if (@ARGV != 1) { die "Usage: $0 soubor_se_zpravami\n"; } my $filename = shift @ARGV; if (! -r $filename) { die "Nelze cist soubor se zpravami"; } my $mgr = Mail::Box::Manager->new; my $folder = $mgr->open($filename); if (! defined $folder) { die "Nelze cist soubor se zpravami: $!"; } foreach my $message ($folder->messages) { print $message->get('Subject') || '<no subject>', "\n"; print $message->string || '<no body>', "\n\n"; } $folder->close;
delli:~/perl/# ./mail.pl emaily
delli:~/perl/#
Nevite nekdo prosim proc?
Return-Path: <www-data@xxx.cz>
Delivered-To: bad-header-quarantine
X-Envelope-From: <www-data@xxx.cz>
X-Envelope-To: <info@xxx.eu>
X-Quarantine-ID: <5x5tiQaaevhN>
X-Amavis-Alert: BAD HEADER Non-encoded 8-bit data (char E1 hex): Subject:
Rozd\341v\341me pen\355ze!\n
Received: from yyy.xxx.cz ([127.0.0.1])
by localhost (yyy.xxx.cz [127.0.0.1]) (amavisd-new, port 10024)
with ESMTP id 5x5tiQaaevhN for <info@xxx.eu>
Sun, 9 Dec 2007 08:26:27 +0100 (CET)
Received: from apache.xxx.cz (apache.superhosting.cz [88.86.xxx.xxx])
by mx1.xxx.cz (Postfix) with ESMTP id 766CEB7BE8
for <info@xxx.eu> Sun, 9 Dec 2007 08:26:27 +0100 (CET)
Received: by apache.xxx.cz (Postfix, from userid 33)
id 7D3A99C36B; Sun, 9 Dec 2007 08:25:02 +0100 (CET)
To: info@xxx.eu
Subject: tohel je subject
From: info@xxx.cz
X-Mailer: PHP
X-Priority: 1
Content-Type: text/html; charset=windows-1250
Message-Id: <20071209072502.7D3A99C36B@apache.xxx.cz>
Date: Sun, 9 Dec 2007 08:25:02 +0100 (CET)
Toto je text,tery potrebuju vytahnout do perlu
bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla bla
Hmmm, opravdu to nefunguje a navic mam v cygwinu nejake problemy se zamykanim / mazanim souboru. Zkus tento kod. Tentokrat jsem si to i vyzkousel, takze by mel chodit. Pouziti je: perl ./script.pl email
. Predpoklada jeden email v jednom souboru. Je zapotrebi minimalne modul Mail::Box - pokud nemas, nainstalujes pres balickovaci system tve distribuce ci primo z CPANu.
use strict; use Mail::Box::Parser::Perl; sub get_subject { my $parser = shift; my ($where, @header) = $parser->readHeader; my $result; for (my $i = 1; $i < @header; $i++) { if ($header[$i][0] =~ /^Subject$/i) { $result = $header[$i][1]; chomp $result; } } return $result; } sub get_body { my $parser = shift; my ($start, $stop, $content) = $parser->bodyAsString(); return $content; } my $filename; my $mbp; my $subj; my $body; $filename = shift @ARGV; if (!$filename) { die "Missing param - filename"; } $mbp = Mail::Box::Parser::Perl->new(filename => $filename); $mbp->start(); $subj = get_subject($mbp); $body = get_body($mbp); print 'SUBJ: ', $subj ? $subj : '<no subject>', "\n"; print 'BODY: ', $body ? $body : '<no body>', "\n"; $mbp->stop();
Tiskni
Sdílej: