I am using the code below. When I run the script if I run it for just one
file then everything works fine. It asks me for my passpharase and copies
perfectly. If I uncomment both scp -> iscp statements and run the script it
asks me for the first one and then locks on the question proceed [y/N] for
the second I have to kill the cmd window to get back.

Any thoughts?


#!/usr/bin/perl

use strict;
use warnings;

use Net::SCP qw / scp iscp /;
my $leases = 'hylafax:/var/state/dhcp/dhcpd.leases';
my $access = 'hylafax:/usr/local/squid/var/logs/access.log';

my $scp = Net::SCP -> new ( 'hylafax', 'pdk' );

print "Getting Leases File\n";
$scp -> iscp ( $leases, 'scpleases.txt' );

print "Getting Access File\n";
$scp -> iscp ( $access, 'scpaccess.txt' );

 Paul Kraus
 -----------------------
 PEL Supply Company
 Network Administrator
 -----------------------
 800 321-1264 Toll Free
 216 267-5775 Voice
 216 267-6176 Fax
 www.pelsupply.com
 -----------------------


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Reply via email to