#el setup de cgi application
sub setup {
    my $self = shift;
    $self->start_mode('index');
    $self->run_modes(
        'index' => 'index',
        'regform' => 'regform',
        'loginform' => 'loginform',
        'loginprocess' => 'loginprocess',
        'logout' => 'logout',
        'perljax_verificar_pass' => 'perljax_verificar_pass',
        'perljax_verificar_user' => 'perljax_verificar_user',
    );
}

#funcion que muestra el formulario de registro
sub regform {
    my $self = shift;
    my $query = $self->query;
    my $html = $self->param('html');

    my $path = $self->param('path');
    my $captcha = Authen::Captcha->new(
        data_folder => "${path}captcha",
        output_folder => "${path}img"
    );

    my $md5sum = $captcha->generate_code(5);

    my $url = $self->param('url');
    my $perljax = CGI::Ajax->new(
        'perljax_user' => "${url}?rm=perljax_verificar_user",
        'perljax_pass' => "${url}?rm=perljax_verificar_pass"
    );
    $perljax->JSDEBUG(2);
    $perljax->DEBUG(1);

    my $return = "";
    $return .= $query->start_html(
        -title => 'Registro Usuarios - GaNJa',
        -keywords => 'marihuana cannabis thc',
        -description => 'Registros de usuarios en GaNJa.',
        -style=> { -src=> [ $self->param('css') ] }
    );
    $return .= $html->header( $self->param('session')->param('profile') );
    $return .= $html->regform( $self->param('session')->param('profile'), $md5sum );
    $return .= $html->footer();
    return $perljax->build_html($self, $return);
}

#funciones perljax
sub perljax_verificar_user {
my $user = shift;
    if ((length($user) < 5) or ($user =~ m/\W/)) {
        return "El nombre de usuario debe contener entre 5 y 12 caracteres (alfa-numericos o guion)";
    }
    #elsif comprobar si el usuario existe {}
    else { return ""; }
}
sub perljax_verificar_pass {
    my ($pass, $cpass) = @_;
    if ((length($pass) < 5) or ($pass =~ m/\W/)) {
        return "La contraseña debe contener entre 5 y 12 caracteres (alfa-numericos o guion)";
    }
    elsif ($pass ne $cpass) { return "Las contraseñas no coinciden"; }
    else { return ""; }
}

my $perljax = CGI::Ajax->new(
        'perljax_user' => "${url}perljax_verificar_user.cgi",
        'perljax_pass' => "${url}perljax_verificar_pass.cgi"
);

#!/usr/bin/perl -w

use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $q = new CGI;

my $user = $q->param('rg_user');

print $q->header();
print $q->start_html();

if ((length($user) < 5) or ($user =~ m/\W/)) {
    print "El nombre de usuario debe contener entre 5 y 12 caracteres (alfa-numericos o guion)";
}
#elsif comprobar si el usuario existe {}
else { print ""; }

print $q->end_html();