Datenbankänderungen funktionieren mit Platzhalter nicht mehr - #194898 (Allgemeines zu Perl)

Gustl

2023-05-18 11:12

User since
2011-01-27
443 Artikel
BenutzerIn

Hallo zusammen,

ich benutze einen Webspace bei AllInkl und von heute auf morgen funktionieren DB Änderungen über Perl nicht mehr.

Ich habe ein Modul WebDB mit Modul DBI. In diesem Modul wird die Verbindung aufgebaut, was auch 1a klappt.

Hier die wichtigsten Subs:

Code (perl): (dl )

# ----------------------------------------------------------------------- 
# 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 );
}

im Script wo ich das Modul WebDB einbinde funktioniert nun dieses nicht mehr:

Code (perl): (dl )

WebDB::do("INSERT INTO table (col1, col2) VALUES ( ?, ? )", $col1, $col2);

Dies aber schon:

Code (perl): (dl )

WebDB::do("INSERT INTO table (col1, col2) VALUES ( '".$col1."', '".$col2."' )");

An den Projektdateien wurde schon laaange nichts mehr geändert.

An der Fehlermeldung komme ich gerade nicht ran. Es kommt nur immer: Internal Server Error 500

Vielleicht kann wer helfen?

Danke schonmal.

Viele Grüße