/* List_f.xt Copyright 2014-2015 VipPrao.Wap.Sh by NgocSang - Vui long khong xoa dong nay duoc */
#exportable
function filelist $fi=-index
var $list =
@batdau
assign $end=call strrpos $haystack=$list;$needle=~cuoi~; $offset=0
assign $start=call strrpos $haystack=$list;$needle=~dau~; $offset=0
var $getname = call substr $val=$list;$start=($start+5);$length=($end-$start-9);
var $data = call source $file=/data/$getname
assign $endt =call strpos $haystack=$data;$needle=[/ten]; $offset=0
assign $startt=call strpos $haystack=$data;$needle=[ten]; $offset=0
assign $endi=call strpos $haystack=$data;$needle=[/img]; $offset=0
assign $starti=call strpos $haystack=$data;$needle=[img]; $offset=0
assign $tenfile = $getname
assign $infoa=call strstr $haystack=$data; $needle=[/info]; $before_needle=1;
assign $infob=call strstr $haystack=$infoa; $needle=[info]; $before_needle=0;
assign $info=call str_replace $subject=$infob;$search=[info];$replace=;
assign $sinfoa=call str_replace $subject=$info;$search=
;$replace=.;
assign $sinfoa=call str_replace $subject=$info;$search=
;$replace=.;
assign $sinfoa=call str_replace $subject=$info;$search=
;$replace=.;
assign $sinfo=call substr $val=$sinfoa;$start=0;$length=60;
var $cut = 80
if $device == web
var $cut = ($cut*2)
endif
var $ucut = ($cut-1)
var $idc = call substr $val=$getname;$start=$ucut;$length=1
if not $tcut==$space
var $cut = ($cut+1)
endif
assign $sinfo=call substr $val=$sinfoa;$start=0;$length=$cut;
var $sang = call chr $val=32
var $mt = call substr $val=$info;$start=0;$length=$cut;
var $mt = call substr $val=$info;$start=0;$length=$cut;
var $mt = call str_replace $subject=$mt;$search=$sang;$replace=♥;
var $prao = call strrpos $haystack=$mt; $needle=♥; $offset=0 ;
var $mt = call substr $val=$mt;$start=0;$length=$prao;
var $mt = call str_replace $subject=$mt;$search=♥;$replace=$sang;
var $idc = call substr $val=$getname;$start=-1;$length=1
var $cm = call source $file=/muc/$idc
var $rename = call substr $val=$data;$start=($startt+5);$length=($endt-$startt-5);
if $endi > ($starti+13)
var $img = call substr $val=$data; $start=($starti+5); $length=($endi-$starti-5);
elseif $iendi > ($istarti+15)
var $img = call substr $val=$data; $start=($istarti+6); $length=($iendi-$istarti-6);
else
var $img=/logo-fl/$idc.png
endif
var $list = call str_replace $subject=$list;$search=~dau~$getname~cuoi~;$replace=$rename;
var $list = call str_replace $subject=$list; $search=~img[$getname]~; $replace=$img;
var $list = call str_replace $subject=$list; $search=~des[$getname]~; $replace=$mt...
var $list = call str_replace $subject=$list; $search=~tl[$getname]~; $replace=$cm
var $list = call str_replace $subject=$list;$search=~cau~$getdate~duoi~;$replace= $tm;
if $start > 25
goto @batdau
endif
get __filelist_page
if $__filelist_page ==
var $__filelist_page = 1
endif
print $list
endfunction