#!/usr/bin/perl
use strict;
use warnings;
use Net::FTPSSL;

my $server = "127.0.0.1";
my $username = "someuser";
my $passwd = "somepass";

my @ret;

my $ftps = Net::FTPSSL->new($server,
                            Encryption => EXP_CRYPT,
                            Debug => 1,
                           # Croak => 1,
                         )
     or die "Can't open $server\n$Net::FTPSSL::ERRSTR";

$ftps->login($username, $passwd)
    or error("Credential error, $ftps->last_message");

# get default listing and pwd
@ret = $ftps->list()
    or error("Command error, $ftps->last_message");

print "####################\n";
print join "\n", @ret,"\n";
print "####################\n";

# get default pwd
@ret = $ftps->pwd
    or error("Command error, $ftps->last_message");

print "####################\n";
print join "\n", @ret,"\n";
print "####################\n";

if( -t STDIN ) { print "tty\n"; }

while(1){
  print "Hit Control-C to exit ... otherwise:\n";
  print "Enter command: \n";
   my $com = <STDIN>;
   chomp $com;
   if ($com =~ m/quit/){ print "exiting\n";}

    # needed this eval to get ftps methods to work with pty
    my @ret =  eval "\$ftps->$com";
       if($@) { print "@_\n"; }

print "####################\n";
print  join "\n", @ret,"\n";
print "####################\n";

if ($com =~ m/quit/){ print "exit command received, ftpssl exiting\n"; 
                      print "Control-C to exit pty, or Shift-PageUp to view log\n";
                      last;
                      }
}

print "at end\n";
exit;

##</code><code>##

#!/usr/bin/perl -w

# Description: Fool a process into
# thinking that STDOUT is a terminal, when in fact
# basic PTY code from etcshadow
use warnings;
use strict; 
use IO::Pty; 

$SIG{CHLD} = 'IGNORE'; # for when we quit the ftpssl session

my $pty = IO::Pty->new; 
my $slave = $pty->slave;
open TTY,"/dev/tty" or die "not connected to a terminal\n"; 
$pty->clone_winsize_from(\*TTY);
close TTY;

my $pid = fork(); die "bad fork: $!\n" unless defined $pid; 
  if (!$pid) {
  
    open STDOUT,">&=".$pty->fileno() or die $!;
  
    exec "./ftps-z";

}else{
  $pty->close();
     while (defined (my $line = <$slave>)) {
       print $line;
     }
}

while(1){
  my $command = <>;
  print $slave "$command\n";
}