Select Code to Download

Select or download this

if (! ($ftp->put($location.$fileName)) )
                                {
                                                &Logs(":Error:","Could
+ not PUT file $fileName from $location to $ftpHost");
die &SendFailEmail("Error with transferring $fileName to $ftpHost",$no
+tificationEmail);
                                }

Select or download this

 my $host = $ftpHost;
                        my %args =
...
                                        &Logs(":Error:","Could not log
+in to FTP $location $ftpHost");
                                        die &SendFailEmail("Error with
+ connecting to $ftpHost",$notificationEmail);
                        }