File size: 5.81Kb
<?php
set_time_limit(300);
header('Content-Type: text/plain');
print "---===:::{START}::===---\n";
$sitespath="/home/kmx/www/sites";
array($sites);
$d=dir($sitespath);
while ($directory=$d->read())
{
if (filetype($sitespath.'/'.$directory)!='dir') continue;
# if ($directory=='_default') continue;
if (($directory=='..')||($directory=='.')) continue;
$sites[]=$directory;
}
$d->close();
@sort($sites, SORT_STRING);
$cntsite=$cntpage=0;
while ($_site=@each($sites))
{
$cntsite++;
$site=$_site[1];
#if ($site!='test') continue;
unset($files);
array($files);
$d=dir($sitespath.'/'.$site);
while ($currentfile=$d->read())
{
if (filetype($sitespath.'/'.$site.'/'.$currentfile)!='file') continue;
# if ($currentfile!='index.wml') continue;
if (substr($currentfile,-4)!='.wml') continue;
# if (substr($currentfile,-4)=='.dat') continue;
if (($currentfile=='..')||($currentfile=='.')) continue;
$files[]=$currentfile;
}
$d->close();
@sort($files, SORT_STRING);
while ($_file=@each($files))
{
$wmlfile=$_file[1];
#=-.,.-="=-.,.-="=-.,.-="=-.,.-="=-.,.-="=-.,.-="=-.,.-="=-.,.-="=-.,.-="=-.,.-=
# ЗАДАНИЕ ДЛЯ ОБРАБОТКИ WML-файлов
$found=false;
$npage='';
$page=file($sitespath.'/'.$site.'/'.$wmlfile);
/*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=*/
/**/# Замена пролога у всех
$found=true;
for ($i=0;$i<sizeof($page);$i++)
{
if ($i==0) {$found=true; $page[$i]='<?xml version="1.0" encoding="Utf-8"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.2//EN" "http://www.wapforum.org/DTD/wml_1.2.xml"><wml><head><meta forua="true" http-equiv="Cache-Control" content="max-age=0,proxy-revalidate,must-revalidate"/></head>';}
if (trim($page[$i])!='<!-- delete -->') $npage.=trim($page[$i])."\n";
if (trim($page[$j])=='</p></card></wml>') break;
}
/*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=*/
/*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=*/
/*/# Удаление рекламы
$found=true;
for ($i=0;$i<sizeof($page);$i++)
{
if (strpos(' '.$page[$i],'<!-- * -->') && (strlen(trim($page[$i]))>10)) {$found=true; $page[$i]='<!-- * -->';}
if (trim($page[$i])!='<!-- delete -->') $npage.=trim($page[$i])."\n";
if (trim($page[$j])=='</p></card></wml>') break;
}
/*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=*/
/*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=*/
/*/# Установка на все рекламы с кодом 130
for ($j=0;$j<sizeof($page);$j++)
{
if (substr(trim($page[$j]),0,10)=='<!-- * -->')
{
$reklama='';
$random = ('0.'.substr(mt_rand(),1))+0;
if ($random<=0.1) $reklama='<a href="http://mag.su/java.php?pi=130">Лучшие Java</a>';
elseif ($random<=0.35) $reklama='<a href="http://mag.su/poly.php?pi=130">Мелодии</a>';
elseif ($random<=0.50) $reklama='<a href="http://mag.su/javalist.php?pi=130&g=7">"Для взрослых"</a>';
elseif ($random<=0.65) $reklama='<a href="http://mag.su/javalist.php?pi=130&g=dol">Лучше и дешевле!</a>';
elseif ($random<=0.7) $reklama='<a href="http://mag.su/javalist.php?pi=130&g=10">РќРѕРІРѕРіРѕРґРЅРёРµ</a>';
elseif ($random<=0.735) $reklama='<a href="http://mag.su/javalist.php?pi=130&g=1">Аркады</a>';
elseif ($random<=0.77) $reklama='<a href="http://mag.su/javalist.php?pi=130&g=2">Симуляторы</a>';
elseif ($random<=0.805) $reklama='<a href="http://mag.su/javalist.php?pi=130&g=3">Головоломки</a>';
elseif ($random<=0.84) $reklama='<a href="http://mag.su/javalist.php?pi=130&g=4">Ролевые Java-игры</a>';
elseif ($random<=0.875) $reklama='<a href="http://mag.su/javalist.php?pi=130&g=5">Стратегии</a>';
elseif ($random<=0.91) $reklama='<a href="http://mag.su/javalist.php?pi=130&g=6">Java-РЎРїРѕСЂС‚</a>';
elseif ($random<=0.945) $reklama='<a href="http://mag.su/javalist.php?pi=130&g=8">Приключения</a>';
elseif ($random<=0.98) $reklama='<a href="http://mag.su/javalist.php?pi=130&g=9">Полезные Java-приложения</a>';
elseif ($random<=1.0) $reklama='<a href="http://mag.su/javalist.php?pi=130&g=new">РќРѕРІРёРЅРєРё</a>';
$reklama='<small><b>'.$reklama.'</b></small><br/>';
$npage.='<!-- * -->'.$reklama."\n";
$found=true;
}
else $npage.=trim($page[$j])."\n";
if (trim($page[$j])=='</p></card></wml>') break;
}
/*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=*/
/*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=*/
/*/# Удаление левых счетчиков
for ($i=0;$i<sizeof($page);$i++)
{
if ((substr(trim($page[$i]),0,12)!='<!-- cnt -->')&&(strpos(trim($page[$i]),'/cnt.kmx.ru/')))
{
$npage.=str_replace('http://cnt.kmx.ru/','http://ERROR/',trim($page[$i]))."\n";
$found=true;
}
else $npage.=trim($page[$i])."\n";
if (trim($page[$i])=='</p></card></wml>') break;
}
/*-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=*/
#-=:=-.-=:=-.-=:=-.-=:=-.-=:=-.-=:=-.-=:=-.-=:=-.-=:=-.-=:=-.-=:=-.-=:=-.-=:=-.-
if ($found)
{
# print $site."/".$wmlfile."\n";
$fp = fopen ($sitespath.'/'.$site.'/'.$wmlfile, "w+");
fwrite ($fp, $npage);
fclose ($fp);
$cntpage++;
}
}
}
print "Sites=$cntsite / Pages=$cntpage\n---===:::{STOP}::===---";
exit;
?>