function index_array($directory = "../../../data/pages/", $pattern = 'index.txt', $recursive = true)
{
$array_items = array();
if ($handle = opendir($directory)) {
while (false !== ($file = readdir($handle))) {
if ($file != "." && $file != "..") {
if (is_dir($directory . "/" . $file)) {
if ($recursive) {
if (substr($file, 0, 4) != ".tmp" and substr($file, 0, 2) != "z_") {
$array_items = array_merge($array_items, index_array($directory . "/" . $file, $pattern, $recursive));
}
}
// No és un directori
} else {
// mirar si s'inclou a la llista
$newdir = str_replace("//", "/", $directory) . '/';
$subdirs = has_subdirs($newdir);
$ext = substr(strtolower($file), -strlen($pattern));
if (!is_dir($file) && $ext == $pattern && $subdirs) {
$file = $directory . "/" . $file;
$array_items[] = preg_replace("/\\/\\//si", "/", $file);
}
}
}
}
closedir($handle);
}
foreach ($array_items as &$item) {
$item = str_replace("../../../data/pages/", "", $item);
}
deleteFromArray($array_items, $pattern, $useOldKeys = FALSE);
$result = natsort($array_items);
return $array_items;
}
array_shift($unitats);
$fitxerUnitats = "/dades/wikiform/data/pages/z_gestio/aux/base_unitats.txt";
$nomUnitats = array();
foreach ($aNomUnitats as $nom) {
$tros = explode("|", $nom);
$nomUnitats[trim($tros[1])] = trim($tros[2]);
}
array_unshift($nomUnitats);
// $acl = permisos();
// $users = usuaris();
echo "Llegint carpetes... <br /><br />";
if (isset($_GET["dir"])) {
$directory = $_GET["dir"];
$f = index_array($directory);
} else {
$f = index_array();
}
$resultat = array();
$tots = array();
echo "S'ha iniciat el procés <br />";
$fullcalcul = "Codi;Curs;Unitat;Grup-permís;Usuaris grup;Versions" . chr(13) . chr(10);
// afegim un enllaç al document .csv que es crearà
$resultat_permisos[] = "\\\\ ";
$resultat_permisos[] = "{{:permisoswiki.csv|Descarrega fitxer permisos en format .csv}} ";
//print_r($afitxer);
foreach ($afitxer as $linia) {
$linia1 = rtrim($linia);
// traiem el primer caracter separador |
$linia2 = substr($linia1, 1);
$linia2 = $linia2;
$alinia = explode("|", $linia2);
