daily pastebin goal
62%
SHARE
TWEET

Untitled

a guest Jun 18th, 2017 52 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. #Luego usamos las liberias correspondientes, recuarda utilizar el manager package perl, para bajarlas de internet, colocando:
  3.  
  4. use CGI::Carp qw(fatalsToBrowser);
  5.  
  6. use DBI;
  7. #Datos de la conexión
  8.  
  9.  
  10.  
  11. $basedatos="test";
  12. #$host="localhost";
  13. #$puerto="3306";
  14. $usuario="root";
  15. $contrasena="";
  16. # Solo en caso que la base de datos no sea local $infoconexion="dbi:mysql:$basedatos;$host:$port" or die "Connection Error: $DBI::errstr\n";;
  17. $infoconexion="dbi:mysql:$basedatos;" or die "Connection Error: $DBI::errstr\n";;
  18.  
  19.  
  20. #Realizamos la conexión a la base de datos
  21. $db = DBI->connect($infoconexion,$usuario,$contrasena);
  22.  
  23. $consulta = $db->prepare("TRUNCATE posicion_usuario");
  24. $consulta->execute();
  25.  
  26. $consulta = $db->prepare("TRUNCATE usuario");
  27. $consulta->execute();
  28.  
  29.  local $ENV{"PATH"} = "/bin:/usr/local/bin:/usr/bin";
  30.  
  31. print exec("COTAP_down.bat");
  32. print exec("COTAP_up.bat");
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top