package MyAuth;

use base 'CGI::Application';
use strict;
use warnings;

sub cgiapp_init {
   my $self = shift;

   # set the name of the run mode CGI param
   $self->mode_param('rm');

   # shared run modes
   $self->run_modes([ 'login', 'AUTOLOAD' ]);
}

sub cgiapp_prerun {
   my $self = shift;
   my $runmode = shift;
   my $authorized = $self->param('authorized');
   unless ($authorized) {
     $self->prerun_mode( 'login' );
   }
}

sub login {
   my $self = shift;
   my ($error) = @_;
   my $output = "<p><H3>sub MyAuth::login entered</H3></p>";
   my %params;
   $params{'ERROR'} = $error if defined($error);
   # load/process login template
   # for test purposes assume user authenticates successfully
   $self->param('authorized', 1);
   $output .= $self->dump_html();
   return $output;
}

sub AUTOLOAD {
   my $self = shift;
   my $output = "<p><H3>sub MyAuth::AUTOLOAD entered</H3></p>";
   $output .= "<p><H3>### ERROR - Invalid runmode '" .
              $self->mode_param('rm') . "'</H3></p>";
   return $output;
}

1;