Vis Log script

Har er en function som skal vise en log! men det virke ikke den viser hele logge på alle sidene
den virker med
<- Code ->
showlog("3"); // dette er hvis jeg vil se side 3
<- Code ->

Problemt er at det char program den høre til kan MAX vise 2000 tegn per besked, og der er lidt status i buden så der for har jeg sat den til at vise 1800 teng per log side.

her er code til min log viser
<- Code ->
function showlog($usersider){
   
   
    global $aoc;
   
    $blob="";
    $text = "";
    $name="log.txt";
    $fil = fopen($name, "r");
    while (!feof($fil)){
    $streng = fgets($fil, "4096");
    $text .= $streng;   
    }
   
    $total = strlen($text);
    $sider = round($total/1800);
       
    IF(!$usersider){ $sidenumber="1"; }else{ $sidenumber=$usersider; }
    $minus=$sidenumber*1800;
    $endminus=($sidenumber-1)*1800;
    $start = strlen($text)-$minus;   
    echo "\n start=".$start.";\n";
    $end =     strlen($text)-$endminus;
    echo "\n Slut=".$end.";\n";
   
    $lastpart = substr($text,$start,$end);
    echo "\n\n\n".strlen($lastpart)."\n\n\n";
   
    $log=$lastpart."\n";
    $i="1";
   
    while($i <= $sider){
       
    IF($i==$sidenumber){
    $log .= "[".$i."] ";
    }else{
    $log .= $i." ";
    }
   
    $i++;
    }
   
    $log .= "\n user \"/tell <me> !log <page number>\" to swich the pages";

   
    #$blob=Tellblob($log);
    #$reply = "Tell Log. ((".chr(17)."Click here".chr(18)."))";

    return $log;

}   
<- Code ->

Som i kan se har jeg nogle test echoer i den og når jeg giver den comandoen til at vide mig side 3 echo den dette

start=34912;

Slut=36712;

$lastpart = substr($text,34912,36712);

og det ser jo rigtig nok ud! why virker det så ikke?