# .................................................................................
#
# Скрипт: Manlix Randomer, версия: 1.1
# Автор: Manlix (http://manlix.ru)
# .................................................................................
if(phpversion()<4.1) exit("Версия PHP интерпретатора должна быть 4.3.0 или выше, но никак не ниже (ваша версия интерпретатора: ".phpversion().")");
function error($error,$file){exit(''.$error.'
['.htmlspecialchars($file).']');}
function CheckConf($conf)
{
while(list($section,$array)=each($conf))
while(list($key,$value)=each($array))
if(!strlen($value))
error("В файле параметров скрипта, а именно в секции ".$section.", пуст ключ ".$key."",$conf['dir']['inc']."/config.inc.dat");
}
$manlix=parse_ini_file("./inc/config.inc.dat",1) or error("не могу загрузить основной файл параметров","./inc/config.inc.dat");
if(!include($manlix['file']['functions']))
error("не найден файл с функциями",$manlix['file']['functions']);
CheckConf($manlix);
while(list($section,$array)=each($manlix))
while(list($key,$value)=each($array))
$manlix['other'][chr(73).chr(110).chr(105).ucfirst(strtolower($section)).ucfirst(strtolower($key))]=$value;
$manlix['result']=null;
if(!is_readable($manlix['file']['data']))
error("Нет прав для чтения базы",$manlix['file']['data']);
else
{
$array=manlix_read_file($manlix['file']['data']);
if(!$ArrayCount=count($array))
$manlix['result']=$manlix['other']['empty'];
else
{
$TempString=$array[rand(0,($ArrayCount-1))];
list(,$result)=explode("::",$TempString);
$manlix['result']=base64_decode($result);
}
}
if(isset($_GET['js']))
printf($manlix['other']['js'],addslashes($manlix['result']));
else
echo $manlix['result'];
?>