Foro - Perl en Español

por **juanzapatac** » 2011-02-21 12:15 @552

Hola.

Soy nuevo en Perl y quiero hacer un formulario que me envíe 2 datos a un archivo .pm usando JavaScript y PHP.
He revisado que Perl esté bien configurado y que me responda correctamente en línea de comandos.

El problema lo tengo al llamar desde JavaScript.
Creo que es mejor con código:
Formulario en PHP:

Sintáxis: [ Descargar ] [ Ocultar ]

Using php Syntax Highlighting

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <title>Very simple login using Perl, jQuery, Ajax, JSON and MySQL</title>
    <link rel="stylesheet" type="text/css" media="screen, projection"
      href="http://www.blueprintcss.org/blueprint/screen.css" />
    <link rel="stylesheet"  type="text/css" media="screen, projection"
      href="http://www.blueprintcss.org/blueprint/plugins/buttons/screen.css" />
    <link rel="stylesheet" type="text/css" media="print"
      href="http://www.blueprintcss.org/blueprint/print.css" />
    <!--[if IE]><link rel="stylesheet" type="text/css" media="screen, projection"
      href="http://www.blueprintcss.org/blueprint/ie.css"><![endif]-->
    <script type="text/javascript"
      src="http://code.jquery.com/jquery-1.4.4.min.js"></script>
    <script type="text/javascript" src="js/test.js"></script>
    <style type="text/css">
      #loginContent { width: 350px; margin: 100px auto; }
      button[type] { margin: 0.5em 0; }
    </style>
  </head>
  <body>
    <div id="whoisContent" class="container">
      <div id="whoisResult" style="display:none;">
      </div>
      <form id="whoisForm" name="whoisForm" method="post" action="">
        <fieldset>
          <legend>Enter information</legend>
          <p>
            <label for="domain">Dominio</label>
            <br />
            <input type="text" id="domain" name="domain" class="text" size="20" />
          </p>
          <p>
            <label for="extension">Extension</label>
            <br />
            <input type="extension" id="extension" name="extension" class="text" size="20" />
          </p>
          <p>
            <button type="submit" class="button positive">
             <img alt="ok" src=
             "http://www.blueprintcss.org/blueprint/plugins/buttons/icons/tick.png" />
             Buscar
            </button>
          </p>
        </fieldset>
      </form>
    </div>
  </body>
</html>
Coloreado en 0.024 segundos,  usando GeSHi 1.0.8.4

Ahora test.js que está en el directorio js/:

Sintáxis: [ Descargar ] [ Ocultar ]

Using javascript Syntax Highlighting

