#!/usr/bin/perl
# Perl-script zum Erstellen der Datei /etc/postfix/all_local_domains_map mit den
# Daten aus der mySQL-Datenbank "postfix" von postfix.admin
# Wir verbinden uns dabei mit dem User "amavisd_systemuser" und dem Passwort "Dj4n90_d3r_m4i153rv3r_guru"
# mit der Datenbank "postfix" auf dem mySQL-Datenbank-Server "mysql.dmz.nausch.org"
# Django : 2014-02-10
#
use DBI;
use strict;
my $config = "/etc/postfix/all_local_domains_map";
my $dbh = DBI->connect("dbi:mysql:database=postfix;host=mysql.dmz.nausch.org:3306;user=amavisd_systemuser;password=Dj4n90_d3r_m4i153rv3r_guru") || die "Cannot connect to database\n", $DBI::Errstr;

my $sth = $dbh->prepare("select domain from domain where active = '1'"); 

$sth->execute || die "failed to execute:\n ", $DBI::Errstr;

open (FH, "> $config") || die "Cannot open file\n";
while (my @row = $sth->fetchrow_array) {
    print FH join(', ', @row), "\n";
}
close FH;
$dbh->disconnect;