<?
#automenu
#CATEGORY::Admin
#NAME::Rebuild Menu

$d = dir("./");
#echo "Handle: ".$d->handle."<br>\n";
#echo "Path: ".$d->path."<br>\n";

#incpointer[admin] = fopen("automenu-admin.inc.php",'w');
#incpointer[users] = fopen("automenu-users.inc.php",'w');
#incpointer[calls] = fopen("automenu-calls.inc.php",'w');
#incpointer[payments] = fopen("automenu-payments.inc.php",'w');

while($entry=$d->read()) {
    if (ereg(.php$',$entry)){
    	#echo $entry."<br>\n";
	$fp = fopen($entry,'r');

	$cat='';
	$name='';
	$security='';

	for ($i=0;$i<6 && !feof($fp);$i++){
		$str = fgets($fp,32);
		if (ereg("^#CATEGORY::(.+)",$str,$regs)){
			print "$entry - Category: $regs[1]\n";
			$cat = strtolower(trim($regs[1]));
		}
		
		if (ereg("^#NAME::(.+)",$str,$regs)){
			print "$entry - Name: $regs[1]\n";
			$name = trim($regs[1]);
		}
		if (ereg("^#SECURITY::(.+)",$str,$regs)){
			print "$entry - Security: $regs[1]\n";
		}
 
	}
	if ($cat && $name){
		if (!incpointer[$cat]){
			incpointer[$cat] = fopen("automenu-$cat.inc.php","w");
			print "<br>opening automenu-$cat.inc.php<br>";
		}
		fwrite(incpointer[$cat],"<a href=\"$entry\">$name</a><br>\n");
	}
    }
}

while ( list($key,$val) = each(incpointer)){
	fclose(incpointer[$key]);
}

$d->close();
?>