[wplug] perl help

[Ryan W. Frenz]

John Harrold wrote:

>Sometime in February Ryan W. Frenz assaulted the keyboard and produced:
>
>| Sorry if this is an easy question -- I'm relatively new to perl.  I'm 
>| trying to launch ssh from a perl script.  I can launch it fine, but I 
>| need the user to be able to enter password when ssh prompts for it.  
>| Right now, I'm just getting the prompt for password but then "permission 
>| denied" instantly.  I guess I need perl to allow the user to enter the 
>| password, then regain control after that.  Any ideas?  I hope the 
>| question made sense.  I've attached the script...
>| 
>| Thanks,
>| Ryan
>| 
>| # ! perl
>| 
>| $prog = $ARGV[0]
>| $machine = $ARGV[1];
>| $label = $ARGV[2];
>| 
>| `ssh $machine $prog`
>| 
>| open(FD, ">>file");
>| print FD "ssh $machine $prog";
>
>
>did you try the system command?
>  
>
yeah, same problem -- ssh just isn't waiting for my password.  I get a 
prompt for password then 'permission denied' three times and it exits.

> my $prog    = $ARGV[0];
> my $machine = $ARGV[1];
> my $label   = $ARGV[2];
> my $cmd     = "ssh user\@$machine  $prog";
># or
>    $cmd     = "ssh $machine  $prog";
>
>    system($cmd);
>
>    exit 0;
>
>  
>
Ryan