# Einstellungen fuer DB-Connect
#!/usr/bin/perl

use warnings;
use strict;
use DBI;
my $DBSYS  = "Pg";
my $DBNAME = "XXXX";
my $DBHOST = "XXXX";
my $DBPORT = "5432";
my $DBUSER = "XXXXX";
my $DBPASS = "XXXXX";

# Datenbank-Connect, automatische Ausgabe von Fehlern deaktivieren
my $data_source = "DBI:$DBSYS:dbname=$DBNAME;host=$DBHOST;port=$DBPORT";
$dbh = DBI->connect( $data_source, $DBUSER, $DBPASS, { PrintError => 0, RaiseError => 1 } )
  or die "Fehler beim Datenbankconnect: $DBI::errstr\n";