#!/usr/local/bin/perl
use MyApp;
my $webapp = MyApp->new();
$webapp->start_mode('show_survey');
$webapp->run;

##</code><code>##

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;

##</code><code>##

package MyApp;
use base 'MyAuth';
use strict;
use warnings;

sub setup {
   my $self = shift;
   my $output = "<p><H3>sub MyApp::setup entered</H3></p>";
   $self->start_mode('show_survey');
   $self->run_modes([
      'show_survey',
      'save_survey'
   ]);
   return $output;
}

sub show_survey {
   my $self = shift;
   my $output = "<p><H3>sub MyApp::show_survey entered</H3></p>";
   return $output;
}

sub save_survey {
   my $self = shift;
   my $output = "<p><H3>sub MyApp::save_survey entered</H3></p>";
   return $output;
}

1;