get id var $nd = call source $file=/data/$id;$nl2br=1 assign $st=call strrpos $haystack=$nd;$needle=[ten]; $offset=0 assign $et=call strrpos $haystack=$nd;$needle=[/ten]; $offset=0 var $ten = call substr $val=$nd;$start=($st+5);$length=($et-$st-5); assign $si=call strrpos $haystack=$nd;$needle=[info]; $offset=0 assign $ei=call strrpos $haystack=$nd;$needle=[/info]; $offset=0 var $info = call substr $val=$nd;$start=($si+6);$length=($ei-$si-6); include /xt/bbcode.xt var $info = call @bbcode $text=$info var $mota = call strip_tags $val=$info var $mota = call substr $val=$mota;$start=0;$length=120; var $mota = call htmlspecialchars $val=$mota var $key = call htmlspecialchars $val=$ten var $idc = call substr $val=$id;$start=-1;$length=1 var $cm = call source $file=/muc/$idc get p if $p != var $trang = Trang $p - endif print