mutt im mail edit mode
Florian Lohoff
flo at rfc822.org
Sun Jun 2 20:24:02 CEST 2002
Hi,
ich suche noch nach einer eleganten moeglichkeit direkt via command
line options im mutt in den mail edit mode zu springen. D.h. ich habe
eine mail (body) blos recipients und subject - Jetzt wuerde ich gerne
mutt aufrufen der sofort in den edit mode der mail spring und damit
meinen externen editor (vi) aufruft. D.h. ich kann dann noch schnell
korrekturen ausfuehren und dann die mail schicken.
Das ganze hat den zweck mein spam relay processing einfacher zu machen.
Ich habe nen kleines script was bereits den mailheader eine mail
durchpfluegt und mir die ip addressen extrahiert und diese via orbd
nachschlaegt. Jetzt wuerde ich gerne in dem fall das keine ip addresse
via ordb gelistet ist und nicht nur meine drin stehen sofort eine
mail fuer submit at ordb.org schreiben und in den edit mode springen.
#!/usr/bin/perl -sw
my $date;
my @addresses;
# Extract all ip addresses from mail header
while(<>) {
chomp();
last if (/^$/);
if (/^Date: (.*)/) {
$date=$1;
}
if (/^Message-ID: (.*)/i) {
$msgid=$1;
}
while(s/([\d]{1,3}\.[\d]{1,3}\.[\d]{1,3}\.[\d]{1,3})//) {
push @addresses,$1;
}
}
printf("MsgID: %s\n", $msgid);
# look on mail addresses
foreach my $addr ( @addresses ) {
my (@q) = split(/\./, $addr);
my $rev=sprintf("%d.%d.%d.%d.relays.ordb.org",
$q[3], $q[2], $q[1], $q[0]);
my $ordb=`host $rev 2>&1`;
my $result=($ordb =~ /127.0.0/) ? "listed" : "unlisted";
printf("%-15s %-35s %-10s\n", $addr, $rev, $result);
}
Alternativ das ganze in eine datei - Selber vi aufrufen und via mails
verschicken - nachteil - Wird wieder nicht im FCC folder archiviert -
Signature fehlt etc ...
Flo
--
Florian Lohoff flo at rfc822.org +49-5201-669912
Heisenberg may have been here.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 232 bytes
Desc: not available
URL: <http://lug-owl.de/pipermail/linux/attachments/20020602/fb66d1f0/attachment.sig>
More information about the Linux
mailing list