#! /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