include /inc/page.xt, /inc/bbcode.xt, /inc/list_2.xt
get id
get p
if $id !=
var $html = call source $file=/data/$id;$nl2br=1
assign $dauten=call stripos $haystack=$html;$needle=[ten]; $offset=0
assign $cuoiten=call stripos $haystack=$html;$needle=[/ten]; $offset=0
var $ten = call substr $val=$html;$start=($dauten+5);$length=($cuoiten-$dauten-5);
assign $daund=call stripos $haystack=$html;$needle=[info]; $offset=0
assign $cuoind=call stripos $haystack=$html;$needle=[/info]; $offset=0
var $info = call substr $val=$html;$start=($daund+6);$length=($cuoind-$daund-6);
var $info = call @bbcode $text=$info
var $mota = call substr $val=$mota;$start=0;$length=200;
var $mota = call strip_tags $val=$info
var $mota = call htmlspecialchars $val=$mota
var $key = call htmlspecialchars $val=$ten
var $idc=call substr $val=$id;$start=-2;$length=2
var $ten_muc=call source $file=/idc/$idc
var $date=