Foro - Perl en Español

por **memrobles** » 2017-11-30 00:19 @055

Hola, Perleros, buenas noches. Espero se encuentren bien.

Me podrían ayudar, por favor.

Tengo una página web en Mojolicious y le quiero poner autenticación.

Ya leí Mojolicious::Plugin::Authentication pero la verdad entiendo poco o casi nada. Entonces busqué un ejemplo en Google y encontré este muy básico pero no encuentro dónde ponerle el usuario que va a tener acceso

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use Mojolicious::Plugin::Authentication;
use Mojolicious::Lite;
 
 
 
 
plugin 'authentication', {
    autoload_user=>1,
    load_user => sub {
        my $self = shift;
        my $uid  = shift;
        return $uid;
    },
    validate_user => sub {
        my $self = shift;
        my $un = shift || '';
        my $pw = shift || '';
        my $extra = shift || {};
        use Authen::Simple::DBI;
        
        
        return $un;
         
        return undef;
    },
};
 
 
get '/home' => sub {
  my $self = shift;
 
};
 
get '/welcome' => sub {
  my $self = shift;
  
  $self ->render('index');
  
};
 
post '/login' => sub {
    
  my $self = shift;
  if ($self->authenticate($self->req->param('id') 
                  ,$self->req->param('pw')
                  ,{brain_slug=>$self->req->param('')})) {
    $self->render('home');
  }
  else {
    $self->render('index');
  }
};
 
app->start;
__DATA__
@@ layouts/default.html.ep
<!DOCTYPE html>
<html>
  <head>1<title><%= title %></title></head>
  <body><%= content %></body>
</html>
 
@@ index.html.ep
% layout 'default';
% title 'Welcome';
Welcome to Authorization
<form action="/login" method="post">
<table>
<tr> <td> User </td> <td> <input type="text" name="id" /> </td> </tr>
<tr> <td> Password </td> <td> <input type="password" name="pw" /> <input type="hidden" name="slug" value="yes"></td> </tr>
</table>
<input type="submit" name="mysubmit" value="Click!" />
</form>
 
@@ home.html.ep
% layout 'default';
% title 'home';
lets all go to the brain slug planet! home
 
@@ layouts/default.html.ep
<!DOCTYPE html>
<html>
  <head><title><%= title %></title></head>
  <body><%= content %></body>
</html>
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

Sí se ejecuta pero al poner cualquier usuario y contraseña en login, entra a home.

Gracias de antemano por su ayuda.

#!/usr/bin/env perl
use Mojolicious::Lite;
 
 
helper auth => sub {
        my $self = shift;
 
        return 1 if
        $self->param('username') eq 'bender' and
        $self->param('password') eq 'rodriguez';
};
 
get '/login'=> sub { shift->render('login') };
 
under sub {
        my $self = shift;
        return 1 if $self->auth;
 
        $self->render(text => 'denied');
        return;
};
 
post 'momcorp' => sub { shift->render(text => 'welcome to Momcorp!') };
 
post '/momcorp/carol' => sub { shift->render(text => 'welcome, Carol') };
 
app->start
 
__DATA__
 
@@ login.html.ep
%= t h1 => 'login'
%= form_for 'momcorp' => (method => 'post') => begin
username: <%= text_field 'username' %>
password: <%= text_field 'password' %>
%= submit_button 'log in'
%= end
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Slds

por **explorer** » 2017-11-30 18:58 @832

Empezando por lo básico...

Una forma de aprender es a partir de Mojolicious::Guides. Si tienes prisa por ver ejemplos de lo que necesitas, casi seguro que en Mojolicious::Guides::Cookbook también encuentras algo. O seguir el Mojolicious::Guides::Tutorial.

Del ejemplo que pones en el segundo mensaje, vemos cómo hacer para "proteger" un determinado árbol de rutas de nuestro sitio web.

En las líneas 5 a 11 se declara un helper llamado auth(), que es el que devuelve un valor verdadero si verifica al usuario que se registró en el sistema.

En la línea 13 tenemos la llamada normal al formulario de registro.

En la línea 15, la directiva 'under' indica que todas las rutas que siguen deben ejecutarse bajo la ejecución previa de la subrutina que define a continuación, hasta la línea 21. Lo que hacen esas líneas es llamar al auth() anterior para validar al usuario, o sacar el mensaje de acceso denegado, directamente, al usuario.

Las rutas de las líneas 23 y 25 solo son accesibles si el usuario en el login es correcto. Es decir: si nosotros queremos hacerle un POST a la ruta /momcorp/carol, antes de ejecutar la línea de código de la línea 25, Mojolicious ejecuta la subrutina de 'under' de la línea 15, que a su vez llama a auth() de la línea 5. Si antes nosotros no nos hemos registrado en el sistema, nos sacará el mensaje de acceso denegado. Si no, el mensaje de bienvenida.

En el Tutorial se muestra que under se usa también para prefijar grupos de rutas. En Mojolicious::Guides::Routing hay otros ejemplos de uso de 'under'.

En cuanto al complemento Mojolicious::Plugin::Authentication, sirve para simplificar un poco más todo lo anterior.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Mojolicious::Plugin::Authentication;
 
$self->plugin('authentication' => {
    autoload_user   => 1,
    session_key     => 'wickedapp',
    load_user       => sub { ... },
    validate_user   => sub { ... },
    current_user_fn => 'user', # compatibility with old code
});
 
my $authenticated = $self->authenticate(
    'username', 'password',
    { optional => 'extra data stuff' },
);
 
if ($authenticated) {
    ...
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Hay algún ejemplo en la carpeta de tests: https://metacpan.org/source/JJATRIA/Moj ... ion-1.32/t

El resumen es: dentro de plugin 'authentication' se definen varios comportamientos. El principal es el 'validate_user', que recibe los argumentos ($app, $username, $password, $extradata) y debe devolver el código de usuario ($uid) o un valor indefinido.

Con esos valores debes determinar si el usuario se valida o no en el sistema. En tu caso, no haces nada, simplemente devuelves el propio nombre del usuario (return $un), sin realizar ninguna comprobación, por lo que cualquier usuario puede entrar.

Una vez que el usuario se ha verificado, se llama a la subrutina declarada por 'load_user', que recibe los argumentos ($app, $uid). El $uid es el valor devuelto antes. Y el resultado debe ser un objeto o estructura con los datos asociados a ese usuario que sirvan para el resto de la aplicación. Si en tu aplicación no tienes nada de esto, pones el valor de 'autoload_user' a 0.

En el manual se comenta cómo poner los tiempos de expiración de esta sesión con este usuario.

Una vez creado todo esto, se pueden usar los métodos siguientes:

authenticate, para autenticar a un usuario, como tienes en la línea 45. Si devuelve un valor verdadero, el usuario es válido
is_user_authenticated, que devuelve verdadero o falso si una llamada a load_user devuelve un objeto válido.

En tu código de ejemplo, vemos que cargas el módulo Authen::Simple::DBI, seguramente para validar el usuario contra una base de datos, pero no hay nada de ese código.

Foro - Perl en Español

Mojolicious Authentication

Mojolicious Authentication

Publicidad

Re: Mojolicious Authentication

Re: Mojolicious Authentication

¿Quién está conectado?