Foro - Perl en Español

por **neoranger** » 2014-11-17 12:33 @564

Buenas, aprovecho que tengo un tiempo libre para hacer varias preguntas respecto a JSON en Perl ya que el proyecto que vamos a comenzar en el trabajo es un proyecto Web.

Tengo un servidor de prueba en Catalyst (Web framework para Perl) creado directamente de un tutorial de ellos donde se explica también el concepto de MVC aplicado al servidor a través de scripts de Perl. El tema es que nosotros para ir aprendiendo un poco más de Perl modificamos ese servidor para que tome un JSON y podamos ver la reacción y cómo se comporta el servidor.

En principio tenemos un problema el cual este servidor genera una vista especificada por nosotros, en este caso HTML donde tiene la siguiente línea de código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using javascript Syntax Highlighting

<script language="javascript" src="[% c.uri_for('/scripts/login/login.js') %]"/>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En esta línea de JavaScript lo que queremos hacer es que se invoque ese archivo .js pero no lo hace sino que abajo tenemos que pegarle el código JavaScript en sí para que ande y pueda devolvernos lo que deseamos.

---------------------------------------------------------------------------
EDITO: descarten el problema de arriba, era un tema del código de JS que no estaba aceptando el cierre de la marca. Se completó la línea de JS y esto anda bien. Queda ver los problemas siguientes.
---------------------------------------------------------------------------

Otro problema que tenemos es que al hacer un stash tuvimos que generar una propoedad "foo" para poder encapsular el objeto dentro. Vemos que eso no está bien sino que se tendría que poder meter directamente el objeto.

Les paso algo del código en JavaScript para que se den cuenta de lo que hablo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using javascript Syntax Highlighting

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

Fíjense que tenemos data.foo.message, data.foo.error y data.foo.userid. Lo que queremos hacer es desencapsular el objeto fuera de foo. Si no nos equivocamos esta propiedad es propia de Catalyst y creo que ahí es donde nuestro error radica, pero de otra forma no sabemos hacerlo.

Otro problema que tenemos es que si el login es correcto o no se le pasa 0 o 1 respectivamente para poder chequear por medio de un log que pasa. Pero como eso se serializa para que lo tome JS al deserializarlo ese entero que guardamos queda como string y lo tenemos que convertir a mano.

Creemos que varias cosas nos están pasando porque seguramente nos falta instalar algún módulo de Perl el cual nos haga las cosas más fáciles.

¿Alguna sugerencia? Esto nos pasa al querer hacer un login simple. Repito: es solo para pruebas ya que estamos queriendo aprovechar el tiempo antes de empezar de forma completa con el proyecto.

Gracias.

# check the username and password in the database
my $statement = qq{SELECT id FROM Users WHERE username=? and password=?};
my $sth = $dbh->prepare($statement)
  or die $dbh->errstr;
$sth->execute($username, $password)
  or die $sth->errstr;
my ($userID) = $sth->fetchrow_array;
 
# create a JSON string according to the database result
my $message = ($userID) ? 
  qq{{"success" : "login is successful", "userid" : "$userID"}} : 
  qq{{"error" : "username or password is wrong"}};
 
my $error = ($userID) ? 0 : 1;
 
my $result = new Result($error, $message, $userID);
 
$c->log->debug($result->{'error'});
$c->log->debug($result->{'message'});
$c->log->debug($result->{'userid'});
 
$c->stash->{foo} = $result;
$c->forward('View::JSON');
}
 
__PACKAGE__->meta->make_immutable;
 
package Result;
 
sub new {
                my $class = shift;
                my $self = bless {
                        'error' => shift,
                        'message' => shift,
                        'userid' => shift
                        }, $class;
                return $self;
}
 
sub TO_JSON { return { %{ shift() } }; }
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **neoranger** » 2014-11-19 09:24 @434

En el objeto principal tengo creado el siguiente package:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

__PACKAGE__->config(
        'View::JSON' => {
          allow_callback  => 1,    # defaults to 0
          callback_param  => 'cb', # defaults to 'callback'
          expose_stash    => [ qw(foo bar) ], # defaults to everything
      }
    );
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Acá se le está dando las propiedades al JSON y creo que ahí es donde radica el error. Está bien que le hayamos puesto en "expose_stash", "foo" y "bar"?

El ejemplo lo estamos tomando de el siguiente tutorial: https://metacpan.org/pod/Catalyst::Manual::Tutorial::01_Intro , pero fuimos modificando algunas cosas para hacer lo que yo les comentaba antes. Básicamente usamos este tutorial como guia para aprender sin seguir al pie de la letra lo que dice el mismo.

por **danimera** » 2014-11-19 09:40 @444

No soy experto en Catalyst.

Pero ya trataron de poner directamente $result y no dentro de foo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$c->stash->{foo} = $result;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

algo como

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$c->stash = $result;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

aunque veo que tienen definido:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

expose_stash    => [ qw(foo bar) ], # defaults to everything
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Aunque creo que podrían retornar $result directamente también.

por **neoranger** » 2014-11-19 11:03 @502

Si, ya tratamos de retornar solo $resulta y no funciona.

por **danimera** » 2014-11-19 12:27 @561

Cuando dices que no funciona deberías decir qué mensaje de error o qué sale.

por **neoranger** » 2014-11-19 12:48 @575

Sale un error de JavaScript indicando error en el JSON configurado.

por **danimera** » 2014-11-19 14:12 @633

Lo único que puedo recomendarte es buscar la forma de retornar el JSON de $result, sin usar el stash de Catalyst

Foro - Perl en Español

JSON con Catalyst, en Perl

JSON con Catalyst, en Perl

Publicidad

Re: JSON con Catalyst, en Perl

Re: JSON con Catalyst, en Perl

Re: JSON con Catalyst, en Perl

Re: JSON con Catalyst, en Perl

Re: JSON con Catalyst, en Perl

Re: JSON con Catalyst, en Perl

Re: JSON con Catalyst, en Perl

Re: JSON con Catalyst, en Perl

Re: JSON con Catalyst, en Perl

¿Quién está conectado?