🚀 go-pugleaf

In article <d0nvd8$gt1$1@news.cistron.nl>,
Miquel van Smoorenburg <miquels@xs4all.invalid> wrote:
[...]
>my ($letter, $letter2) = ($ARGV[0] =~ m/^(.)(.)/);
>my $dir = "/var/spool/mail/$letter/$letter2/$ARGV[0]/new";

Um.... dit gaat op korte termijn stuk, je mag niet uitgaan van
die onderverdeling in /var/spool/mail/u/s/username. Ik hoop
niet dat er meer mensen zijn die die paden hardcoded hebben
(en zo ja: dan heb je pech).

De enige juiste oplossing is $MAIL gebruiken. Je mag toch
geen mail lezen van iemand anders dan je eigen uid, dus

my $dir = $ENV{MAIL} . "/new";

>usage() unless (-d $dir);
>
>chdir($dir) or die "$dir: $!\n";
>
>opendir(D, ".");
>while (my $f = readdir(D)) {
>	show($f) if (-f  $f);
>}
>closedir D;
>
>1;
>
>------8<-----snip-here----8<-----

Nog makkelijker/beter portable is iets met Net::POP3 in elkaar
zetten wat alleen de headers inleest. Magoed, het ging Mike 
voornamelijk om het principe te laten zien, als je je bSMTP
queue wil bekijken zijn daar genoeg mogelijkheden voor.

-- 
#!perl -wpl # mmfppfmpmmpp mmpffm <pmmppfmfpppppfmmmf@fpffmm4mmmpmfpmf.ppppmf>
$p=3-2*/[^\W\dmpf_]/i;s.[a-z]{$p}.vec($f=join('',$p-1?chr(sub{$_[0]*9+$_[1]*3+
$_[2]}->(map{/p|f/i+/f/i}split//,$&)+97):qw(m p f)[map{((ord$&)%32-1)/$_%3}(9,
3,1)]),5,1)='`'lt$&;$f.eig;                                # Jan-Pieter Cornet