<?
function wikiareachecklist($params){
  global $textdir;
  $dirlist="";
  $text="";
  $dp=opendir($textdir);
  $count=1;
  while($file=readdir($dp)){
    if ((!ereg("^\.",$file))&&(is_dir("$textdir/$file"))){
      $dirlist.="<tr><td><input type=\"checkbox\" name=\"area[]\" value=\"$file\">$file</td></tr>\n";
      $areas[$count]=$file;
      $count ++;
    }
  }
  closedir($dp);
  $text.= "<table border=1>$dirlist</table>\n";
  return $text;
}
?>
