package DistroPrsRls;
use Carp;
use lib(qw{/home/hesco/sandbox/DistroPrsRls/lib});
use base 'DistroPrsRlsAuth';
sub setup {
my $self = shift;
$self->start_mode('mode1');
$self->mode_param('rm');
$self->run_modes(
'mode1' => 'Login',
'mode2' => 'DPR_Dashboard',
'mode3' => 'EnterPrsRls',
'mode4' => 'ApprovePrsRls',
'mode5' => 'ChooseLists',
'mode6' => 'ScheduleDistro',
'mode7' => 'AuthorizeDistro',
'mode8' => 'ReviewJobs' );
return 1;
}
sub Login {
my $self = shift;
my $q = $self->query();
$output .= $q->start_html(-title => 'DistroPrsRls Login Form');
$output .= h3('Login Page'),br();
$output .= "$error \n" if defined($error);
$output .= $q->startform();
$output .= $q->textfield(-name => 'testfield');
$output .= $q->password(-name => 'testpassword');
$output .= qq{UserID:
};
$output .= qq{Password:
};
# $output .= qq{};
$output .= $q->hidden(-name => 'rm', -value => 'DPR-Dashboard');
# $output .= qq{};
$output .= $q->submit(-value => 'Login');
$output .= $q->end_form();
$output .= $q->end_html;
return($output);
}
etc., etc.