UnderIRC — File Browser
UnderIRCv1.0 / UnderIRCv1.0 / Under / System / ftp2.ini
ftp2.ini — 19.11 KB — Download this file
[script]
n0=ON *:SOCKCLOSE:GFTP*:{
n1= set -u %taboftp.t.gftp.sr $calc(($ticks - $sock($sockname).mark) / 1000)
n2= taboftp.dida $taboftp.ftpnums 230 $sock($sockname).rcvd BYTES TRANSFEREd iN $taboftp.duracio(%taboftp.t.gftp.sr,2) $taboftp.corch($taboftp.sckbpsw($calc($sock($sockname).rcvd / %taboftp.t.gftp.sr)))
n3= did -o $taboftp.ftpnums 59 1 $did($taboftp.ftpnums,249,1) $taboftp.singoplur($did($taboftp.ftpnums,249,1),file,s) $taboftp.corch($taboftp.tabosize($did($taboftp.ftpnums,249,2)))
n4= unset %taboftp.c.gftpsr.*
n5=}
n6=ON *:SOCKREAD:DFTP*:{
n7= if ($sockerr > 0) {
n8= did -o $taboftp.sokmark(2) 6 1 ERROR - CONNECTiON CLOSEd
n9= return
n10= }
n11= sockread &t.dftp.sr
n12= bwrite " $+ $taboftp.sokmark(1) $+ " -1 &t.dftp.sr
n13= if ($taboftp.sokmark(4)) {
n14= did -o $taboftp.sokmark(2) 3 1 $sock($sockname).rcvd of $taboftp.sokmark(4) bytes
n15= did -o $taboftp.sokmark(2) 4 1 $taboftp.percent($sock($sockname).rcvd,$taboftp.sokmark(4))
n16= did -o $taboftp.sokmark(2) 6 1 REMAiNiNG: $taboftp.duracio($calc(($taboftp.sokmark(4) - $sock($sockname).rcvd) / ($sock($sockname).rcvd / (($ticks - $taboftp.sokmark(3)) / 1000))),2)
n17= }
n18= else { did -o $taboftp.sokmark(2) 3 1 $sock($sockname).rcvd bytes }
n19= did -o $taboftp.sokmark(2) 5 1 $taboftp.sckbpsw($calc($sock($sockname).rcvd / (($ticks - $taboftp.sokmark(3)) / 1000)))
n20=}
n21=ON *:SOCKCLOSE:DFTP*:{
n22= if ($sock($sockname).rcvd >= $taboftp.sokmark(4)) {
n23= taboftp.reflocal $taboftp.ftpnums $did($taboftp.ftpnums,9)
n24= if ($taboftp.sokmark(4)) { did -o $taboftp.sokmark(2) 3 1 $sock($sockname).rcvd of $taboftp.sokmark(4) bytes }
n25= else { did -o $taboftp.sokmark(2) 3 1 $sock($sockname).rcvd OF $sock($sockname).rcvd bytes }
n26= did -o $taboftp.sokmark(2) 4 1 100%
n27= did -o $taboftp.sokmark(2) 5 1 $taboftp.sckbpsw($calc($sock($sockname).rcvd / (($ticks - $taboftp.sokmark(3)) / 1000)))
n28= did -o $taboftp.sokmark(2) 6 1 COMPLETEd iN: $taboftp.duracio($calc(($ticks - $taboftp.sokmark(3)) / 1000),2)
n29= taboftp.dida $taboftp.ftpnums 230 TRANSFEREd $sock($sockname).rcvd BYTES iN $taboftp.duracio($calc(($ticks - $taboftp.sokmark(3)) / 1000),2) $taboftp.corch($taboftp.sckbpsw($calc($sock($sockname).rcvd / (($ticks - $taboftp.sokmark(3)) / 1000))))
n30= taboftp.ftpsigue $taboftp.ftpnums 0
n31= }
n32= else { did -o $taboftp.sokmark(2) 6 1 ERROR - CONNECTiON CLOSEd }
n33=}
n34=ON *:SOCKWRITE:UFTP*:{
n35= if ($sockerr > 0) {
n36= did -o $taboftp.sokmark(2) 6 1 ERROR - CONNECTiON CLOSEd
n37= sockclose $sockname
n38= taboftp.ftpsigue $taboftp.ftpnums 1
n39= return
n40= }
n41= taboftp.upl2 $sockname
n42=}
n43=ON *:SOCKCLOSE:UFTP*:{
n44= did -o $taboftp.sokmark(2) 6 1 ERROR - CONNECTiON CLOSEd
n45= taboftp.ftpsigue $taboftp.ftpnums 1
n46=}
n47=dialog taboftp.lista.base {
n48= size -1 -1 345 330
n49=
n50= list 1,10 20 250 290,sort extsel size
n51= list 2,10 20 250 290,sort size hide
n52=
n53= button "NEW...",101,269 20 66 30
n54= button "REMOVE",102,269 60 66 30
n55= button "",103,269 100 66 30,hide
n56= button "",104,269 140 66 30,hide
n57= button "",105,269 180 66 30,hide
n58= button "",106,269 220 66 30,hide
n59=
n60= button "OK",201,269 240 66 30,ok
n61= button "CANCEL",202,269 280 66 30,cancel
n62=
n63= edit "",246,1 1 1 1,hide
n64= edit "",247,1 1 1 1,hide
n65= edit "",248,1 1 1 1,hide
n66= edit "",249,1 1 1 1,hide
n67= edit "",250,1 1 1 1,hide
n68=}
n69=dialog TABOFTP.PARAMETRO {
n70= size -1 -1 400 120
n71=
n72= text "",1,20 5 360 45
n73= edit "",2,20 48 360 22,autohs result
n74=
n75= text "",200,20 80 188 30
n76=
n77= button "OK",241,228 80 66 30,ok disable
n78= button "CANCEL",242,314 80 66 30,cancel
n79=
n80= edit "",248,1 1 1 1,hide
n81= edit "",249,1 1 1 1,hide
n82= edit "",250,1 1 1 1,hide
n83=}
n84=dialog TABOFTP.PARAMETROPASS {
n85= size -1 -1 400 120
n86=
n87= text "",1,20 5 360 45
n88= edit "",2,20 48 360 22,autohs pass result
n89=
n90= text "",200,20 80 188 30
n91=
n92= button "OK",241,228 80 66 30,ok disable
n93= button "CANCEL",242,314 80 66 30,cancel
n94=
n95= edit "",248,1 1 1 1,hide
n96= edit "",249,1 1 1 1,hide
n97= edit "",250,1 1 1 1,hide
n98=}
n99=ON *:DIALOG:TABOFTP.PARAMETRO*:*:*:{
n100= if ($devent == edit) { taboftp.parametro.revisaedit $did(250) $did(248) $did(2) }
n101= if ($devent == sclick) && ($did == 241) {
n102= if ($did($dname,248)) && ($did(2) == $null) { }
n103= elseif ($did($dname,249) == 0) {
n104= did -o $dname 200 1 Invalid $taboftp.singoplur($numtok($did(2),32),paremeter,s)
n105= halt
n106= }
n107= }
n108= if ($devent == init) {
n109= dialog -t $dname FTP Client
n110= did -a $dname 1 %taboftp.c.dparm.texto
n111= did -o $dname 250 1 %taboftp.c.dparm.cond
n112= if (%taboftp.c.dparm.base != $null) { did -o $dname 2 1 $ifmatch }
n113= did -o $dname 248 1 $iif(%taboftp.c.dparm.neces,0,1)
n114= taboftp.parametro.revisaedit $did(250) $did(248) $did(2)
n115= if (%taboftp.c.dparm.parmnovale) { did -o $dname 200 1 iNVALiD $taboftp.singoplur($ifmatch,Parameter,s) }
n116= unset %taboftp.c.dparm.*
n117= }
n118=}
n119=alias taboftp.corch { if ($1- != $null) { return [ $+ $1-] } }
n120=alias taboftp.llenaizq { return $str($chr($2),$calc($1 - $len($3-))) $+ $3- }
n121=alias taboftp.esip { return $iif(($1- == $1) && ($numtok($1,46) > 1) && ($right($1,1) != .) && ($left($1,1) != .) && (@ !isin $1) && ($chr(44) !isin $1) && (: !isin $1) && (? !isin $1) && (* !isin $1),$1) }
n122=alias taboftp.exe { $1- }
n123=alias taboftp.pega { return $remove($1-,$chr(32)) }
n124=alias taboftp.rand.pal {
n125= unset %taboftp.t.randpal.*
n126= if ($1 < 1) || ($1 == $null) || ($1 !isnum) { return }
n127= else {
n128= :randpal
n129= inc -u %taboftp.t.randpal.t
n130= if (%taboftp.t.randpal.t <= $1) {
n131= set -u %taboftp.t.randpal.r %taboftp.t.randpal.r $+ $gettok( [ $rand(a,z) ] [ $rand(A,Z) ] [ $rand(1,9) ] ,$rand(1,3),32)
n132= goto randpal
n133= }
n134= }
n135= return %taboftp.t.randpal.r
n136=}
n137=alias taboftp.arch.rand { return $taboftp.rand.pal(21) $+ . $+ $iif($1 != $null,$1,tabotmp) }
n138=alias taboftp.mini { return $readini -n $mircini $1 $2 }
n139=alias taboftp.minio { return $gettok($taboftp.mini(options,n [ $+ [ $remove($1,n) ] ] ),$2,44) }
n140=alias taboftp.percent { return $iif($1 == 0 || $2 == 0,0,$round($calc($1 * 100 / $2),0)) $+ % }
n141=alias taboftp.duracio { return $iif($1 <= 0,0,$iif($2 > 0 && $gettok($1,2,46) isnum, [ $mid($replace($remove($duration($gettok($1,1,46)),ecs,ec,ins,in,rs,r,ays,ay),wks,sm,wk,sm),1,$calc($len($replace($remove($duration($gettok($1,1,46)),ecs,ec,ins,in,rs,r,ays,ay),wks,sm,wk,sm)) - 1)) $+ . $+ [ $mid($gettok($1,2,46),1,$2),$gettok($1,2,46) ] $+ s ] ,$replace($remove($duration($round($1,0)),ecs,ec,ins,in,rs,r,ays,ay),wks,sm,wk,sm))) }
n142=alias taboftp.tabosize {
n143= if ($1 == $null) { return }
n144= if ($1 <= 999) { return $round($1,0) bytes }
n145= if ($1 <= 10234) { return $round($calc($1 / 1024),2) KB }
n146= if ($1 <= 102348) { return $round($calc($1 / 1024),1) KB }
n147= if ($1 <= 1023487) { return $round($calc($1 / 1024),0) KB }
n148= if ($1 <= 10480522) { return $round($calc($1 / 1048576),2) MB }
n149= if ($1 <= 104805165) { return $round($calc($1 / 1048576),1) MB }
n150= if ($1 <= 1048051706) { return $round($calc($1 / 1048576),0) MB }
n151= if ($1 <= 10732054899) { return $round($calc($1 / 1073741824),2) GB }
n152= if ($1 <= 107320489940) { return $round($calc($1 / 1073741824),1) GB }
n153= if ($1 <= 1073204947719) { return $round($calc($1 / 1073741824),0) GB }
n154= if ($1 <= 10989624217179) { return $round($calc($1 / 1099511627776),2) TB }
n155= if ($1 <= 109896181698653) { return $round($calc($1 / 1099511627776),1) TB }
n156= return $round($calc($1 / 1099511627776),0) TB
n157=}
n158=alias taboftp.sckbpsw {
n159= if ($1 <= 999) { return $round($1,0) bytes/s }
n160= if ($1 <= 10234) { return $round($calc($1 / 1024),2) KB/s }
n161= if ($1 <= 102348) { return $round($calc($1 / 1024),1) KB/s }
n162= if ($1 <= 1023487) { return $round($calc($1 / 1024),0) KB/s }
n163= if ($1 <= 10480522) { return $round($calc($1 / 1048576),2) MB/s }
n164= if ($1 <= 104805165) { return $round($calc($1 / 1048576),1) MB/s }
n165= if ($1 <= 1048051706) { return $round($calc($1 / 1048576),0) MB/s }
n166= if ($1 <= 10732054899) { return $round($calc($1 / 1073741824),2) GB/s: }
n167= if ($1 <= 107320489940) { return $round($calc($1 / 1073741824),1) GB/s: }
n168= if ($1 <= 1073204947719) { return $round($calc($1 / 1073741824),0) GB/s: }
n169= if ($1 <= 10989624217179) { return $round($calc($1 / 1099511627776),2) TB/s }
n170= if ($1 <= 109896181698653) { return $round($calc($1 / 1099511627776),1) TB/s }
n171= return $round($calc($1 / 1099511627776),0) TB/s
n172=}
n173=alias taboftp.loop {
n174= unset %taboftp.t.loop.*
n175= :loop
n176= inc %taboftp.t.loop.i
n177= if ($gettok($1,%taboftp.t.loop.i,44) != $null) {
n178= if ($numtok($gettok($1,%taboftp.t.loop.i,44),45) == 2) {
n179= set %taboftp.t.loop.s -1
n180= :loop2
n181= inc %taboftp.t.loop.s
n182= if ($calc($gettok($gettok($1,%taboftp.t.loop.i,44),1,45) + %taboftp.t.loop.s) <= $gettok($gettok($1,%taboftp.t.loop.i,44),2,45)) {
n183= $replace($2-,,$ifmatch)
n184= goto loop2
n185= }
n186= }
n187= else { $replace($2-,,$gettok($1,%taboftp.t.loop.i,44)) }
n188= goto loop
n189= }
n190= unset %taboftp.t.loop.*
n191=}
n192=alias taboftp.echoerror { echo $colour(ctcp) -eist % ERROR: $1- }
n193=alias taboftp.echoinfo { echo $colour(info) -eist % $1- }
n194=alias taboftp.dialog.cargalista {
n195= unset %taboftp.t.dccargl.*
n196= if ($6) { set %taboftp.t.dccargl.lt $len($iif($taboftp.rini($5,total),$taboftp.rini($5,total),1)) }
n197= if ($7) { did -r $1 $2 }
n198= :dcconf
n199= inc %taboftp.t.dccargl.n
n200= if ($taboftp.rini($5,%taboftp.t.dccargl.n) != $null) {
n201= if ($gettok($ifmatch,$3,$4)) { did -a $1 $2 $iif($6,$taboftp.llenaizq(%taboftp.t.dccargl.lt,$asc(0),%taboftp.t.dccargl.n)) $gettok($taboftp.rini($5,%taboftp.t.dccargl.n),$3,$4) }
n202= goto dcconf
n203= }
n204= unset %taboftp.t.dccargl.*
n205=}
n206=alias taboftp.lista.meteTOK.i {
n207= unset %taboftp.t.lmt.*
n208= if ($left($1,1) == -) {
n209= :lmt
n210= inc %taboftp.t.lmt.t
n211= if ($taboftp.rini($1,%taboftp.t.lmt.t) != $null) {
n212= if ($gettok($ifmatch,$2,$3) === $4-) {
n213= if (%taboftp.t.lmt.t) {
n214= unset %taboftp.t.lmt.*
n215= return $ifmatch $taboftp.rini($1,total)
n216= }
n217= }
n218= goto lmt
n219= }
n220= }
n221= :yata
n222= unset %taboftp.t.lmt.*
n223= return $calc($taboftp.rini($1,total) + 1) $calc($taboftp.rini($1,total) + 1)
n224=}
n225=alias taboftp.lista.sube {
n226= unset %taboftp.t.lsb.*
n227= if ($2 <= 1) { return }
n228= set -u %taboftp.t.lsb.t $taboftp.rini($1,$2)
n229= writeini $scriptdirftp.ini $remove($1,-) $2 $taboftp.rini($1,$calc($2 - 1))
n230= taboftp.wini $1 $calc($2 - 1) %taboftp.t.lsb.t
n231=}
n232=alias taboftp.lista.baja {
n233= unset %taboftp.t.lsb.*
n234= if ($2 >= $taboftp.rini($1,total)) { return }
n235= set -u %taboftp.t.lsb.t $taboftp.rini($1,$2)
n236= writeini $scriptdirftp.ini $remove($1,-) $2 $taboftp.rini($1,$calc($2 + 1))
n237= taboftp.wini $1 $calc($2 + 1) %taboftp.t.lsb.t
n238=}
n239=alias taboftp.lista.borraTOK {
n240= unset %taboftp.t.lb.*
n241= if ($left($1,1) == -) {
n242= :lb1
n243= inc %taboftp.t.lb.t
n244= if ($taboftp.rini($1,%taboftp.t.lb.t) != $null) {
n245= if ($gettok($ifmatch,$2,$3) == $4-) {
n246= .remini $scriptdirftp.ini $remove($1,-) %taboftp.t.lb.t
n247= .writeini $scriptdirftp.ini $remove($1,-) total $calc($taboftp.rini($1,total) - 1)
n248= :lb2
n249= inc %taboftp.t.lb.t
n250= if ($taboftp.rini($1,%taboftp.t.lb.t) != $null) {
n251= .writeini $scriptdirftp.ini $remove($1,-) $calc(%taboftp.t.lb.t - 1) $taboftp.rini($1,%taboftp.t.lb.t)
n252= .remini $scriptdirftp.ini $remove($1,-) %taboftp.t.lb.t
n253= goto lb2
n254= }
n255= goto yata
n256= }
n257= goto lb1
n258= }
n259= }
n260= :yata
n261= if ($taboftp.rini($1,total) == 0) { .remini $scriptdirftp.ini $remove($1,-) }
n262= flushini $scriptdirftp.ini
n263= unset %taboftp.t.lb.*
n264=}
n265=alias taboftp.rini { return $readini -n $scriptdirftp.ini $mid($1,2,99999) $2 }
n266=alias taboftp.wini {
n267= if ($1 == $null) { goto yata }
n268= elseif ($left($1,1) == -) {
n269= if ($3 == $null) { .remini $scriptdirftp.ini $mid($1,2,$calc($len($1) - 1)) $2 }
n270= else { .writeini $scriptdirftp.ini $mid($1,2,$calc($len($1) - 1)) $2- }
n271= }
n272= else {
n273= if ($2 == $null) { .remini $scriptdirftp.ini tabo $1 }
n274= else { .writeini $scriptdirftp.ini tabo $1- }
n275= }
n276= :yata
n277= .flushini $scriptdirftp.ini
n278=}
n279=alias taboftp.timeremote { .timer -om 1 0 $$1- }
n280=alias taboftp.ctoktok { return $replace($3-,$chr($1),$chr($2)) }
n281=alias taboftp.texto { return $1- }
n282=alias taboftp.singoplur { return $iif($1 == 1,$2, [ $2 [ $+ [ $3 ] ] ] ) }
n283=alias taboftp.dida {
n284= if ($dialog($1) != $null) { did -a $1- $+ $crlf }
n285=}
n286=alias taboftp.sokerr {
n287= if ($sockerr == 3) { return CONNECTiON REFUSEd }
n288= if ($sockerr == 4) { return SERVER LOST }
n289= if ($sockerr > 0) { return $sockerr }
n290=}
n291=alias taboftp.sokmark {
n292= if ($2 == $null) && ($sockname) { return $gettok($sock($sockname).mark,$1,9) }
n293= return $gettok($sock($1).mark,$2,9)
n294=}
n295=alias taboftp.esarchvalido { return $iif((/ !isin $1-) && (\ !isin $1-) && (: !isin $1-) && (* !isin $1-) && (? !isin $1-) && (" !isin $1-) && (< !isin $1-) && (> !isin $1-) && (| !isin $1-),$1-) }
n296=alias taboftp.parametro {
n297= unset %taboftp.t.dparm.*
n298= if ($taboftp.parametro.revisaedit($4,0,$taboftp.ctoktok(1,32,$1))) { return $taboftp.ctoktok(1,32,$1) }
n299= :dparm1
n300= inc %taboftp.t.dparm.1
n301= if ($dialog(TABOFTP.PARAMETRO [ $+ [ %taboftp.t.dparm.1 ] ] )) { goto dparm1 }
n302= set %taboftp.t.dparm.d TABOFTP.PARAMETRO $+ %taboftp.t.dparm.1
n303= if ($taboftp.ctoktok(1,32,$1) != $null) {
n304= set %taboftp.c.dparm.base $ifmatch
n305= set %taboftp.c.dparm.parmnovale $numtok($ifmatch,32)
n306= }
n307= else { set %taboftp.c.dparm.base $taboftp.ctoktok(1,32,$5) }
n308= set %taboftp.c.dparm.neces $2
n309= if ($count($6-,<CRLF>) == 0) { set %taboftp.c.dparm.texto $crlf $+ $replace($6-,<CRLF>,$crlf) }
n310= else { set %taboftp.c.dparm.texto $replace($6-,<CRLF>,$crlf) }
n311= set %taboftp.c.dparm.cond $4
n312= set %taboftp.c.dparm.titulo $taboftp.ctoktok(1,32,$3)
n313= if (%taboftp.t.dparm.d != $null) {
n314= unset %taboftp.t.dparm.*
n315= if ($dialog($ifmatch,$iif(%taboftp.c.dparm.pass,TABOFTP.PARAMETROPASS,TABOFTP.PARAMETRO),-4) != $null) { return $ifmatch }
n316= elseif ($2) { halt }
n317= else { return }
n318= }
n319=}
n320=alias taboftp.parametropass {
n321= set %taboftp.c.dparm.pass 1
n322= return $taboftp.parametro($1-)
n323=}
n324=alias taboftp.parametro.revisaedit {
n325= if ($3- == $null) {
n326= if ($2) { goto si }
n327= else { goto no }
n328= }
n329= elseif ($istok(normal,$1,32)) { goto si }
n330= elseif ($1 isnum) && ($numtok($3-,32) == $1) { goto si }
n331= elseif ($1 == archvalido) && ($taboftp.esarchvalido($3-) != $null) { goto si }
n332= elseif (len<* iswm $1) && ($len($3-) < $gettok($gettok($1,2,60),1,33)) {
n333= if ($gettok($gettok($1,2,60),2,33)) {
n334= if ($numtok($3-,32) == $ifmatch) { goto si }
n335= }
n336= else { goto si }
n337= }
n338= :no
n339= if ($dname != $null) {
n340= did -b $dname 241
n341= did -o $dname 249 2 0
n342= did -r $dname 200
n343= }
n344= else { return 0 }
n345= goto yata
n346= :si
n347= if ($dname != $null) {
n348= did -e $dname 241
n349= did -o $dname 249 2 1
n350= did -r $dname 200
n351= }
n352= else { return 1 }
n353= :yata
n354= if ($devent != init) { did -f $dname 2 }
n355=}
n356=alias ftp {
n357= unset %taboftp.t.ftp.*
n358= if ($1- == $null) {
n359= ftpconf
n360= taboftp.timeremote taboftp.preguntacuenta
n361= return
n362= }
n363= if ($ip == $null) {
n364= taboftp.echoerror NOT CONNECTEd! IP NUMBER UNkNOWN...
n365= return
n366= }
n367= if ($1- isnum) {
n368= if ($taboftp.rini(-cuentasftp,$1) != $null) { .taboftp.timeremote taboftp.conecta $1- }
n369= else { taboftp.echoerror ACCOUNT $1 WAS NOT CONFIGUREd }
n370= return
n371= }
n372= set %taboftp.t.ftp.ss $remove($1-,ftp://)
n373= if ($numtok(%taboftp.t.ftp.ss,64) > 1) {
n374= set %taboftp.t.ftp.l $gettok($gettok(%taboftp.t.ftp.ss,1- [ $+ [ $calc($numtok(%taboftp.t.ftp.ss,64) - 1) ] ] ,64),1,58)
n375= set %taboftp.t.ftp.p $gettok($gettok(%taboftp.t.ftp.ss,1- [ $+ [ $calc($numtok(%taboftp.t.ftp.ss,64) - 1) ] ] ,64),2,58)
n376= }
n377= if (%taboftp.t.ftp.l == $null) {
n378= set %taboftp.t.ftp.l anonymous
n379= set %taboftp.t.ftp.ano 1
n380= }
n381= else { set %taboftp.t.ftp.ano 0 }
n382= if (%taboftp.t.ftp.p == $null) { set %taboftp.t.ftp.p 0 }
n383= set %taboftp.t.ftp.ss $gettok(%taboftp.t.ftp.ss,$numtok(%taboftp.t.ftp.ss,64),64)
n384= if ($gettok(%taboftp.t.ftp.ss,2-,47)) { set %taboftp.t.ftp.dir $ifmatch }
n385= if ($left(%taboftp.t.ftp.dir,1) != /) { set %taboftp.t.ftp.dir / $+ %taboftp.t.ftp.dir }
n386= set %taboftp.t.ftp.ss $gettok(%taboftp.t.ftp.ss,1,47)
n387= if ($gettok(%taboftp.t.ftp.ss,2,58)) { set %taboftp.t.ftp.pu $ifmatch }
n388= elseif ($gettok(%taboftp.t.ftp.dir,2,58)) { set %taboftp.t.ftp.pu $ifmatch }
n389= else { set %taboftp.t.ftp.pu 21 }
n390= set %taboftp.t.ftp.dir $gettok(%taboftp.t.ftp.dir,1,58)
n391= set %taboftp.t.ftp.ss $gettok(%taboftp.t.ftp.ss,1,58)
n392= set %taboftp.t.ftp.s $gettok(%taboftp.t.ftp.ss,1,47)
n393= if (%taboftp.t.ftp.dir == $null) { set %taboftp.t.ftp.dir 0 }
n394= :ftp
n395= inc %taboftp.t.ftp.n
n396= if ($sock(ftp [ $+ [ %taboftp.t.ftp.n ] ] )) { goto ftp }
n397= if ($dialog(FTP [ $+ [ %taboftp.t.ftp.n ] ] ) == $null) { dialog -dm FTP $+ %taboftp.t.ftp.n taboftp.ftp }
n398= taboftp.dida FTP $+ %taboftp.t.ftp.n 230 TRYiNG CONNECTiON: %taboftp.t.ftp.s in %taboftp.t.ftp.pu
n399= sockopen ftp $+ %taboftp.t.ftp.n %taboftp.t.ftp.s %taboftp.t.ftp.pu
n400= sockmark ftp $+ %taboftp.t.ftp.n %taboftp.t.ftp.s $+ $chr(9) $+ %taboftp.t.ftp.l $+ $chr(9) $+ %taboftp.t.ftp.p $+ $chr(9) $+ %taboftp.t.ftp.dir $+ $chr(9) $+ 0 $+ $chr(9) $+ 0 $+ $chr(9) $+ 0 $+ $chr(9) $+ 0 $+ $chr(9) $+ %taboftp.t.ftp.ano $+ $chr(9) $+ 0 $+ $chr(9) $+ 0 $+ $chr(9) $+ 0 $+ $chr(9) $+ 1
n401= if (%taboftp.t.ftp.ano) { set %taboftp.t.ftp.p tabo@ $+ $ip }
n402= if (%taboftp.t.ftp.pu == 21) { taboftp.metele -r.ftp %taboftp.t.ftp.ss $+ %taboftp.t.ftp.dir $+ ? $+ %taboftp.t.ftp.l $+ ? $+ $taboftp.encripta(%taboftp.t.ftp.p) }
n403= else { taboftp.metele -r.ftp %taboftp.t.ftp.ss $+ : $+ %taboftp.t.ftp.pu $+ %taboftp.t.ftp.dir $+ ? $+ %taboftp.t.ftp.l $+ ? $+ $taboftp.encripta(%taboftp.t.ftp.p) }
n404= unset %taboftp.t.ftp.*
n405=}