<?
/*Функция транслитеризациии текста (пробелы " "->"_")*/
function translate($text){
$iso = array(
   "Є"=>"YE","І"=>"I","Ѓ"=>"G","і"=>"i","№"=>"#","є"=>"ye","ѓ"=>"g",
   "А"=>"A","Б"=>"B","В"=>"V","Г"=>"G","Д"=>"D",
   "Е"=>"E","Ё"=>"YO","Ж"=>"ZH",
   "З"=>"Z","И"=>"I","Й"=>"J","К"=>"K","Л"=>"L",
   "М"=>"M","Н"=>"N","О"=>"O","П"=>"P","Р"=>"R",
   "С"=>"S","Т"=>"T","У"=>"U","Ф"=>"F","Х"=>"H",
   "Ц"=>"C","Ч"=>"CH","Ш"=>"SH","Щ"=>"SHH","Ъ"=>"",
   "Ы"=>"Y","Ь"=>"","Э"=>"E","Ю"=>"YU","Я"=>"YA",
   "а"=>"a","б"=>"b","в"=>"v","г"=>"g","д"=>"d",
   "е"=>"e","ё"=>"yo","ж"=>"zh",
   "з"=>"z","и"=>"i","й"=>"j","к"=>"k","л"=>"l",
   "м"=>"m","н"=>"n","о"=>"o","п"=>"p","р"=>"r",
   "с"=>"s","т"=>"t","у"=>"u","ф"=>"f","х"=>"h",
   "ц"=>"c","ч"=>"ch","ш"=>"sh","щ"=>"shh","ъ"=>"",
   "ы"=>"y","ь"=>"","э"=>"e","ю"=>"yu","я"=>"ya","«"=>"","»"=>"","—"=>"-"," "=>"_"
  );


$str=strtr($text,$iso);

return $str; 
}

function aviable_ru($domain){
$fp = fsockopen("whois.ripn.ru",43);
fputs($fp, "$domain\r\n");
$string="";
while(!feof($fp)){ $string.=fgets($fp,128);}
fclose($fp);

$not = stristr($string, "No entries found");
if ($not === false) {$out="NO";}else {$out="OK";}
return $out;
}


/*Генерация имени домена*/
function gen_name_domain($str){
$str=translate($str);
$str=strtr($str,array("_"=>""));
$z="ru";

$podd=array("2","all","1","info","about");

//Генерация массива с доменами для проверки
$i=0;
$dom[$i]=$str.".".$z;
$i++;

foreach ($podd as $v){
$dom[$i]=$str.$v.".".$z;
$i++;
$dom[$i]=$v.$str.".".$z;
$i++;
}

foreach ($podd as $v){
$dom[$i]=$str."-".$v.".".$z;
$i++;
$dom[$i]=$v."-".$str.".".$z;
$i++;
}


//Проходимся по всем доменам, пока не найдем свободный
$j=0;
while($outt!=="OK"){
$outt=aviable_ru($dom[$j]);
$out=$dom[$j];
sleep(1);
$j++;
}


return $out;
}

?>