# ----------------------------------------------------------------------- 
# hier werden die aufgetretenen Fehler geloggt
# somit hat der Admin über alle auftretenden Fehler eine Übersicht
# ----------------------------------------------------------------------- 
sub failLog{
  my $failtext = shift;
  my ($file, $line, $sub) = ( caller(1) )[1,2,3];
                        
  open STDERR, ">>db_error.log" or die "db_error.log: $!";                                       
  print STDERR scalar localtime(time())." -- ".$failtext." -- File:".$file." Line:".$line." $sub\n"; 
  close (STDERR);  
}


# ----------------------------------------------------------------------- 
# Übergebenes Statement wird ausgeführt / Kein Rückgabewert
# -----------------------------------------------------------------------  
sub do{  
  my ($statement, @param) = @_; 
    
  my $sth = $dbh->prepare($statement);
  $sth->execute(@param) or die failLog( $dbh->errstr );
}