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(a)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(a)rfc822.org +49-5201-669912
Heisenberg may have been here.