package BoardConf;
use strict;
use warnings;

use vars qw(%Actions);

# Program logic is defined here
%Actions = (
    start => {
        subs => [ 
            &BasicFunctions::WriteStandardHtmlHeader, 
            &BasicFunctions::WriteLogonPage,
            &BasicFunctions::WriteStandardHtmlFooter,
        ],
    }, # start

    logonUser => {
        subs => [
            &BasicFunctions::WriteStandardHtmlHeader, 
            &BasicFunctions::ValidateUser,
            &BasicFunctions::WriteStandardHtmlFooter,
        ],
    }, # logonUser
    # ...

); # %Actions

# ------------------------------------------------------------
1; # modules have to return a true value

package BasicFunctions;
use warnings;
use strict;

# ------------------------------------------------------------
sub WriteStandardHtmlHeader {
    my &#36r = shift;

} # WriteStandardHtmlHeader
# ------------------------------------------------------------
sub WriteStandardHtmlFooter {
    my &#36r = shift;

} # WriteStandardHtmlFooter
# ------------------------------------------------------------
sub WriteLogonPage {
    my &#36r = shift;

} # WriteLogonPage
# ------------------------------------------------------------
# ...

# ------------------------------------------------------------
1; # modules have to return a true value

#! /usr/bin/perl
use warnings;
use strict;

sub handler {    
    my &#36r = Apache::Request->new(shift);
    &#36r->send_http_header('text/html');
    
    my &#36action = &#36r->param('action') || 'start';
    
    unless ( exists &#36BoardConf::Actions{&#36action)->{subs} ) {
        &#36action = 'start'; # error
    } # unless
    
    foreach my &#36sub (@{ &#36BoardConf::Actions{&#36action}->{subs} }) {

        unless (&#36sub->(&#36r)) {
            # error in sub
            last; # errorhandling

        } # unless
        else {
            # ok
        } # else
    } # foreach

} # handler