#!/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";
}