#!/usr/bin/perl -w 
#
use Net::FTP ;                                       # Used because se
+ctran requires a responder on the PC
#
#
###############################################################
#                    FTP Variables                            #
###############################################################
#
my $file_in       = "TRISCAN.txt.*" ;
my $password      = 'summit' ;
my $username      = 'summitelse' ;
my $host          = 'PCxxxx' ;
my $ftp           = undef ;
my $msg           = undef ;
#
####################################################################
#                     P R O C E S S I N G                          #
####################################################################
#
   print "\n\tNet::FTP Test begins\n" ;
#
   if ($ftp = Net::FTP->new($host, Debug => 0, Timeout => 10)) {
      print "\n\tFTP Connection established with $host\n" ;
   }
   else
   {
      $msg = "\n\tFTP Connection failed with $host\n" ;
      print $msg ;
      exit 0 ;
   }
#
################################################################
#          Login with the username/password details            #
################################################################
#
   if ($ftp->login($username,$password)) {
      print "\n\t$username login accepted\n" ;
   }
   else
   {
      $msg = "Username $username or password invalid!" ;
      print "\n\t$msg\n" ;
      exit 0 ;
   }
#
###############################################################
#                Try and get the file                         #
###############################################################
#
   if ($ftp->get("$file_in")) {
      print "\n\tYippee we goat the bleedin' file!\n" ;
   }
   else
   {
      $msg = "Oh Frag we didnae get the blighter!" ;
      print "\n\t$msg\n" ;
      exit 0 ;
   }
#
##############################################################
#               Try and quit the FTP                         #
##############################################################
#
   $ftp->quit ;
#
######################################################################
+#####
# Check that the transfer went okay. If the file doesn't exist the    
+    #
# transfer definitely failed.                                         
+    #
######################################################################
+#####
#
   if (! -e $file_in) {
     $msg = "No $file_in exists after FTP has completed" ;
     exit 0 ;
   }
#
#############################################################
#                      Toodle pip                           #
#############################################################
#
print "\n\tNet::FTP Test Ends\n" ;
[download]