🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.perl
Article #51975

Zonk ...

#51975
From: mrek
Date: Tue, 14 Sep 2010 14:47
61 lines
4392 bytes
Witam.

Mam na "warsztacie" skrypt do sprawdzania zawartości skrzynki pocztowej.
Możliwe, że będzie punktem wyjścia do dalszych wariacji w temacie
sprawdzania skrzynki np. sygnalizowania donośnie (dźwiękiem) nadejścia
nowych wiadomości itp. Na tą chwilę dopracowuję jednak wyłuskiwanie i
wyświetlanie tematu.
Poniżej dołączyłem wynik działania tegoż skryptu - fragment listy tematów
w postaci surowej i przetworzonej. Wygląda na to że działa poprawnie.
Parafrazując prawa Tima jeżeli coś ma się zepsuć to na pewno się zepsuje
;-). Wśród tematów wiadomości pojawił się zonk - temat nr 64 - brak
kodowania ... - jak do tego podejść?

$VAR1 = 'Nowe oferty 13-09-2010';
73 - Nowe oferty 13-09-2010
----------------------------------------------------------------------------
$VAR1 = 'wolfgang.pl - zamówienie: 6292'; 72 - wolfgang.pl - zamówienie:
6292
----------------------------------------------------------------------------
$VAR1 = 'Jak pieniadze pacjentow zmieniaja wlasciciela'; 71 - Jak
pieniadze pacjentow zmieniaja wlasciciela
----------------------------------------------------------------------------
$VAR1 =
'=?UTF-8?B?UG93aWFkb21pZW5pZSBvIGFrdHl3bm/Fm2NpIHpuYWpvbXljaCBuYSA=?=
=?UTF-8?B?bmsucGwgKDIwMTAtMDktMTIp?='; 70 - Powiadomienie o aktywności
znajomych na nk.pl (2010-09-12)
----------------------------------------------------------------------------
$VAR1 = 'Inwazja =?ISO-8859-2?Q?=A6wiat=B3a?= - kup bilet na Allegro'; 69
- Inwazja Światła - kup bilet na Allegro
----------------------------------------------------------------------------
$VAR1 = 'YOUR LINUX TODAY NEWSLETTER FOR September 10, 2010'; 68 - YOUR
LINUX TODAY NEWSLETTER FOR September 10, 2010
----------------------------------------------------------------------------
$VAR1 =
'=?iso-8859-2?Q?W_Skalniku_skupujemy_stare_=B6piwory_i_dajemy_co_trzeci_?=
=?iso-8859-2?Q?=B6piw=F3r_Marmot_Wave_za_darmo?='; 67 - W Skalniku
skupujemy stare śpiwory i dajemy co trzeci śpiwór Marmot Wave za darmo
----------------------------------------------------------------------------
$VAR1 = 'Issue Special:  Analog & Digitial ICs'; 66 - Issue Special:
Analog & Digitial ICs
----------------------------------------------------------------------------
$VAR1 = '=?utf-8?B?TmEgd2Vla2VuZDoga2xhd2lhdHVyYSArIG15c3ogemEgcMOz?=
=?utf-8?B?xYIgY2VueSE=?='; 65 - Na weekend: klawiatura + mysz za pół ceny!
----------------------------------------------------------------------------
$VAR1 = '[SUSPECTED SPAM]=W co warto =?UNKNOWN?Q?inwestowa=E6=3D?=
iccuxw'; 64 - [SUSPECTED SPAM]=W co warto inwestować= iccuxw
----------------------------------------------------------------------------
$VAR1 = 'YOUR LINUX TODAY NEWSLETTER FOR September  9, 2010'; 63 - YOUR
LINUX TODAY NEWSLETTER FOR September 9, 2010
----------------------------------------------------------------------------
$VAR1 = 'Your Linux Today Security Letter for September  9, 2010'; 62 -
Your Linux Today Security Letter for September 9, 2010
----------------------------------------------------------------------------
$VAR1 = 'Dr. Dobb\'s Update - 09/09/10 - More Windows, Windows, Windows';
61 - Dr. Dobb's Update - 09/09/10 - More Windows, Windows, Windows
----------------------------------------------------------------------------
$VAR1 =
'=?utf-8?B?RGFyb3dpem55IG9kIHBhbmkgQ0FUSFJJTkUgRU1NRVIgQUtJU1NJLCBQcm9z?=
=?utf-8?B?esSZIG1pIGRhxIcgc3p5YmtpZWogcmVha2NqaS4=?='; 60 - Darowizny od
pani CATHRINE EMMER AKISSI, Proszę mi dać szybkiej reakcji.
----------------------------------------------------------------------------
Technical Details
Message-ID: <4c8f8b18$0$22800$65785112@news.neostrada.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-a-02.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-a-02.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail
From: mrek <marq@iq.pl>
Subject: Zonk ...
To: marq@iq.pl
Newsgroups: pl.comp.lang.perl
User-Agent: Pan/0.132 (Waxed in Black)
MIME-Version: 1.0
Date: 14 Sep 2010 14:47:52 GMT
Lines: 62
Message-ID: <4c8f8b18$0$22800$65785112@news.neostrada.pl>
Organization: Telekomunikacja Polska
NNTP-Posting-Host: 95.48.69.238
X-Trace: 1284475672 unt-rea-b-01.news.neostrada.pl 22800 95.48.69.238:56372
X-Complaints-To: abuse@news.neostrada.pl
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit