#!/usr/bin/perl -w

use strict;
use warnings;
use time::localtime;
use Data::Dumper;
use File::Find;
use POSIX;
use Net::SMTP;
use CGI;
use DBI;
use DBD::ODBC;
use SQL::Statement;
 

    


##############################################################################################

################Anlegen der Prüfdatei Programm Status: In der Datei werden die einzelnen Programmabläufe dokumentiert ob OK oder NOK
     my $ausgabe_Datei1 = 'D:\\Perl\\DB_ABFRAGE\\Status_Programm.txt';
     open(LogDatei1,'>D:\\Perl\\DB_ABFRAGE\\Status_Programm.txt') or die "Kann Log Datei nicht anlegen : $!";
    
     my $tm  = strftime ("%H:%M:%S  %d/%m/%Y" , localtime);
     print LogDatei1 "Start des Programms TDDOUBLE.pl $tm \n\n\n";
     
##########################################################################################
# ####################################################
# parameter und funktion fuer das script einlesen 
######################################################
#Übergabe der globalen Variablen aus der main.ini Datei
     my $parameterFile = "D:\\perl\\DB_ABFRAGE\\Main.ini";  
     print LogDatei1 "Die Main.ini konnte eingelesen werden $tm \n\n\n";                                                                                                                             
     open(IN, $parameterFile) || die print LogDatei1 "Paramterfile $parameterFile nicht gefunden! Abbruch des Programms, da Parameter nicht geladen werden konnten!";  
     my @par = <IN>;                                                                    
#Übergabe der Variablen aus der Main.ini     
my $ausgabe_Datei2; 
my $Schreiben1;

                                                             
     eval( join("\n", @par) );   


##############################################################################################

################Anlegen der Prüfdatei Programm Status: In der Datei werden die einzelnen Programmabläufe dokumentiert ob OK oder NOK
     my $Ergebnis1 = $ausgabe_Datei2;
     open(LogDatei2,$Schreiben1) or die  print LogDatei1 "Kann die Ausgabedatei $ausgabe_Datei2 nicht anlegen : $!";
    
      $tm  = strftime ("%H:%M:%S  %d/%m/%Y" , localtime);
     print LogDatei2 "Ergebnis der ABFRAGE doppelte Mailadressen $tm \n\n\n";
     print LogDatei1 "Die Ausgabedatei1 $Schreiben1 konnte angelegt werden $tm \n\n\n";
##########################################################################################
#Connection SQL-Datenbank
#
# $dbh = DBI->connect("DBI:mSQL:database=$db;host=$host",
#                      undef, undef, {RaiseError => 1});
###############################################################################
# Globals
#$driver = "mSQL"; # or "mSQL1";

my $MS_SQL_SERVER_USER     = 'XXXX';
my $MS_SQL_SERVER_PASSWORD = 'XXXXX';
my $MS_SQL_SERVER_HOST     = 'jdbc:mercury:sqlserver://SERVER:HOST';
#jdbc:mercury:sqlserver:
my $dbh = DBI->connect($MS_SQL_SERVER_HOST, $MS_SQL_SERVER_USER, $MS_SQL_SERVER_PASSWORD) or die "Fehler bei Datenbankverbindung: $!";

#my $dbh;                       # database handle
my $sth;                        # statement handle
my $table = 'USER';
my $table_ref;
print LogDatei1 "Connect is OK";
        
        # Fehler werden automatisch von DBI (MODUL VON PERL) behandelt          
my %error_handling_attribs = (
                PrintError => '1',  # report errorrs via warn()
                RaiseError => '1',  # report errors via die()
        );
###############################################################################