$(document).ready(function(){
  $("form#whoisForm").submit(function() { // whoisForm is submitted
    var domain = $('#domain').attr('value'); // get domain
    var extension = $('#extension').attr('value'); // get extension
 
    if (domain && extension) { // values are not empty
      $.ajax({
        type: "GET",
        url: "cgi-bin/whois.pl", // URL of the Perl script
        contentType: "application/json; charset=utf-8",
        dataType: "json",
        // send domain and extension as parameters to the Perl script
        data: "domain=" + domain + "&extension=" + extension,
        // script call was *not* successful
        error: function(XMLHttpRequest, textStatus, errorThrown) {
          $('div#whoisResult').text("responseText: " + XMLHttpRequest.responseText
            + ", textStatus: " + textStatus
            + ", errorThrown: " + errorThrown);
          $('div#whoisResult').addClass("error");
        }, // error
        // script call was successful
        // data contains the JSON values returned by the Perl script
        success: function(data){
          if (data.error) { // script returned error
            $('div#whoisResult').text("data.error: " + data.error);
            $('div#whoisResult').addClass("error");
          } // if
          else { // login was successful
            $('form#whoisForm').hide();
            $('div#whoisResult').text("data.success: " + data.success
              + ", data.userid: " + data.userid);
            $('div#whoisResult').addClass("success");
          } //else
        } // success
      }); // ajax
    } // if
    else {
      $('div#whoisResult').text("enter domain and extension");
      $('div#whoisResult').addClass("error");
    } // else
    $('div#whoisResult').fadeIn();
    return false;
  });
});
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Ahora el whois.pl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/local/bin/perl5.12.2
use lib qw ( /usr/local/lib/perl5/5.12.2 );
use DotSRS_Client;
if( @ARGV){
    $srs_client = new DotSRS_Client;
    ($ref) = $srs_client->domain_info(shift @ARGV, 'tv');
    foreach $key (keys %{ $ref }) {
    print "$key : ", $ref->{$key},"\n";
    }
}
else{
    print "Usage: dinfo <domain>\n";
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

EL archivo DotSRS_Client.pm está en la ruta correcta, también probé cambiando la ruta y he verificado los permisos en 755.

El error que salta es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

responseText: <HTML><HEAD><TITLE>404 Not Found</TITLE></HEAD><BODY>
<H1>Not Found</H1>The requested document was not found on this server.<P><HR>
<ADDRESS>Web Server at flooming.co</ADDRESS></BODY></HTML><!--
   - Unfortunately, Microsoft has added a clever new
   - "feature" to Internet Explorer. If the text of
   - an error's message is "too small", specifically
   - less than 512 bytes, Internet Explorer returns
   - its own error message. You can turn that off,
   - but it's pretty tricky to find switch called
   - "smart error messages". That means, of course,
   - that short error messages are censored by default.
   - IIS always returns error messages that are long
   - enough to make Internet Explorer happy. The
   - workaround is pretty simple: pad the error
   - message with a big comment like this to push it
   - over the five hundred and twelve bytes minimum.
   - Of course, that's exactly what you're reading   - right now.   -->
, textStatus: error, errorThrown: undefined
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿¿¿ Alguna ayuda ???

Agradezco de antemano.

Bienvenido a los foros de Perl en Español, juanzapatac.

El error dice que se ha solicitado un recurso, y no se ha encontrado. Así que una de las peticiones HTTP no es correcta.

Por las que veo en el código, quizás sea la llamada al cgi.

Donde dice

url: "cgi-bin/whois.pl",

cambiarlo por

url: "/cgi-bin/whois.pl",

por **juanzapatac** » 2011-02-21 12:55 @579

Hola Explorer.
Gracias por tu respuesta.
He probado también modificando la ruta pero tampoco funciona.

Lo que no entiendo es que si voy por shell y llego a la ruta y ejecuto el .pl me da la respuesta. Pero desde la URL me sale este error:

500 Internal Server error

por **explorer** » 2011-02-21 13:07 @588

Echa un vistazo al fichero de error del servidor web, para saber qué recurso es que el que está provocando el error.

Mejor dicho, debería haber una entrada en el registro de actividad (access.log en un Apache) y la misma entrada en el de error (error.log en un Apache), con un mensaje de error.

En ese momento sabrás qué petición HTTP ha provocado el mensaje de error. Y por qué.

por **juanzapatac** » 2011-02-21 13:20 @597

El log muestra:
[Mon Feb 21 19:18:51 2011] [error] [client 95.21.2.48] Warning: no status!, referer: http://www.flooming.co/whoisflooming.php

¿¿¿ Parece que falta status ??? Pero no sé cómo enviarlo desde el formulario.

por **explorer** » 2011-02-21 14:48 @658

Debes encontrar el mismo registro en el fichero de accesos (access.log), para saber qué petición completa es.

El mensaje de status se puede referir a que en la cabecera HTTP no se ha indicado el estado del resultado de la petición HTTP.

Eso quiere decir que hemos hecho una petición HTTP y la respuesta no es conforme al protocolo HTTP.

por **juanzapatac** » 2011-02-22 12:18 @554

El access.log me muestra lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

21.2.48 - - [22/Feb/2011:18:10:05 +0100] "GET /whoisflooming.php HTTP/1.1" 200 2609 "-" "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/534.13 (KHTML, like Gecko) Chrome/9.0.597.98 Safari/534.13" 

21.2.48 - - [22/Feb/2011:18:10:06 +0100] "GET /js/flooming.js HTTP/1.1" 304 146 "http://www.flooming.co/whoisflooming.php" "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/534.13 (KHTML, like Gecko) Chrome/9.0.597.98 Safari/534.13" 

21.2.48 - - [22/Feb/2011:18:10:06 +0100] "GET /ajax.js HTTP/1.1" 304 147 "http://www.flooming.co/whoisflooming.php" "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/534.13 (KHTML, like Gecko) Chrome/9.0.597.98 Safari/534.13" 

21.2.48 - - [22/Feb/2011:18:10:06 +0100] "GET /favicon.ico HTTP/1.1" 404 1240 "-" "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/534.13 (KHTML, like Gecko) Chrome/9.0.597.98 Safari/534.13"Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-02-22 12:21 @556

No...

A ver si me explico...

Debes buscar el MISMO registro (fecha) en los dos ficheros. Mostraste el error.log del día 21 y ahora nos muestras los registros del día 22... Deben ser de la misma fecha y hora.

De esa manera, se verá en el access.log la petición y en el error.log el error producido.

por **juanzapatac** » 2011-02-22 13:14 @593

Hola y muchas gracias por tu paciencia.
Ahora he reconstruido todo y lo transcribo, que voy pillando experiencia.

1. Formulario whoisflooming.php

Sintáxis: [ Descargar ] [ Ocultar ]

Using php Syntax Highlighting

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <title>Very simple login using Perl, jQuery, Ajax, JSON and MySQL</title>
    <link rel="stylesheet" type="text/css" media="screen, projection"
      href="http://www.blueprintcss.org/blueprint/screen.css" />
    <link rel="stylesheet"  type="text/css" media="screen, projection"
      href="http://www.blueprintcss.org/blueprint/plugins/buttons/screen.css" />
    <link rel="stylesheet" type="text/css" media="print"
      href="http://www.blueprintcss.org/blueprint/print.css" />
    <!--[if IE]><link rel="stylesheet" type="text/css" media="screen, projection"
      href="http://www.blueprintcss.org/blueprint/ie.css"><![endif]-->
    <script type="text/javascript"
      src="http://code.jquery.com/jquery-1.4.4.min.js"></script>
    <script type="text/javascript" src="js/flooming.js"></script>
    <style type="text/css">
      #loginContent { width: 350px; margin: 100px auto; }
      button[type] { margin: 0.5em 0; }
    </style>
  </head>
  <body>
    <div id="whoisContent" class="container">
      <div id="whoisResult" style="display:none;">
      </div>
      <form id="whoisForm" name="whoisForm" method="get" action="">
        <fieldset>
          <legend>Enter information</legend>
          <p>
            <label for="domain">Ref</label>
            <br />
            <input type="ref" id="ref" name="ref" class="text" size="20" />
          </p>
          <p>
            <label for="status">Status</label>
            <br />
            <input type="status" id="status" name="status" class="text" size="20" />
          </p>
          <p>
            <button type="submit" class="button positive">
             <img alt="ok" src=
             "http://www.blueprintcss.org/blueprint/plugins/buttons/icons/tick.png" />
             Buscar
            </button>
          </p>
        </fieldset>
      </form>
    </div>
  </body>
</html>
 
Coloreado en 0.012 segundos,  usando GeSHi 1.0.8.4

Ahora el flooming.js

Sintáxis: [ Descargar ] [ Ocultar ]

Using javascript Syntax Highlighting

$(document).ready(function(){
  $("form#whoisForm").submit(function() { // Form is submitted
    var ref = $('#ref').attr('value'); // get ref
    var status = $('#status').attr('value'); // get status
 
    if (ref && status) { // values are not empty
      $.ajax({
        type: "GET",
        url: "/cgi-bin/whois.pl", // URL of the Perl script
        contentType: "application/json; charset=utf-8",
        dataType: "json",
        // send ref and status as parameters to the Perl script
        data: "ref=" + ref + "&status=" + status,
        // script call was *not* successful
        error: function(XMLHttpRequest, textStatus, errorThrown) {
          $('div#whoisResult').text("responseText: " + XMLHttpRequest.responseText
            + ", textStatus: " + textStatus
            + ", errorThrown: " + errorThrown);
          $('div#whoisResult').addClass("error");
        }, // error
        // script call was successful
        // data contains the JSON values returned by the Perl script
        success: function(data){
          if (data.error) { // script returned error
            $('div#whoisResult').text("data.error: " + data.error);
            $('div#whoisResult').addClass("error");
          } // if
          else { // login was successful
            $('form#whoisForm').hide();
            $('div#whoisResult').text("data.success: " + data.success
              );
            $('div#whoisResult').addClass("success");
          } //else
        } // success
      }); // ajax
    } // if
    else {
      $('div#whoisResult').text("enter domain and extension");
      $('div#whoisResult').addClass("error");
    } // else
    $('div#whoisResult').fadeIn();
    return false;
  });
});
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Luego el whois.pl

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/local/bin/perl5.12.2
use lib qw ( /usr/local/lib/perl5/5.12.2 );
use DotSRS_Client;
# create the client object
$srs_client = new DotSRS_Client;
###################################
#
# Test AccountBalance
#
###################################
print "Starting AccountBalance test...\n";
($status, $ref) = $srs_client->account_balance('com');
unless ($status){
    die "AccountBalance test failed (status=$status)\n";
}
unless ( $ref->{'STORED VALUE'} ){
    die "Unexpected result.  No STORED VALUE.\n";
}
foreach $key (keys %{ $ref }) {
    print "\t$key : ", $ref->{$key},"\n";
}
print "PASSED AccountBalance test\n\n";
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Resultado de comando por shell:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

[root@flooming cgi-bin]# perl whois.pl
testsrs.srsplus.com
Estas Usando el SRS ID 83254FDB
Programado para Flooming.com
Starting AccountBalance test...
        BUYING POWER : 100.00
        STORED VALUE : 17.11
        UNPAID CHARGES : 0.00
PASSED AccountBalance test
 
[root@flooming cgi-bin]#
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Acces Log:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

21.2.48 - - [22/Feb/2011:19:04:42 +0100] "GET /whoisflooming.php HTTP/1.1" 200 2295 "-" "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/534.13 (KHTML, like Gecko) Chrome/9.0.597.98 Safari/534.13" 
21.2.48 - - [22/Feb/2011:19:04:43 +0100] "GET /js/flooming.js HTTP/1.1" 200 1985 "http://www.flooming.co/whoisflooming.php" "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/534.13 (KHTML, like Gecko) Chrome/9.0.597.98 Safari/534.13" 
21.2.48 - - [22/Feb/2011:19:04:43 +0100] "GET /favicon.ico HTTP/1.1" 304 146 "-" "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/534.13 (KHTML, like Gecko) Chrome/9.0.597.98 Safari/534.13" 
21.2.48 - - [22/Feb/2011:19:04:53 +0100] "GET /cgi-bin/whois.pl?ref=22&status=1 HTTP/1.1" 500 1529 "http://www.flooming.co/whoisflooming.php" "Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/534.13 (KHTML, like Gecko) Chrome/9.0.597.98 Safari/534.13"
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Error Log:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

[Tue Feb 22 19:04:53 2011] [error] [client 95.21.2.48] malformed header from script. Bad header=testsrs.srsplus.com: whois.pl, referer: http://www.flooming.co/whoisflooming.php 
[Tue Feb 22 19:04:53 2011] [error] [client 95.21.2.48] gpg: fatal: can't create directory `/root/.gnupg': Permission denied, referer: http://www.flooming.co/whoisflooming.php 
[Tue Feb 22 19:04:53 2011] [error] [client 95.21.2.48] secmem usage: 0/0 bytes in 0/0 blocks of pool 0/32768, referer: http://www.flooming.co/whoisflooming.php 
[Tue Feb 22 19:04:54 2011] [error] [client 95.21.2.48] Warning: no status!, referer: http://www.flooming.co/whoisflooming.php
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¡¡¡ Creo que está todo !!!

por **explorer** » 2011-02-22 16:37 @734

Bueno, pues ya se ven cosas...

La línea de error número 1, se refiere a que whois.pl no está devolviendo una cabecera HTTP correcta. Por lo que se ve en la salida del programa, así es.

Para arreglarlo, debes hacer que el whois.pl genere una línea como esta:

print "Content-type: application/json\n\n";

(Observa que es una línea de texto seguido de dos caracteres de avance de línea). Y debes evitar que el whois.pl genere las líneas

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

testsrs.srsplus.com

Estas Usando el SRS ID 83254FDB

Programado para Flooming.com

Starting AccountBalance test...

PASSED AccountBalance testColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Es decir... SOLO puedes enviar al Ajax la información que está pidiendo, que son la variables en formato JSON.

La línea 2 del error.log es más problemática... La ejecución del whois.pl ha generado a su vez la ejecución del comando gpg. Y éste ha intentado guardar datos en el directorio .gnupg colgando del directorio raíz del usuario, que en este caso es /root (o sea, que deducimos que el usuario que está ejecutando el servidor Apache es root). Pero no tiene permisos para hacerlo y falla (por lo que ahora deducimos que, realmente, no era el usuario root, sino que es otro usuario, pero que su directorio por defecto es el de root).

Para arreglar esto... Creas un subdirectorio /root/.gnupg con permisos de escritura para todos. Creo que esta solución puede ser más fácil de la que realmente habría que hacer: que el usuario del servidor web se ejecutara como otro usuario y tuviera su propio subdirectorio .gnupg.

O incluso con chdir() al principio del whois.pl se podría intentar arreglar, moviendo el directorio de trabajo a un lugar seguro y controlado (y con subdirectorio .gnupg).

Foro - Perl en Español

Paso de variable con PHP y recepción de resultados

Paso de variable con PHP y recepción de resultados

Publicidad

Re: Paso de variable con PHP y recepción de resultados

Re: Paso de variable con PHP y recepción de resultados

Re: Paso de variable con PHP y recepción de resultados

Re: Paso de variable con PHP y recepción de resultados

Re: Paso de variable con PHP y recepción de resultados

Re: Paso de variable con PHP y recepción de resultados

Re: Paso de variable con PHP y recepción de resultados

Re: Paso de variable con PHP y recepción de resultados

Re: Paso de variable con PHP y recepción de resultados

¿Quién está conectado?