Создание файлов массива...

$old_mask=umask(0);
mkdir("base/".$id,0777);
umask($old_mask);

record('base/'.$page.'/'.$fl_id.'.inc',$fl);

function record($fl,$ar) {
global $text;
@$fp = fopen($fl, 'w');
@flock($fp, LOCK_EX);
if (!$fp) {
$text = '<BR><b align="center">В настоящий момент ваш запрос не может быть выполнен</b><BR>';
}
else {
fwrite($fp, serialize($ar));
flock($fp, LOCK_UN);
fclose($fp);
}
}

function record($fl,$ar) {
global $text;
@$fp = fopen($fl, 'w');
if(flock($fp,LOCK_EX )){
fwrite($fp, serialize($ar));
flock($fp, LOCK_UN);
} else {
$text = '<BR><b align="center">В настоящий момент ваш запрос не может быть выполнен</b><BR>';
}
fclose($fp);
}