Using login/password with Net::SFTP

[zeevam]

I am having problems with the following pseudocode:

if user's remote server login/password valid{
sftp file to remote server
}else{
throw an error
}

Basically my application uses ftp currently to do this. The user enters in his/her login and password to copy a file from the local server to a specified remote server on the front end. I am not sure if it is feasible or not to do this with SFTP. Thanks.

 

[MikeLacey]

from the docs, looks as if you code should look something like

my $sftp = Net::SFTP->new(
$host, {
user => 'mike',
password => 'password'
}
);

$sftp->get(
'/etc/hosts', # remote file to get
'/tmp/hosts' # into this local filename
);

is that what you're doing? Mike
"Experience is the comb that Nature gives us after we are bald."

Is that a haiku?
I never could get the hang
of writing those things.

 

[zeevam]

Here is the ftp code that I currently use:


my $ftp ='';
$ftp = Net::FTP->new("$target_server", timeout => 999999999999);
if ($ftp->login("$login_name","$password&quot)
{
$ftp->cwd("$initial_dir"
$ftp->put("/var/tmp_tar/$tar_filename", "$tar_filename"
$ftp->quit;
}
else {
print &quot;<SCRIPT LANGUAGE=\&quot;JavaScript\&quot;>\n&quot;;
print &quot;alert(\&quot;Cannot Connect! Password or login name may be incorrect! Try again.\&quot\n&quot;;
print &quot;</SCRIPT>\n&quot;;
}

Is their an easy way to convert this to sftp?

 

[MikeLacey]

From what I read in the sftp documentation it would seem that you can convert you ftp code to sftp -- but you need to have a few other things (ssh for instance) running first.

Have you reviewed the sftp documentation? Mike
&quot;Experience is the comb that Nature gives us after we are bald.&quot;

Is that a haiku?
I never could get the hang
of writing those things.

 

[zeevam]

I have read through the sftp documentation and I am not finding any login methods such as in ftp. The big issue is trying to get the if the login fails, then throw an error part. I tried using Net::SSH:erl to check the login/password but that didn't work properly. Let me know if you have any ideas. Thanks...

 

[MikeLacey]

From the sftp documentation, found at

http://www.cpan.org

USAGE
Net::SFTP->new($host, %args)
Opens a new SFTP connection with a remote host $host, and returns a Net::SFTP object representing that open connection.

%args can contain:

* user

The username to use to log in to the remote server. This should be your SSH login, and can be empty, in which case the username is drawn from the user executing the process.
See the login method in Net::SSH:erl for more details.

* password

The password to use to log in to the remote server. This should be your SSH password, if you use password authentication in SSH; if you use public key authentication, this argument is unused.
See the login method in Net::SSH:erl for more details.
Mike
&quot;Experience is the comb that Nature gives us after we are bald.&quot;

Is that a haiku?
I never could get the hang
of writing those things.