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

my %Actions =
(
   boardconf =>
   {
      subs =>
      [
         \&handler_boardconf,
      ],
   },
   otherconf =>
   {
      subs =>
      [
         \&handler_otherconf,
      ],
   },
);

sub handler_boardconf
{
   my (&#36r) = @_;
   my &#36action = lc(&#36r->param('action'));

   handler_handler(&#36r, &#36action, \%BoardConf::Actions, 'start');
}

sub handler_otherconf
{
   my (&#36r) = @_;
   my &#36action = lc(&#36r->param('other'));

   handler_handler(&#36r, &#36action, \%OtherConf::Actions, 'begin');
}

sub handler_handler
{
   my (&#36r, &#36action, &#36ref, &#36def) = @_;

   unless(exists &#36ref->{&#36action}->{subs})
   {
      &#36action = &#36def;
   }

   foreach my &#36sub (@{&#36ref->{&#36action}->{subs}})
   {
      unless (&#36sub->(&#36cgi))
      {
         # error in sub
         last; # errorhandling
      }
      else
      {
         # ok
      }
   }
}


sub handler
{
   my &#36r = Apache::Request->new(shift);
   &#36r->send_http_header('text/html');

   my &#36section = lc(&#36r->param('section'));
    
   handler_handler(&#36r, &#36section, \%Actions, 'boardconf');
}