You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

67 lines
1.4 KiB

4 years ago
  1. <?php
  2. require_once "/var/www/html/dionisio/prgdmug/F_DMUG.php";
  3. $v_user = "";
  4. $v_pass = "";
  5. foreach($_POST as $campo => $valor)
  6. {
  7. if($campo=="username")
  8. $v_user=$valor;
  9. if($campo=="pass")
  10. $v_pass=$valor;
  11. }
  12. $server= "localhost";
  13. $port = 1030;
  14. $hs = "DEMIURGO10-MCANET";
  15. $user = "general";
  16. $pass = "123456789";
  17. $pid = getmypid();
  18. $limit = 100;
  19. $veces_error_server = 0;
  20. /* Crea un objeto para el manejo postgres */
  21. $ConDMUG = new ConexDMUG( $server , $port , $hs ,$user , $pass );
  22. $ConDMUG->SetProgram( "asigcli_valida_user" );
  23. $ConDMUG->SetParameter( "qp" , "login" );
  24. $ConDMUG->SetParameter( "qp" , "login" );
  25. $ConDMUG->SetParameter( "usuario" , $v_user );
  26. #$ConDMUG->SetParameter( "usuario" , $v_user );
  27. $ConDMUG->SetParameter( "clave" , $v_pass );
  28. #$ConDMUG->SetParameter( "clave" , $v_pass );
  29. if ( $ConDMUG->Execute_DMUG() < 0)
  30. {
  31. $veces_error_server++;
  32. if ( $veces_error_server > 2 )
  33. {
  34. Finalizar();
  35. }
  36. sleep(3);
  37. continue;
  38. }
  39. $RESULTADO = $ConDMUG->GetChild( "STRERROR" );
  40. //echo json_encode($ConDMUG->xmlrequest);
  41. $ConDMUG->CloseConex();
  42. // Finalizar();
  43. /***********************************************************************/
  44. function Finalizar()
  45. {
  46. exit();
  47. }
  48. ?>
  49. ?>