| [d27f22b] | 1 | <?php |
|---|
| 2 | // ************************************************************************************************************************************************* |
|---|
| [5070d59] | 3 | // Aplicación WEB: ogAdmWebCon |
|---|
| [d27f22b] | 4 | // Copyright 2003-2005 Jos�Manuel Alonso. Todos los derechos reservados. |
|---|
| 5 | // Vuelca archivo de fabricantes PCI |
|---|
| 6 | // ************************************************************************************************************************************************* |
|---|
| 7 | include_once("./clases/AdoPhp.php"); |
|---|
| 8 | |
|---|
| 9 | //======================================================================================================== |
|---|
| 10 | // Variables de sessi� de configuraci� de servidor y base de datos( Modificar aqu�para cambio global) |
|---|
| [5070d59] | 11 | $cnx="localhost;usuhidra;passusuhidra;bdhidra;sqlserver"; // Cadena de conexióna la base de datos |
|---|
| [d27f22b] | 12 | $ips="192.168.2.15"; // IP del servidor hidra |
|---|
| 13 | $prt="2008"; // Puerto de comunicaci� con el servidor |
|---|
| 14 | $wer="http://192.168.2.15/webhidra/pagerror.php"; // P�ina de redireccionamiento de errores |
|---|
| [5070d59] | 15 | $wac="http://192.168.2.15/webhidra/acceso.php"; // P�ina de login de la Aplicación |
|---|
| [d27f22b] | 16 | //======================================================================================================== |
|---|
| 17 | $cmd=CreaComando($cnx); // Crea objeto comando |
|---|
| 18 | if (!$cmd) die("Error de conexion"); |
|---|
| 19 | |
|---|
| 20 | $cmd->texto="DELETE FROM fabricantes"; |
|---|
| 21 | $cmd->Ejecutar(); |
|---|
| 22 | $cmd->texto="DELETE FROM pcifabricantes"; |
|---|
| 23 | $cmd->Ejecutar(); |
|---|
| 24 | |
|---|
| 25 | // Lectura del archivo de dispositivos |
|---|
| 26 | $fileparam="dispositivospci"; |
|---|
| 27 | $fp = fopen($fileparam,"r"); |
|---|
| 28 | $bufer= fread ($fp, filesize ($fileparam)); |
|---|
| 29 | fclose($fp); |
|---|
| 30 | |
|---|
| 31 | $modelo=""; |
|---|
| 32 | $nombremodelo=""; |
|---|
| 33 | $lineas=split("\n",$bufer); |
|---|
| 34 | for($i=0;$i<sizeof($lineas);$i++){ |
|---|
| 35 | $pch=substr($lineas[$i],0,1); // Primer caracter |
|---|
| 36 | if($pch=="#" ) |
|---|
| 37 | continue; |
|---|
| 38 | else{ |
|---|
| 39 | if($pch>="0" && $pch<="9"){ // Si es un número ... |
|---|
| 40 | $fabricante=substr($lineas[$i],0,4); |
|---|
| 41 | $nombrefabricante=substr($lineas[$i],4); |
|---|
| 42 | if($fabricante!="" && $nombrefabricante!=""){ |
|---|
| 43 | $cmd->texto="INSERT INTO fabricantes (codigo,nombre) VALUES (0x".$fabricante.",'".$nombrefabricante."')"; |
|---|
| 44 | $cmd->Ejecutar(); |
|---|
| 45 | echo "<br>insert:".$cmd->texto; |
|---|
| 46 | //echo "<br> Modelo:$modelo, Nombremodelo:$nombremodelo"; |
|---|
| 47 | } |
|---|
| 48 | } |
|---|
| 49 | else{ |
|---|
| 50 | if($pch==chr(9)){ // Si el primer caracter es un tabulador ... |
|---|
| 51 | $pch2=substr($lineas[$i],1,1); // Segundo caracter |
|---|
| 52 | if($pch2>="0" && $pch2<="9"){ // Si es un número ... |
|---|
| 53 | $modelo=substr($lineas[$i],1,4); |
|---|
| 54 | $nombremodelo=substr($lineas[$i],5); |
|---|
| 55 | $cmd->texto="INSERT INTO pcifabricantes(codigo1,codigo2,descripcion) VALUES (0x".$fabricante.",0x".$modelo.",'".$nombremodelo."')"; |
|---|
| 56 | $cmd->Ejecutar(); |
|---|
| 57 | echo "<br>insert:".$cmd->texto; |
|---|
| 58 | //echo "<br> Modelo:$modelo, Nombremodelo:$nombremodelo"; |
|---|
| 59 | } |
|---|
| 60 | } |
|---|
| 61 | } |
|---|
| 62 | } |
|---|
| 63 | } |
|---|
| 64 | // ************************************************************************************************************************************************* |
|---|
| [5070d59] | 65 | // Devuelve una objeto comando totalmente operativo (con la conexiónabierta) |
|---|
| [d27f22b] | 66 | // Parametros: |
|---|
| 67 | // - cadenaconexion: Una cadena con los datos necesarios para la conexi�: nombre del servidor |
|---|
| 68 | // usuario,password,base de datos,etc separados por coma |
|---|
| 69 | //________________________________________________________________________________________________________ |
|---|
| 70 | function CreaComando($cadenaconexion){ |
|---|
| 71 | $strcn=split(";",$cadenaconexion); |
|---|
| 72 | $cn=new Conexion; |
|---|
| 73 | $cmd=new Comando; |
|---|
| 74 | $cn->CadenaConexion($strcn[0],$strcn[1],$strcn[2],$strcn[3],$strcn[4]); |
|---|
| 75 | if (!$cn->Abrir()) return (false); |
|---|
| 76 | $cmd->Conexion=&$cn; |
|---|
| 77 | return($cmd); |
|---|
| 78 | } |
|---|
| 79 | ?> |
|---|
