@ISA = qw(Exporter);
@EXPORT_OK = qw( scp iscp );
-$VERSION = '0.02';
+$VERSION = '0.03';
$scp = "scp";
$scp = Net::SCP->new( "hostname", "username" );
#with named params
$scp = Net::SCP->new( { "host"=>$hostname, "user"=>$username } );
- $scp->set(
- cwd => "/dir",
- verbose => "yes",
- interact => "yes"
- );
$scp->get("filename") or die $scp->{errstr};
$scp->put("filename") or die $scp->{errstr};
+ #tmtowtdi
+ $scp = new Net::SCP;
+ $scp->scp($source, $destination);
#Net::FTP-style
$scp = Net::SCP->new("hostname");
my $pid = open3($writer, $reader, $error, @cmd );
waitpid $pid, 0;
if ( $? >> 8 ) {
- chomp(my $errstr = <$error>);
+ my $errstr = join('', <$error>);
+ #chomp(my $errstr = <$error>);
$self->{errstr} = $errstr;
0;
} else {
sub iscp {
if ( ref($_[0]) ) {
my $self = shift;
- $self->set( 'interact' => 1 );
+ $self->{'interact'} = 1;
$self->scp(@_);
} else {
scp(@_, 1);
host - hostname
user - username
- verbose - bool
interactive - bool
cwd - current working directory on remote server
$self = {
'host' => shift,
'user' => ( scalar(@_) ? shift : '' ),
- 'verbose' => 0,
'interactive' => 0,
'cwd' => '',
};
sub login {
my($self, $user) = @_;
- $self->{'user'} = $user;
+ $self->{'user'} = $user if $user;
}
=item cwd CWD