#!/usr/bin/perl -si

require "ctime.pl";
require "/InDelta/www/carc/rndtable/lib/sys_config";
require "/InDelta/www/carc/rndtable/lib/forum_config";
if($allow_forum_config){
require "/InDelta/www/carc/rndtable/ea/forum_config";
}
require "/InDelta/www/carc/rndtable/lib/main";
require "/InDelta/www/carc/rndtable/lib/variables";
require "/InDelta/www/carc/rndtable/lib/utilities";


$which_forum = "ea";
$script_name = 'forum.cgi';
$netforum_url = "$base_url/$which_forum/$script_name";

$anyone_add = 'no';
$anyone_add_username = 'carc';
$anyone_add_password = 'roundtable';
$forum_name = "Environmental Assessment";
$forum_owner = "Canadian Arctic Resources Committee
";
$forum_owner_code_name = "carc";
$forum_monitor = "CARC staff";
$forum_monitor_email = "info\@carc.org";



if ($ENV{'REQUEST_METHOD'} eq 'GET') {
	&get_url_vars;
	&get_command;
}

if ($ENV{'REQUEST_METHOD'} eq 'POST') {
	&ReadParse();
	&get_url_vars;
	&post_command;
}