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