package AppUser::Login::Command::Select;

use strict;
use warnings;
use URI::Escape;

use lib '/app/tools/appuser/lib';
use AppUser::Login::SelectForm;

use lib '/app/tools/common/lib';
use RSApache::Response::XSLT;
use RSApache::Response::RedirectLogin;
use RSApache::Command;
use base 'RSApache::Command';

sub cmd  { return "select"; }
sub area { return "login"; }
sub app  { return "rps"; }

use constant kTemplate => '/app/tools/appuser/templates/login.xsl';

sub execute {
    my ($self) = @_;

    my $response;

    if ( !$self->getParam("Email") || !$self->getParam("Password") ) {
        $response = RSApache::Response::RedirectLogin->new();
    } else {
        $self->{xml}{Form} = AppUser::Login::SelectForm->new( email => $self->getParam("Email"), password => $self->getParam("Password") );
    }

    if ( exists $self->{_token} ) {
        $self->{xml}{Params}{token} = $self->{_token};
    }

    if ( !$response ) {
        $response = RSApache::Response::XSLT->new( $self->{xml}, kTemplate );
    }

    return $response;
}

1;