#!/usr/bin/perl
#Luego usamos las liberias correspondientes, recuarda utilizar el manager package perl, para bajarlas de internet, colocando:

use CGI::Carp qw(fatalsToBrowser);

use DBI;
#Datos de la conexión



$basedatos="test";
#$host="localhost";
#$puerto="3306";
$usuario="root";
$contrasena="";
# Solo en caso que la base de datos no sea local $infoconexion="dbi:mysql:$basedatos;$host:$port" or die "Connection Error: $DBI::errstr\n";;
$infoconexion="dbi:mysql:$basedatos;" or die "Connection Error: $DBI::errstr\n";;


#Realizamos la conexión a la base de datos
$db = DBI->connect($infoconexion,$usuario,$contrasena);

$consulta = $db->prepare("TRUNCATE posicion_usuario");
$consulta->execute();

$consulta = $db->prepare("TRUNCATE usuario");
$consulta->execute();

 local $ENV{"PATH"} = "/bin:/usr/local/bin:/usr/bin";

print exec("COTAP_down.bat");
print exec("COTAP_up.bat");