[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