/* List.xt - Copyright 2014-2015 VipPrao.Wap.Sh by NgocSang - Vui long khong xoa dong nay duoc */
#exportable
function filelist $fi=-index
var $model =
if $model == mobile
var $per = 7
endif
if $model == web
var $per = 10
endif
if $model == touch
var $per = 8
endif
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);
/* Ngay gio dang bai */
assign $edate=call strrpos $haystack=$list;$needle=]edate~; $offset=0
assign $sdate=call strrpos $haystack=$list;$needle=~sdate[; $offset=0
var $getdate = call substr $val=$list;$start=($sdate+7);$length=($edate-$sdate-7);
var $nam = call substr $val=$getdate;$start=0;$length=4;
var $thang = call substr $val=$getdate;$start=5;$length=2;
var $ngay= call substr $val=$getdate;$start=-2;$length=2;
var $tnam =
var $tthang =
var $tngay =
if $tngay < 10
var $ngayt = call substr $val=$tngay;$start=-1;$length=1;
var $ngayt = 0($ngayt -1)
else
var $ngayt = ($tngay-1)
endif
if $getdate == $tnam-$tthang-$tngay
var $dang = Hôm nay
elseif $getdate == $tnam-$tthang-$ngayt
var $dang = Hôm qua
else
var $dang = $ngay/$thang/$nam
endif
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 $vp = call source $file=/cm/$idc
var $rename = call substr $val=$data;$start=($startt+5);$length=($endt-$startt-5);
if $endi > ($starti+13)
endif
var $list = call str_replace $subject=$list;$search=~dau~$getname~cuoi~;$replace=$rename;
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=~vp[$getname]~; $replace=$vp
var $list = call str_replace $subject=$list;$search=~sdate[$getdate]edate~;$replace=$dang;
var $list = call str_replace $subject=$list;$search=~dau~$getname~cuoi~;$replace=$rename;
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