Timo Mankartz

n-tausend eMails, ich schick sie raus

Bedingt durch die Migration des Webhostingbereiches der Heizmann und Schmitt GbR, liegen einige Aufgaben vor uns die man gerne automatisieren möchte. So z.B. die DNS Migration einiger tausend Domains die bei http.net liegen.

Erstmal Danke an Herrn Wopp, der Robin und mir telefonisch jederzeit mit Rat und Tat zur Seite stand!

Wir haben somit alle DNS Daten der Domains die bei dem Anbieter liegen über den Mail-Robot abgefragt. Schade nur, dass man für jede Domain eine eMail senden musste. Nach Rücksprache mit Herrn Wopp habe ich die eMail in 500er Paketen gesendet um einen Stau im http.net System zu verhindern.

Das Perlscript, welches ich dazu genutzt habe, sa folgendermassen aus:

#!/usr/bin/perl -w
use strict;

my $domain_file = $ARGV[0];
die “usage: $0 domainfile” unless( $domain_file and -e $domain_file );
open my $fh, ‘<’, $domain_file or die $!;

while( my $domain = <$fh> )
{
my $MailProg = ‘/usr/sbin/sendmail’;
my $MailSubject = “INFO\: $domain”;
my $text=”\#internal\: blablabla\blablabla”;
my $Mail=”dnsreg\@routing.net”;
my $From=”******\@dogado.de”;

open (EMAIL, “|$MailProg $Mail”);
print EMAIL “To: $Mail\n”;
print EMAIL “From: $From\n”;
print EMAIL “Reply-To: $From\n”;
print EMAIL “Subject: $MailSubject\n”;
print EMAIL $text;
close(EMAIL);
print “gesendet: $domain”;
}

Beim Aufruf wird eine Datei übergeben, welche pro Zeile einen Domainnamen enthält. Ein kurzer Status welche Domain gerade versendet wurde, wird beim Durchlauf ausgegeben. Nach ca. einer Stunde, mit Pausen nach den 500er Paketen, waren alle eMails versendet.

Schön zu sehen im Monitoring unseres Mailservers: