Co poprawić aby ten skrypt zadziałał na wersji php> 4.0?
Skrypt:
[php:1:f1c4683dc3]<?
echo "<BODY bgColor=#6699FF leftMargin=15 topMargin=5><br>";
function sprawdz($plik) {
global $lancuch;
$il=0;
$file = fopen($plik,"r");
while(!feof($file)) {
$linia = strtoupper(fgets($file,100));
$pozycja = strpos($linia,$lancuch[0]);
if(is_integer($pozycja)) {
while(is_integer($pozycja)) {
$l=strstr($linia,$lancuch);
$m=strstr($linia,".".$lancuch);
if(strlen($l)>0&&!$m) {
$linia=substr($l,strlen($lancuch)-1);
++$il;
}
else break;
$pozycja = strpos($linia,$lancuch[0]);
}
}
}
fclose($file);
return $il;
}
function szukaj($w) {
global $ilosc;
global $co;
global $katal;
$kat = dir($w);
$i=0;
while($nazwa=$kat->read()) {
$tab[$i]=$nazwa;
++$i;
}
for($i=0;$i<count($tab);$i++) {
if(strpos($tab[$i],".")==0&&$i>1) {
szukaj($w."/".$tab[$i]);
}
else {
list($nazwa, $rozszerz) = explode(".",$tab[$i]);
if($rozszerz=="htm") {
$il=sprawdz($w."/".$tab[$i]);
if($il>0) {
$ilosc[] = $il;
$co[] = $tab[$i];
$katal[] = $w;
}
}
}
}
}
$ilosc = array();
$co = array(); echo $ilosc;
$katal = array();
$lancuch = strtoupper($lancuch); echo $lancuch;
szukaj("/Inetpub/wwwroot/www");
$zmienna=0;
if(count($ilosc)>0) {echo $ilosc;
for($i=0;$i<count($ilosc);$i++)
for($j=$i+1;$j<count($ilosc);$j++)
if($ilosc[$j]>$ilosc[$i]) {
$zmienna=$ilosc[$j];
$ilosc[$j]=$ilosc[$i];
$ilosc[$i]=$zmienna;
$zmienna=$co[$j];
$co[$j]=$co[$i];
$co[$i]=$zmienna;
$zmienna=$katal[$j];
$katal[$j]=$katal[$i];
$katal[$i]=$zmienna;
}
for($i=0;$i<count($ilosc);$i++) {echo $co[$i];
echo "Na stronie <a target=glowna href="".$co[$i]."">
".$co[$i]."
</a> znaleziono ".$ilosc[$i]." takich wyrazów<br>n";
}
}
else echo "Nie znaleziono!";
?>[/php:1:f1c4683dc3]
zamiast global $lancuch wstawiłem na samym początku skryptu :
$lancuch=$_POST['lancuch']; i zmienna lancuch jest poprawnie pobierana z formularza. cos nie tak jest później może ze zmiennymi $co, $ilosc i $katal? Dodam jeszcze, że przy register_globals = On skrypt działa.
Proszę o pomoc i z góry dziękuję.