Neu dazu

git-svn-id: http://svn.brehm-online.com/svn/my-stuff/postfix@20 ec8d2aa5-1599-4edb-8739-2b3a1bc399aa

diff --git a/get-lookup-tables.pl b/get-lookup-tables.pl
new file mode 100755 (executable)
index 0000000..81e7a3d
--- /dev/null
+++ b/get-lookup-tables.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+
+# $Id$
+# $URL$
+
+use strict;
+use warnings;
+
+use File::Spec::Functions;
+use Config::General;
+use File::Basename;
+use Cwd qw( abs_path );
+use DBI;
+
+$| = 1;
+
+
+my $basename    = basename($0);
+$basename       =~ s/\.pl$//i;
+my $postfix_dir = abs_path( catfile( '', 'etc', 'postfix' ) );
+my $conf        = abs_path( catfile( $postfix_dir, $basename . ".conf" ) );
+
+unless ( -d $postfix_dir ) {
+    die "Verzeichnis '$postfix_dir' existiert nicht.\n";
+}
+
+die "Datei '$conf' existiert nicht.\n" unless -f $conf;
+
+
+
+__END__
+
+# vim: ts=4 syntax=perl expandtab