[Mailman-Users] Finding subject text (solved)
Sven Schmidt
sven at root2.schroederhost.de
Tue May 20 12:51:58 CEST 2008
Mark Sapiro schrieb:
> So there was a prior server involved. Are you sure the messages with
> prefixed subject are not coming from that server, or if they are
> coming from the new server, that the admin interface isn't going to
> the old server.
Someone has put a script into the alias DB.
#!/usr/bin/perl
use Date::Format;
@lt = localtime(time);
$template="%Y-%m";
$datestr=time2str($template, time);
$pipe="|/var/lib/mailman/mail/wrapper post listname";
$counterfile="/var/local/MAInfocounter";
open(CF,"+<",$counterfile);
while (<CF>){
$mano=$_;
}
$mano++;
print $mano;
seek(CF,0,0);
print CF $mano;
close(CF);
open(PH,$pipe) || die "cannot open Pipe";
while (<STDIN>) {
$_ =~ s/^Subject: /Subject: [Infolist $datestr Nr.$mano] /;
print PH $_;
}
close(PH);
More information about the Mailman-Users
mailing list