chmod 755 env.cgi
chmod 755 env.pl
perl -i -pe "s/\r//g" env.cgi
perl -i -pe "s/\r//g" env.pl

Tabelle forum
forum_id
sort_order
forum_title
forum_password
forum_desc
forum_topics
forum_posts
forum_lastthreadid
forum_lastpost
forum_lastposterid
forum_lastposter
allow_bbcode
allow_images
allow_html
allow_smilies
allow_icons
allow_polls
allow_attach
moderate
forum_closed
is_forum #Forum oder Kategorie
parent_id
parent_list
child_list

threads_per_page #wieviele Themen pro Seite
posts_per_page #wieviele Beiträge pro Seite
post_order # Beiträge aufsteigend oder absteigend anzeigen lassen

#! /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');
}