[Postfixbuch-users] Alle Mails an eine Domain löschen?

[Jan Theofel]

Hallo Ralf,

On Tue, Apr 22, 2003 at 03:31:23PM +0200, Ralf Hildebrandt wrote:
> * Jan Theofel <theofel at etes.de>:
> 
> > irgend so ein ****** versucht gerade auf eine Domain von uns SPAM zuzu-
> > stellen. Da die ganzen User die er unter der Domain erreichen will 
> > natürlich alle nicht existieren, habe ich nun hunderte von Mails in 
> > meiner mailq die an den armen Hund gehen, der die Mails angeblich
> > verschickt haben soll.
> 
> Warum nehmt ihr Mail fuer unbekannte User an?

Tun wir ja nicht. Aber es gehen dann halt unzählige Mails mit "user unknown"
wieder raus.
 
> > Der Sender ist nicht mehr das Problem (ipchains) aber ich würde nun 
> > gerne alle Mails an eine bestimmte Domain aus der mailq rauslöschen.
> > 
> > Gibt es da eine Möglichkeit?
> 
> Klar.
> 
> --- snip
> #!/usr/bin/perl
> 
> $REGEXP = shift || die "no email-adress given (regexp-style, e.g. bl.*\@yahoo.com)!";
> 
> @data = qx</usr/sbin/postqueue -p>;
> for (@data) {
>   if (/^(\w+)(\*|\!)?\s/) {
>      $queue_id = $1;
>   }
>   if($queue_id) {
>     if (/$REGEXP/i) {
>       $Q{$queue_id} = 1;
>       $queue_id = "";
>     }
>   }
> }
> 
> #open(POSTSUPER,"|cat") || die "couldn't open postsuper" ;
> open(POSTSUPER,"|postsuper -d -") || die "couldn't open postsuper" ;
> 
> foreach (keys %Q) {
>   print POSTSUPER "$_\n";
> };
> close(POSTSUPER);
> --- snip

Sieht deutlich eleganter aus, als die Perl-Zeilen, die ich hier gerade
runtergehackt habe. Aber das Prinzip ist ähnlich. ;-)

Kann man solche Aktionen erkennen um sich selbst eine Warning zu schicken
uns so einen Host schneller zu blocken?

Danke,
Jan

-- 
Jan Theofel                              Fon:  +49 (7 11) 48 90 83 - 0
ETES - EDV-Systemhaus GbR                Fax:  +49 (7 11) 48 90 83 - 50
Libanonstrasse 58 A * D-70184 Stuttgart  Web: http://www.etes.de

______________________________________
Inflex - eMail Scanning and Protection
Queries to: postmaster at etes.de