Multiple ftp sessions with ftp_lib
I have downloaded your ftp_lib package.
I suggest an modification :
A have add this proc on your package :
namespace eval class {
namespace export new
proc new {name body} {
regsub export $body "namespace export" bodytmp
set cmd "namespace eval $name {\n"
append cmd " namespace export corps new \n"
append cmd " variable corps \n"
append cmd " set corps {$bodytmp } \n"
append cmd " proc new {nom} {\n"
append cmd " set acmd \[list namespace eval \$nom \]\n"
append cmd " lappend acmd { $bodytmp}\n"
append cmd " eval uplevel 1 {\$acmd}\n"
append cmd " }\n"
append cmd "}"
eval uplevel 1 {$cmd}
}
}
And I have change this line :
namespace eval FTP {
and
namespace export DisplayMsg Open Close Cd Pwd Type List NList ModTime\
Delete Rename Put Get Reget Newer Quote MkDir RmDir
by
class::new FTP {
and
export DisplayMsg Open Close Cd Pwd Type List NList ModTime\
Delete Rename Put Get Reget Newer Quote MkDir RmDir
this add a multisession feature.
exemple :
FTP::new Session1
Session1::Open Server1 Name1 pass1
FTP::new Session2
Session2::Open Server2 Name2 pass2
only whith this change your packe run imediatly on multisession.
Bye
salut
Jean-Yves Terrien
back