Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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");
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement