##########################################################################################
#Connection SQL-Datenbank
#
##########################################################################################
# Globals
my $SQL_SERVER_USER     = 'xxxxx';
my $SQL_SERVER_PASSWORD = 'xxxxxxxx';


my $dbh = DBI->connect($Datenbank,$SQL_SERVER_USER, $SQL_SERVER_PASSWORD) or die print LogDatei1 "Fehler bei Datenbankverbindung: $! \n\n";
print LogDatei1 "Datenbank Connecting war ok! USER ist angemeldet! $tm \n\n";

my $sth; 			# statement handle
my $name = '_qcsiteadmin_db';
my $table_ref;

##########################################################################################
##########################################################################################
# Hauptprogramm Hier werden die SQL Abfragen gestartet
##########################################################################################
##########################################################################################
my $query = $dbh->prepare($SQLABFRAGE)or die print LogDatei1 "Fehler bei Datenbankabfrage: $! \n\n";
$query->execute;
print LogDatei1 "Absetzen der Datenbankabfrage war erfolgreich! \n\n";
# in dem namensraum deklarieren
my ($id, $zweitesfeld, $drittesfeld);

# binden der variablen an die felder
$query->bind_col(1,\$id);
$query->bind_col(2,\$zweitesfeld);
$query->bind_col(3,\$drittesfeld);
# ausgabe

print LogDatei2 "USER-ID               EMAIL                                                                             FULL_NAME    \n";
print LogDatei2 "==================    ======================================================                            ======================= \n\n";
while  (($id, $zweitesfeld, $drittesfeld) = $query->fetchrow_array() )
   {
      foreach ($id, $zweitesfeld, $drittesfeld){
         $_ = "N/A" unless defined $_;
      }
      printf LogDatei2 "%-20s  %-80s  %-32s  %s	\n" , $id, $zweitesfeld, $drittesfeld;
      
    }
print LogDatei1 "Datenbankabfrage konnte erfolgreich abgesetzt werden!\n\n";    


########################################################################################
#Datenbank schliessen
#Programm beenden
########################################################################################  

$dbh->disconnect()or die print LogDatei1 "Fehler beim disconnecten der Datenbank! \n\n";
print LogDatei1 "Verbindung zur Datenbank wurde beendet. Ergebnis wurde in die SQL_MAILADRESSEN.txt geschrieben!\n\n";
exit;