[EMAIL PROTECTED] wrote:
> Here is my small sftp test program.
> ==============================
>
> use strict;
> use warnings;
>
> use Net::SFTP;
>
> sub SendFileOverFTP {
>
>
> # my($file,$local)= @_;
>
> my %args = (
> user => "someuser",
> password => "xxxxxxx",
> debug => "true",
> );
>
> my %defaultArgs = (
> FTPServer => "MyFtpSite",
> FTPRemoteDir => "someDir");
>
> my $sftp = Net::SFTP->new($defaultArgs{FTPServer},%args);
>
> my $openFtpDir = $sftp->do_open($defaultArgs{FTPRemoteDir});
> if ( !defined($openFtpDir) ) {
> print "failed to open the ftp directory\n";
> }
>
> my $local = "someFile.txt";
> my $remote = "someFile.txt";
>
> my $ergebnis = $sftp->put($local,$remote);
>
> if ( !defined($ergebnis) )
> {
> print "error\n";
> }
>
> #$sftp->quit;
> undef $sftp;
> }
>
> SendFileOverFTP;
> ===================================================
>
> Any ideeas?
This works for me (you should check on Net/SSH/Perl/Util/SSH2MP.pm being
installed) :
use strict;
use warnings;
use Net::SFTP;
my $server = 'MyFtpSite.com';
my $remdir = 'public_html';
my $remfile = 'some.txt';
my $locfile = 'txt/some.txt';
SendFileOverFTP ($server, $remdir, "$remdir/$remfile", $locfile);
exit;
#- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
sub SendFileOverFTP {
my ($server, $remfile, $locfile) = @_;
my $user = 'someuser';
my $password = 'xxxxxxx';
my $sftp = Net::SFTP->new($server, user => $user, password => $password,
port => 22, debug => 1) or die "new SFTP: $! ($^E)";
$sftp->put($locfile, $remfile) and die "put $locfile, $remfile: $! ($^E)";
}
__END__
--
,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED]
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
