🚀 go-pugleaf

In article <d0ntbv$oii$1@newsbin.cistron.nl>,
Marco van Loon <veritech@chaos.adpolice.megatokyo.invalid> wrote:
>finger username@bsmtp.cistron.nl |less
>was een best bruikbare manier om even snel te checken of er een mailtje
>van een bekende in de BSMTP queue stond tussen de 95% spam die de
>volgende 10 minuten door het dial-up modem gepompt zouden worden...

Okee, ik heb even een script voor je in elkaar geklopt.

ssh xslogin_hier@xs4all.nl './bsmtpq.pl xslogin_hier'

Even je lokale .ssh/id_dsa.pub remote in .ssh/authorized_keys zetten
en je hoeft geen wachtwoord te geven ook.

Mike.

------8<-----snip-here----8<-----

#! /usr/bin/perl

sub usage {
	die "Usage: bsmtpq <loginname>\n";
}

sub show {
	local *FD;
	my $f = shift;
	my @s;

	open(FD, "<$f") or return;

	while(<FD>) {
		last if (/^$/);
		if (/^(Return-Path|X-XS4ALL-To|Subject)/i) {
			push @s, $_;
		}
	}
	close FD;
	print @s, "\n" if (grep(/^X-XS4ALL-To:/mi, @s));
}

usage() if ($#ARGV != 0);
my ($letter, $letter2) = ($ARGV[0] =~ m/^(.)(.)/);
my $dir = "/var/spool/mail/$letter/$letter2/$ARGV[0]/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<-----