UnderIRC — File Browser
UnderIRCv1.0 / UnderIRCv1.0 / Under / System / ftp3.ini
ftp3.ini — 18.17 KB — Download this file
[script]
n0=alias taboftp.ftpcom {
n1= if ($sock($1).status != active) { taboftp.dida $1 230 THiS FTP SESSiON iS CLOSEd }
n2= elseif ($sock(G [ $+ [ $1 ] ] )) { taboftp.dida $1 230 ERROR - DOWNLOADiNG DiRiNFO... PLEASE WAiT }
n3= elseif ($sock(D [ $+ [ $1 ] ] )) { taboftp.dida $1 230 ERROR - DOWNLOADiNG FiLE... PLEASE WAiT }
n4= elseif ($sock(U [ $+ [ $1 ] ] )) { taboftp.dida $1 230 ERROR - UPLOADiNG FiLE... PLEASE WAiT }
n5= elseif ($2 == cd) { taboftp.ftpsw $1 CWD $3- }
n6= elseif (cd..* iswm $2-) || (cd/* iswm $2-) || (cd\* iswm $2-) { taboftp.ftpsw $1 CWD $mid($2-,3,$calc($len($2-) - 2)) }
n7= elseif ($2 == rd) { taboftp.ftpsw $1 RMD $3- }
n8= elseif ($2 == md) { taboftp.ftpsw $1 MKD $3- }
n9= elseif ($2 == del) { taboftp.ftpsw $1 DELE $3- }
n10= elseif ($2 == cls) { clear }
n11= elseif ($2 == ren) || ($2 == rename) {
n12= set -u %taboftp.t.ftpren.esdir %taboftp.t.ftpren.esdir
n13= set %taboftp.t.ftpren.a $taboftp.parametro($null,1,$null,normal,$taboftp.ctoktok(32,1,$3-),NEW NAME FOR REMOTE,$iif(%taboftp.t.ftpren.esdir,dir,file),:<CRLF>,$3-,<CRLF>TO MOVE iT WRiTE A DiR)
n14= if (%taboftp.t.ftpren.a != $null) {
n15= sockmark $1 $puttok($sock($1).mark,%taboftp.t.ftpren.a,10,9)
n16= taboftp.ftpsw $1 RNFR $3-
n17= }
n18= unset %taboftp.t.ftpren.*
n19= }
n20= elseif ($2 == dir) || ($2 == ls) || ($2 == list) {
n21= set %taboftp.t.ftpdir.p L $+ $1
n22= sockclose %taboftp.t.ftpdir.p
n23= socklisten %taboftp.t.ftpdir.p
n24= sockmark %taboftp.t.ftpdir.p $ticks
n25= set %taboftp.t.ftpdir.p $ip $+ . $+ $gettok($longip($sock(%taboftp.t.ftpdir.p).port),3-4,46)
n26= set %taboftp.t.ftpdir.p $replace(%taboftp.t.ftpdir.p,.,$chr(44))
n27= if ($3- != $null) { set %taboftp.t.ftpdir.200 LIST $3- }
n28= else { set %taboftp.t.ftpdir.200 LIST $did($1,56) }
n29= sockmark $1 $puttok($sock($1).mark,%taboftp.t.ftpdir.200,6,9)
n30= taboftp.ftpsw $1 PORT %taboftp.t.ftpdir.p
n31= :yatalist
n32= unset %taboftp.t.ftpdir.*
n33= }
n34= elseif ($2 == get) || ($2 == retr) {
n35= set %taboftp.t.ftpget.t $iif($numtok($3-,47) > 1,$gettok($3-,1- [ $+ [ $calc($numtok($3-,47) - 1) ] ] ,47)) $+ /
n36= set %taboftp.t.ftpget.d $gettok($dialog($1).title,8,32) $+ $did($1,49) $+ / $+ $iif($len(%taboftp.t.ftpget.t) > 1,%taboftp.t.ftpget.t)
n37= set %taboftp.t.ftpget.a $gettok($3-,$numtok($3-,47),47)
n38= set %taboftp.t.ftpget.w T $+ $1
n39= set %taboftp.t.ftpget.l $did($1,9) $+ %taboftp.t.ftpget.a
n40= set %taboftp.t.ftpget.p L $+ $1
n41= sockclose %taboftp.t.ftpget.p
n42= socklisten %taboftp.t.ftpget.p
n43= sockmark %taboftp.t.ftpget.p %taboftp.t.ftpget.l $+ $chr(9) $+ %taboftp.t.ftpget.w $+ $chr(9) $+ $ticks $+ $chr(9) $+ 0 $+ $chr(9) $+ 1 $+ $chr(9) $+ 0 $+ $chr(9) $+ DFTP
n44= sockmark $1 $puttok($sock($1).mark,%taboftp.t.ftpget.p,5,9)
n45= set %taboftp.t.ftpget.p $ip $+ . $+ $gettok($longip($sock(%taboftp.t.ftpget.p).port),3-4,46)
n46= set %taboftp.t.ftpget.p $replace(%taboftp.t.ftpget.p,.,$chr(44))
n47= set %taboftp.t.ftpget.200 RETR $3-
n48= set %taboftp.t.ftpget.port PORT %taboftp.t.ftpget.p
n49= taboftp.ftpsw $1 SiZE $3-
n50= sockmark $1 $puttok($puttok($sock($1).mark,%taboftp.t.ftpget.port,8,9),%taboftp.t.ftpget.200,6,9)
n51= .timer $+ %taboftp.t.ftpget.w off
n52= if ($dialog(%taboftp.t.ftpget.w)) { taboftp.actransf %taboftp.t.ftpget.w }
n53= else {
n54= did -f $1 1
n55= set -u %taboftp.t.ftpget.rtabotmp $dialog(%taboftp.t.ftpget.w,taboftp.transf,-4)
n56= }
n57= unset %taboftp.t.ftpget.*
n58= }
n59= elseif ($2 == upl) || ($2 == stor) {
n60= if ($3 == $null) { set %taboftp.t.ftpupl.a $dir="FiLE:" }
n61= else { set %taboftp.t.ftpupl.a $3- }
n62= if ($isfile(%taboftp.t.ftpupl.a) == $false) { taboftp.echoerror FiLE %taboftp.t.ftpupl.a NOT FOUND }
n63= else {
n64= set %taboftp.t.ftpupl.w T $+ $1
n65= set %taboftp.t.ftpupl.p L $+ $1
n66= sockclose %taboftp.t.ftpupl.p
n67= socklisten %taboftp.t.ftpupl.p
n68= sockmark %taboftp.t.ftpupl.p %taboftp.t.ftpupl.a $+ $chr(9) $+ %taboftp.t.ftpupl.w $+ $chr(9) $+ $ticks $+ $chr(9) $+ $file(%taboftp.t.ftpupl.a).size $+ $chr(9) $+ %taboftp.t.ftpupl.p $+ $chr(9) $+ 0 $+ $chr(9) $+ UFTP
n69= set %taboftp.t.ftpupl.p $ip $+ . $+ $gettok($longip($sock(%taboftp.t.ftpupl.p).port),3-4,46)
n70= set %taboftp.t.ftpupl.p $replace(%taboftp.t.ftpupl.p,.,$chr(44))
n71= taboftp.ftpsw $1 PORT %taboftp.t.ftpupl.p
n72= set %taboftp.t.ftpupl.200 STOR $gettok(%taboftp.t.ftpupl.a,$numtok(%taboftp.t.ftpupl.a,92),92)
n73= sockmark $1 $puttok($sock($1).mark,%taboftp.t.ftpupl.200,6,9)
n74= .timer $+ %taboftp.t.ftpupl.w off
n75= if ($dialog(%taboftp.t.ftpupl.w)) { taboftp.actransf %taboftp.t.ftpupl.w }
n76= else {
n77= did -f $1 1
n78= set -u %taboftp.t.ftpupl.rtabotmp $dialog(%taboftp.t.ftpupl.w,taboftp.transf,-4)
n79= }
n80= }
n81= unset %taboftp.t.ftpupl.*
n82= }
n83= else { taboftp.ftpsw $1 $upper($2) $3- }
n84=}
n85=alias taboftp.ftpsw {
n86= if ($sock($1).status != active) { taboftp.dida $1 230 THiS FTP SESSiON iS CLOSEd }
n87= elseif ($sock(G [ $+ [ $1 ] ] )) { taboftp.dida $1 230 ERROR: DOWNLOADiNG DiRiNFO... PLEASE WAiT }
n88= elseif ($sock(D [ $+ [ $1 ] ] )) { taboftp.dida $1 230 ERROR: DOWNLOADiNG FiLE... PLEASE WAiT }
n89= elseif ($sock(U [ $+ [ $1 ] ] )) { taboftp.dida $1 230 ERROR: UPLOADiNG FiLE... PLEASE WAiT }
n90= else {
n91= sockwrite -n $1 $2-
n92= if ($2 == pass) { taboftp.dida $1 230 $2 $str(*,$len($3-)) }
n93= else { taboftp.dida $1 230 $2- }
n94= }
n95=}
n96=alias taboftp.metepass {
n97= set %taboftp.t.ftpmetepass.p $taboftp.parametropass($null,1,$null,1,$null,PASSWORD FOR ACCOUNT,$2,ON SERVER,$3,<CRLF>)
n98= if ($dialog($1) == $null) { goto yata }
n99= sockwrite -n $1 PASS %taboftp.t.ftpmetepass.p
n100= taboftp.dida $1 230 SENDiNG PASSWORD...
n101= taboftp.dida $1 230 PASS $str(*,$len(%taboftp.t.ftpmetepass.p))
n102= :yata
n103= unset %taboftp.t.ftpmetepass.p
n104=}
n105=alias taboftp.ftpnum {
n106= if ($sockname) { return $remove($sockname,FTP,t,l,g,u,d,a,b,m) }
n107= if (FTP* iswm $1) { return $remove($1,FTP) }
n108= if ($dname != $null) { return $remove($dname,FTP,t) }
n109=}
n110=alias taboftp.ftpnums { return FTP $+ $taboftp.ftpnum($1) }
n111=alias taboftp.ftpsr {
n112= taboftp.dida $sockname 230 $1-
n113= if ($1 == 150) {
n114= if ($taboftp.sokmark(5)) {
n115= if ($round($gettok($gettok($2-,$numtok($2-,40),40),1,41),0) > 0) { sockmark $taboftp.sokmark(5) $puttok($sock($taboftp.sokmark(5)).mark,$round($gettok($gettok($2-,$numtok($2-,40),40),1,41),0),4,9) }
n116= sockmark $sockname $puttok($sock($sockname).mark,0,5,9))
n117= }
n118= }
n119= elseif ($1 == 200) {
n120= if (($2-4 == type set to) && ($remove($5,.) != i)) || (($2-3 == type is) && ((image !isin $4-) || (binary !isin $4-))) {
n121= taboftp.ftpsw $sockname TYPE I
n122= taboftp.dida $sockname 230 YOU MUST NOT CHANGE THE TRANSFER MOdE
n123= }
n124= elseif ($2 == port) {
n125= if ($taboftp.sokmark(6)) { taboftp.ftpsw $sockname $ifmatch }
n126= sockmark $taboftp.ftpnums $puttok($sock($taboftp.ftpnums).mark,0,6,9))
n127= }
n128= }
n129= elseif ($1 == 213) {
n130= if ($taboftp.sokmark(8)) {
n131= taboftp.ftpsw $sockname $ifmatch
n132= if ($taboftp.sokmark(11)) && ($taboftp.sokmark($taboftp.sokmark(5),7) == DFTP) && ($isfile($taboftp.sokmark($taboftp.sokmark(5),1))) {
n133= if ($file($taboftp.sokmark($taboftp.sokmark(5),1)).size < $2) {
n134= taboftp.ftpsw $sockname REST $ifmatch
n135= sockmark $taboftp.sokmark(5) $puttok($sock($taboftp.sokmark(5)).mark,$calc($2 - $file($taboftp.sokmark($taboftp.sokmark(5),1)).size),4,9)
n136= did -o $replace($taboftp.sokmark(5),l,t) 3 1 0 de $calc($2 - $file($taboftp.sokmark($taboftp.sokmark(5),1)).size) bytes
n137= }
n138= }
n139= else {
n140= sockmark $taboftp.sokmark(5) $puttok($sock($taboftp.sokmark(5)).mark,$2,4,9)
n141= did -o $replace($taboftp.sokmark(5),l,t) 3 1 0 OF $2 BYTES
n142= }
n143= did -o $replace($taboftp.sokmark(5),l,t) 4 1 0%
n144= }
n145= sockmark $taboftp.ftpnums $puttok($sock($taboftp.ftpnums).mark,0,8,9))
n146= }
n147= elseif ($1 == 220) {
n148= if ($taboftp.sokmark(9)) {
n149= taboftp.dida $sockname 230 LOGGiNG AS ANONYMOUS...
n150= taboftp.ftpsw $sockname USER anonymous
n151= }
n152= else {
n153= taboftp.dida $sockname 230 LOGGiNG...
n154= taboftp.ftpsw $sockname USER $taboftp.sokmark(2)
n155= }
n156= }
n157= elseif ($1 == 226) {
n158= if ($taboftp.sokmark(7)) { taboftp.ftpsigue $sockname 1 }
n159= sockmark $taboftp.ftpnums $puttok($sock($taboftp.ftpnums).mark,0,7,9))
n160= if ($did($sockname,250,1) != $null) { taboftp.timeremote taboftp.ftpsigue $sockname 0 }
n161= }
n162= elseif ($1 == 230) {
n163= if (log isin $2-) {
n164= taboftp.ftpsw $sockname TYPE I
n165= taboftp.dida $sockname 230 CONNECTEd!
n166= if ($taboftp.sokmark(4)) {
n167= if ($numtok($gettok($taboftp.sokmark(4),$numtok($taboftp.sokmark(4),47),47),46) > 1 ) {
n168= did -a $sockname 250 taboftp.ftpcom $sockname CWD $remove($taboftp.sokmark(4),$gettok($taboftp.sokmark(4),$numtok($taboftp.sokmark(4),47),47))
n169= did -a $sockname 250 taboftp.ftpcom $sockname PWD
n170= did -a $sockname 250 taboftp.ftpcom $sockname GET $gettok($taboftp.sokmark(4),$numtok($taboftp.sokmark(4),47),47)
n171= }
n172= else {
n173= did -a $sockname 250 taboftp.ftpcom $sockname CWD $taboftp.sokmark(4)
n174= did -a $sockname 250 taboftp.ftpcom $sockname PWD
n175= }
n176= sockmark $sockname $puttok($sock($sockname).mark,0,4,9)
n177= }
n178= taboftp.ftpsw $sockname REST 69
n179= }
n180= }
n181= elseif ($1 == 250) {
n182= if ($did($sockname,250,1) != $null) { taboftp.ftpsigue $sockname 0 }
n183= else { taboftp.ftpsw $sockname PWD }
n184= }
n185= elseif ($1 == 257) {
n186= if (created !isin $gettok($1-,3-,34)) { did -o $sockname 49 1 $gettok($1-,2,34) }
n187= taboftp.ftpcom $sockname dir
n188= }
n189= elseif ($1 == 331) {
n190= if ($taboftp.sokmark(9)) {
n191= taboftp.dida $sockname 230 SENDiNG PASSWORD...
n192= taboftp.ftpsw $sockname PASS tabo@ $+ $ip
n193= }
n194= elseif ($taboftp.sokmark(3)) {
n195= taboftp.dida $sockname 230 SENDiNG PASSWORD...
n196= taboftp.ftpsw $sockname PASS $taboftp.sokmark(3)
n197= }
n198= else { taboftp.timeremote taboftp.metepass $sockname $taboftp.sokmark(2) $taboftp.sokmark(1) }
n199= }
n200= elseif ($1 == 350) {
n201= if (exists*destination* iswm $2-) || (rename isin $2-) {
n202= taboftp.ftpsw $sockname RNTO $taboftp.sokmark(10)
n203= sockmark $sockname $puttok($sock($sockname).mark,0,10,9)
n204= }
n205= elseif ($taboftp.sokmark(13)) {
n206= taboftp.dida $sockname 230 THiS SERVER CAN RESUME BROKEN DOWNLOADs
n207= sockmark $sockname $puttok($sock($sockname).mark,0,13,9)
n208= taboftp.ftpsw $sockname REST 0
n209= taboftp.ftpsw $sockname PWD
n210= }
n211= }
n212= elseif ($istok(425 450 501 550 553,$1,32)) || (($1 == 500) && ($3 == port)) { taboftp.ftpsigue $sockname 1 }
n213= elseif ($1 == 504) {
n214= taboftp.dida $sockname 230 THiS SERVER CAN NOT RESUME BROKEN DOWNLOADs
n215= sockmark $sockname $puttok($puttok($sock($sockname).mark,0,11,9),0,13,9)
n216= taboftp.ftpsigue $sockname 1
n217= }
n218= elseif ($1 == 500) && ($remove($2,',",:) == size) {
n219= if ($taboftp.sokmark(8)) {
n220= taboftp.ftpsw $sockname $ifmatch
n221= sockmark $taboftp.sokmark(5) $puttok($sock($taboftp.sokmark(5)).mark,0,4,9)
n222= did -o $replace($taboftp.sokmark(5),l,t) 3 1 0 bytes
n223= }
n224= sockmark $taboftp.ftpnums $puttok($sock($taboftp.ftpnums).mark,0,8,9))
n225= }
n226=}
n227=alias taboftp.ftpsigue {
n228= sockmark $1 $puttok($puttok($puttok($sock($1).mark,0,6,9),0,7,9),0,8,9)
n229= sockclose ? $+ $1
n230= if ($did($1,250,1)) {
n231= if ($gettok($did($1,250,1),3,32) != get) && ($gettok($did($1,250,1),3,32) != upl) && ($dialog(T [ $+ [ $1 ] ] )) {
n232= dialog -x T $+ $1
n233= sockclose L $+ $1
n234= sockclose D $+ $1
n235= sockclose U $+ $1
n236= }
n237= set -u %taboftp.t.ftpsigue.t $did($1,250,1)
n238= did -d $1 250 1
n239= }
n240= else {
n241= if ($dialog(T [ $+ [ $1 ] ] )) {
n242= dialog -x $ifmatch
n243= sockclose L $+ $1
n244= sockclose D $+ $1
n245= sockclose U $+ $1
n246= }
n247= if ($2) { taboftp.timeremote taboftp.ftpcom $1 dir }
n248= }
n249= if (%taboftp.t.ftpsigue.t != $null) { $ifmatch }
n250=}
n251=alias taboftp.gftpsr {
n252= write $scriptdirftptmp\ $+ $taboftp.ftpnums $+ DIR.txt $1-
n253= if ($9- != $null) {
n254= if ($left($1,1) == d) {
n255= if ($9- != ..) {
n256= did -a $taboftp.ftpnums 50 Â Â Â Â Â Â Â Â / $+ $9-
n257= did -a $taboftp.ftpnums 248 Â Â Â Â Â Â Â Â / $+ $9-
n258= }
n259= }
n260= elseif ($left($1,1) == l) {
n261= did -a $taboftp.ftpnums 50         / $+ $gettok($replace($9-,$chr(32), , -> ,$chr(1), ,$chr(32)),1,1)
n262= did -a $taboftp.ftpnums 248         / $+ $gettok($replace($9-,$chr(32), , -> ,$chr(1), ,$chr(32)),1,1)
n263= }
n264= else {
n265= did -o $taboftp.ftpnums 249 1 $calc($did($taboftp.ftpnums,249,1) + 1)
n266= did -o $taboftp.ftpnums 249 2 $calc($did($taboftp.ftpnums,249,2) + $5)
n267= did -a $taboftp.ftpnums 50 $9-
n268= did -a $taboftp.ftpnums 248 $9- / / $+ $5
n269= }
n270= }
n271=}
n272=alias taboftp.actransf {
n273= taboftp.loop 3,4,6,10 did -r $1
n274= did -o $1 5 1 WAiTiNG CONNECTiON...
n275= if (%taboftp.t.ftpget.a) {
n276= dialog -t $1 FTP $+ $remove($1,TFTP) - DOWNLOAD
n277= did -o $1 10 1 %taboftp.t.ftpget.a
n278= }
n279= else {
n280= dialog -t $1 FTP $+ $remove($1,TFTP) - UPLOAD
n281= did -o $1 10 1 $nopath(%taboftp.t.ftpupl.a)
n282= }
n283=}
n284=alias taboftp.upl2 {
n285= if ($taboftp.sokmark($1,6) >= $taboftp.sokmark($1,4)) {
n286= did -o $taboftp.sokmark($1,2) 3 1 $taboftp.sokmark($1,6) OF $taboftp.sokmark($1,4) BYTES
n287= did -o $taboftp.sokmark($1,2) 4 1 100%
n288= did -o $taboftp.sokmark($1,2) 5 1 $taboftp.sckbpsw($calc($taboftp.sokmark($1,6) / (($ticks - $taboftp.sokmark(3)) / 1000)))
n289= did -o $taboftp.sokmark($1,2) 6 1 COMPLETEd iN $taboftp.duracio($calc(($ticks - $taboftp.sokmark($1,3)) / 1000),2)
n290= sockmark $taboftp.ftpnums $puttok($sock($taboftp.ftpnums).mark,1,7,9)
n291= taboftp.dida $taboftp.ftpnums 230 TRANSFEREd $taboftp.sokmark($1,6) BYTES iN $taboftp.duracio($calc(($ticks - $taboftp.sokmark($1,3)) / 1000),2) $taboftp.corch($taboftp.sckbpsw($calc($taboftp.sokmark($1,6) / (($ticks - $taboftp.sokmark(3)) / 1000))))
n292= taboftp.ftpsigue $taboftp.ftpnums 1
n293= }
n294= else {
n295= bread " $+ $taboftp.sokmark($1,1) $+ " $taboftp.sokmark($1,6) $gettok($taboftp.mini(options,n0),21,44) &ftp.upl
n296= sockwrite $1 &ftp.upl
n297= sockmark $1 $taboftp.sokmark($1,1-5) $+ $chr(9) $+ $calc($taboftp.sokmark($1,6) + $bvar(&ftp.upl,0))
n298= did -o $taboftp.sokmark($1,2) 3 1 $taboftp.sokmark($1,6) of $taboftp.sokmark($1,4) BYTES
n299= did -o $taboftp.sokmark($1,2) 4 1 $taboftp.percent($taboftp.sokmark($1,6),$taboftp.sokmark($1,4))
n300= did -o $taboftp.sokmark($1,2) 5 1 $taboftp.sckbpsw($calc($taboftp.sokmark($1,6) / (($ticks - $taboftp.sokmark(3)) / 1000)))
n301= did -o $taboftp.sokmark($1,2) 6 1 REMAiNiNG: $taboftp.duracio($calc(($taboftp.sokmark($1,4) - $taboftp.sokmark($1,6)) / ($taboftp.sokmark($1,6) / (($ticks - $taboftp.sokmark(3)) / 1000))),2)
n302= }
n303=}
n304=alias taboftp.upl {
n305= unset %taboftp.t.dftpupl.*
n306= :upl
n307= inc %taboftp.t.dftpupl.t
n308= if ($did($1,10,%taboftp.t.dftpupl.t).sel) {
n309= set %taboftp.t.dftpupl.l $did($1,10,$ifmatch)
n310= if (Â Â Â Â Â Â Â Â /* !iswm %taboftp.t.dftpupl.l) && (Â Â Â Â Â Â Â Â Â <* !iswm %taboftp.t.dftpupl.l) {
n311= inc %taboftp.t.dftpupl.n
n312= did -a $1 250 taboftp.ftpcom $1 upl $did($1,9) $+ %taboftp.t.dftpupl.l
n313= }
n314= goto upl
n315= }
n316= if (%taboftp.t.dftpupl.n) { taboftp.ftpsigue $1 1 }
n317= unset %taboftp.t.dftpupl.*
n318=}
n319=alias taboftp.get {
n320= unset %taboftp.t.dftpget.*
n321= :get
n322= if ($dialog($1) == $null) { goto yata }
n323= inc %taboftp.t.dftpget.t
n324= if ($did($1,50,%taboftp.t.dftpget.t).sel) {
n325= set %taboftp.t.dftpget.l $did($1,50,$ifmatch)
n326= if (Â Â Â Â Â Â Â Â /* !iswm %taboftp.t.dftpget.l) {
n327= set %taboftp.t.dftpget.local $did($1,9) $+ %taboftp.t.dftpget.l
n328= if ($isfile(%taboftp.t.dftpget.local) == $true) && ($$?!="YOU ALREAdY HAVE THE FiLE $+ $crlf $+ $crlf $+ $nopath(%taboftp.t.dftpget.local) $+ $crlf $+ $crlf $+ SiZE: $+ $crlf $+ $crlf $+ $file(%taboftp.t.dftpget.local).size BYTES $chr(91) $+ $taboftp.tabosize($file(%taboftp.t.dftpget.local).size) $+ $chr(93) $+ $crlf $+ $crlf $+ REPLACE iT?" == $false) { goto get }
n329= inc %taboftp.t.dftpget.n
n330= did -a $1 250 taboftp.ftpcom $1 get %taboftp.t.dftpget.l
n331= }
n332= goto get
n333= }
n334= if ($dialog($1) == $null) { goto yata }
n335= if (%taboftp.t.dftpget.n) { taboftp.ftpsigue $1 0 }
n336= :yata
n337= unset %taboftp.t.dftpget.*
n338=}
n339=alias taboftp.delremo {
n340= unset %taboftp.t.dftpdelr.*
n341= :delr
n342= inc %taboftp.t.dftpdelr.t
n343= if ($did(50,%taboftp.t.dftpdelr.t).sel) {
n344= set %taboftp.t.dftpdelr.l $did(50,$ifmatch)
n345= set %taboftp.t.dftpdelr.d $mid(%taboftp.t.dftpdelr.l,10,99999999)
n346= if (%taboftp.t.dftpdelr.l == Â Â Â Â Â Â Â Â /..) { }
n347= elseif (Â Â Â Â Â Â Â Â /* iswm %taboftp.t.dftpdelr.l) {
n348= inc %taboftp.t.dftpdelr.n
n349= did -a $dname 250 taboftp.ftpcom $dname rd %taboftp.t.dftpdelr.d
n350= }
n351= else {
n352= inc %taboftp.t.dftpdelr.n
n353= did -a $dname 250 taboftp.ftpcom $dname del %taboftp.t.dftpdelr.l
n354= }
n355= goto delr
n356= }
n357= if (%taboftp.t.dftpdelr.n) { taboftp.timeremote taboftp.ftpsigue $dname 1 }
n358= unset %taboftp.t.dftpdelr.*
n359=}