#!/Perl/bin/perl

#Add Forum

require "cgi-lib.pl";
require "common.pl";
require "cookie.lib";

print &PrintHeader;

$aon=1;

&initial;


&check_admin;

  $dir=$input{'dir'};
  $dir=~s/ //;
  $dir=~s/_//;
  $dir=~s/-//;
  $dir=~tr/[A-Z]/[a-z]/;
  $newdir=$path . $s . "forums" . $s . $dir;

  mkdir ($newdir,"777");

  &good("Dir: $newdir created!!! $!");
  exit;