get id if $id != var $fi=*$id else var $fi=-index 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-5); var $rename = call source $file=/data/$getname assign $endt =call strrpos $haystack=$rename;$needle=[/ten]; $offset=0 assign $startt=call strrpos $haystack=$rename;$needle=[ten]; $offset=0 var $rename = call substr $val=$rename;$start=($startt+5);$length=($endt-$startt-5); var $list = call str_replace $subject=$list;$search=[dau]$getname[cuoi];$replace=$rename; if $start > 25 goto @batdau endif var $list = call str_replace $subject=$list;$search=
$list