OMnibus

#!/usr/bin/perl
use DBI;
use CGI;
$co = new CGI;

if (@ARGV) {
$Node = $ARGV[0];
$Summary = $ARGV[1];
$Identifier = $ARGV[2];
}

print $co->header;

$database="glpi";
$hostname="192.168.1.209";
$login = "root";
$mdp = "somone";
$test = "netcool";
$dsn = "DBI:mysql:database=$database;host=$hostname";
$dbh = DBI->connect($dsn, $login, $mdp) or die "Echec connexion";


$requete = "INSERT INTO `glpi_tickets` VALUES ('', '7', \"$Node\", NOW(), '', '', '', '', 'new', '', '', '', '', '', \"$Summary\", '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', \"$Identifier\" )";
$sth = $dbh->prepare($requete);

$requete2 = "select ID from glpi_tickets where Identifier = \"$Identifier\"";
$sth2 = $dbh->prepare($requete2);

$sth->execute();
$sth2->execute();

while(my @row = $sth2->fetchrow_array){
$id=$row['0'];
}

my $commandes = "./nco_sql -server PRIMARY -user root -password azerty <<EOF
update alerts.status
set TicketNumber = $id
where Identifier = '$Identifier' ;
go
exit
EOF ;";

exec $commandes;


$sth -> finish;
$sth2 -> finish;
$dbh -> disconnect;