#! /usr/bin/perl

use lib '.' ;
use CGIApp ;

my $cgiapp = CGIApp->new() ;
$cgiapp->run() ;


##</code><code>##

package CGIApp;

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

sub setup
{
    my $self = shift ;
    $self->start_mode('mode1') ;
    $self->mode_param( 'runmode' ) ;
    $self->run_modes(
        'mode1' => 'foo',
	'mode2' => 'bar',
        'mode3' => 'zoot'
    );
}

sub foo
{
    my $self = shift ;
    my $q = $self->query() ;
    my $output = '' ;

    $output .= $q->start_html( "Foo" ) ;
    $output .= $q->h2( 'I\'m webapp run mode number one.' ) ;
    $output .= $q->h2( 'I like to frolick in the sun.' ) ;
    $output .= $q->start_form ;
    $output .= $q->h3( 'Gimme a number!' ) ;
    $output .= $q->textfield( -name => 'first_number' );
    $output .= $q->hidden(-name => 'runmode', -value => 'mode2' );
    $output .= $q->submit();
    $output .= $q->end_form();
    $output .= $q->end_html();

    return $output;
}

sub bar
{
    my $self = shift ;
    my $q = $self->query() ;
    my $output = '' ;

    my $first_number = $q->param( 'first_number' ) ;

    $output .= $q->start_html( "Bar" ) ;
    $output .= $q->h2( 'I\'m webapp run mode number two.' ) ;
    $output .= $q->h2( 'You click me and I\'ll click you!' ) ;
    $output .= $q->start_form ;
    $output .= $q->h3( 'Gimme another number!' ) ;
    $output .= $q->textfield( -name => 'second_number' );
    $output .= $q->hidden( -name => 'first_number',
                           -value => $first_number );
    $output .= $q->hidden( -name => 'runmode', -value => 'mode3' );
    $output .= $q->submit();
    $output .= $q->end_form();
    $output .= $q->end_html();

    return $output;
}

sub zoot
{
    my $self = shift ;
    my $q = $self->query() ;
    my $output = '' ;

    my $first_number = $q->param( 'first_number' ) ;
    my $second_number = $q->param( 'second_number' ) ;

    $output .= $q->start_html( "Zoot" ) ;
    $output .= $q->h2( 'I\'m webapp run mode number three.' ) ;
    $output .= $q->h2( 'Adding\'s why you called on me!' ) ;
    $output .= $q->pre( $first_number . ' + ' . $second_number
                        . ' = ' . $first_number + $second_number ) ;

    return $output;
}

1 ;