Hello all!
I am stumbling around with Net::Ftp and trying to figure a clean way to
detect errors and report accordingly.
Currently I have the following butt ugly type of crud surrounding numerous
ftp function calls
&error("Unable to login to mc0300ux218" . " (FILE: " . __FILE__ ."
LINE: " . __LINE__ .")") if (! $g_
ftp->login($g_ftp_login,$g_ftp_passwd));
&error("Unable to CWD to /junk" . " (FILE: " . __FILE__ ." LINE: " .
__LINE__ .")") if (! $g_ftp->cwd
("/tmp"));
&error("Unable to upload file: ORR.env" . " (FILE: " . __FILE__ ."
LINE: " . __LINE__ .")") if (! $g_
ftp->put("OTT.env","vqx_prd_tree.env"));
$g_ftp->quit;
As you can see, it is extremely butt ugly.
-Ron
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
