Le script donne une erreur de base de données sur un seul système

Question

Je suis un administrateur VOIP et j'ai un script pour mettre à jour la base de données d'annuaire dans Perl qui a été achetée auprès du vendeur avant que je travaille ici.

Le script fonctionne correctement sur tous les serveurs sauf un.

#!/usr/bin/perl 
use lib "/opt/asterisk/lib/"; 
use DBI; 
use Asterisk::config; 
sub trim($); 
# database information 
$db="kesc"; 
$host="sip-ho.kesc.com.pk"; 
$userid="foo"; 
$passwd="bar"; 
$connectionInfo="dbi:mysql:$db;$host"; 
$hubname = ""; 

# make connection to database 
$dbh = DBI->connect($connectionInfo,$userid,$passwd); 
# Perl trim function to remove whitespace from the start and end of the string 
sub trim($) 
{ 
    my $string = shift; 
    $string =~ s/^\s+//; 
    $string =~ s/\s+$//; 
    return $string; 
} 

my $rc = new Asterisk::config (file=>'/etc/asterisk/sip.conf',keep_resource_array=>0); 
@list = $rc->fetch_sections_list(); 
$n = 1; 
foreach (@list) 
{ 
    if ($_ ne "general") { 

     $entry = $rc->fetch_keys_hashref(section=>$_); 
     while (my ($key, @value) = each(%$entry)) 
     { 
      if ($key eq "callerid") { 
       @vars = split('<',$value[0][0]); 
       $query = "insert into directory (extension,name,hub) values (" . trim($_) . ", '" . trim($vars[0]) . "', '$hubname') ON DUPLICATE KEY UPDATE hub='$hubname'"; 
       $sth = $dbh->prepare($query); 
       $sth->execute(); 
      } 
     } 
    } 
    $n++; 
} 

Maintenant, je reçois l'erreur ci-dessous lors de l'exécution.

DBD :: mysql :: st d'exécution a échoué: Vous avez une erreur dans votre syntaxe SQL; vérifier le manuel qui correspond à votre version du serveur MySQL pour la bonne syntaxe à utiliser « Office de l » proche « ») sur le moyeu de DUPLICATE KEY UPDATE = « » » à la ligne 1 à la ligne ./directory 39.

Je l'ai également remplacé à partir d'un autre serveur avec la même version de MySQL où cela fonctionne parfaitement.

Veuillez me guider.

Answer 1

Merci pour le code. C'est comme je le soupçonnais; vous devriez vraiment pas insérer des valeurs directement dans une instruction SQL

ligne de changement 37, 38, et 39 à cela et cela devrait fonctionner pour vous

$query = 'INSERT INTO directory (extension, name, hub) VALUES (?, ?, ?) ON DUPLICATE KEY UPDATE hub = ?'; 
$sth = $dbh->prepare($query); 
$sth->execute(trim($_), trim($vars[0]), $hubname, $hubname); 

Prenez garde que le même problème est susceptible d'exister ailleurs dans la base de code, donc il devrait vraiment être complètement passé en revue