| 
      
            Lines 32-50
          sftp_file.pl - SFTP a file to a remote server
      
      
        Link Here
      
     | 
  
        
          | 32 | 
           | 
          32 | 
           | 
        
        
          | 33 | 
          =head1 SYNOPSIS  | 
          33 | 
          =head1 SYNOPSIS  | 
        
        
          | 34 | 
           | 
          34 | 
           | 
        
          
            
              | 35 | 
              sftp_file.pl [ -h | -m ] [ -v ] host user pass upload_dir port file email  | 
              35 | 
              sftp_file.pl [ --help | --man ] [ -v ] -h host -u user -p pass -d upload_dir --port port -f file -e email  | 
            
        
          | 36 | 
           | 
          36 | 
           | 
        
        
          | 37 | 
           Options:  | 
          37 | 
           Options:  | 
        
          
            
              | 38 | 
                 -h --help       brief help message  | 
              38 | 
                 --help       brief help message  | 
            
        
          | 39 | 
             -m --man        full documentation, same as --help --verbose  | 
          39 | 
             -m --man        full documentation, same as --help --verbose  | 
        
        
          | 40 | 
             -v --verbose    verbose output  | 
          40 | 
             -v --verbose    verbose output  | 
        
          
            
              | 41 | 
                 --host          SFTP host to upload to  | 
              41 | 
                 -h --host          SFTP host to upload to  | 
            
            
              | 42 | 
                 --user          SFTP user  | 
              42 | 
                 -u --user          SFTP user  | 
            
            
              | 43 | 
                 --pass          SFTP password  | 
              43 | 
                 -p --pass          SFTP password  | 
            
            
              | 44 | 
                 --upload_dir    Directory on SFTP host to upload to  | 
              44 | 
                 -u --upload_dir    Directory on SFTP host to upload to  | 
            
            
              | 45 | 
                 --port          SFTP upload port to use - falls back to port 22  | 
              45 | 
                 -P --port          SFTP upload port to use - falls back to port 22  | 
            
            
              | 46 | 
                 --file          File to SFTP to host  | 
              46 | 
                 -f --file          File to SFTP to host  | 
            
            
              | 47 | 
                 --email         Email address to receive confirmation of SFTP upload success or failure  | 
              47 | 
                 -e --email         Email address to receive confirmation of SFTP upload success or failure  | 
            
        
          | 48 | 
           | 
          48 | 
           | 
        
        
          | 49 | 
          =head1 OPTIONS  | 
          49 | 
          =head1 OPTIONS  | 
        
        
          | 50 | 
           | 
          50 | 
           | 
        
  
    | 
      
            Lines 129-144
          my $sftp_status          = undef;
      
      
        Link Here
      
     | 
  
        
          | 129 | 
          my $command_line_options = join( " ", @ARGV );  | 
          129 | 
          my $command_line_options = join( " ", @ARGV );  | 
        
        
          | 130 | 
           | 
          130 | 
           | 
        
        
          | 131 | 
          GetOptions(  | 
          131 | 
          GetOptions(  | 
        
          
            
              | 132 | 
                  'help|?'       => \$help,  | 
              132 | 
                  'help|?'         => \$help,  | 
            
            
              | 133 | 
                  'man'          => \$man,  | 
              133 | 
                  'm|man'          => \$man,  | 
            
            
              | 134 | 
                  'verbose'      => \$verbose,  | 
              134 | 
                  'v|verbose'      => \$verbose,  | 
            
            
              | 135 | 
                  'host=s'       => \$host,  | 
              135 | 
                  'h|host=s'       => \$host,  | 
            
            
              | 136 | 
                  'user=s'       => \$user,  | 
              136 | 
                  'u|user=s'       => \$user,  | 
            
            
              | 137 | 
                  'pass=s'       => \$pass,  | 
              137 | 
                  'p|pass=s'       => \$pass,  | 
            
            
              | 138 | 
                  'upload_dir=s' => \$upload_dir,  | 
              138 | 
                  'd|upload_dir=s' => \$upload_dir,  | 
            
            
              | 139 | 
                  'port=s'       => \$port,  | 
              139 | 
                  'port=s'         => \$port,  | 
            
            
              | 140 | 
                  'file=s'       => \$file,  | 
              140 | 
                  'f|file=s'       => \$file,  | 
            
            
              | 141 | 
                  'email=s'      => \$email,  | 
              141 | 
                  'e|email=s'      => \$email,  | 
            
        
          | 142 | 
          ) or pod2usage(2);  | 
          142 | 
          ) or pod2usage(2);  | 
        
        
          | 143 | 
          pod2usage( -verbose => 2 ) if ($man);  | 
          143 | 
          pod2usage( -verbose => 2 ) if ($man);  | 
        
        
          | 144 | 
          pod2usage( -verbose => 2 ) if ( $help and $verbose );  | 
          144 | 
          pod2usage( -verbose => 2 ) if ( $help and $verbose );  | 
        
            
              | 145 | 
              -   | 
               | 
               |