Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Capture RSA token via perl tk to scp files.

by vinoth.ree (Monsignor)
on May 22, 2020 at 00:43 UTC ( #11117072=perlquestion: print w/replies, xml ) Need Help??

vinoth.ree has asked for the wisdom of the Perl Monks concerning the following question:

Hello Monks,

I have perl tk script which given to my team they do use that script for doing file transfer, from windows machine to their unix home directory. Their unix home directory was mounted on the windows machine via samba, so I was able to copy the files to their home directory without any issues.

The unix server migrated to new server and samba mount no more available, and its more of secured server and RSA token based login, no more static password, now I got a situation that I need to supply RSA token for the file transfer.

I can add an entry widget additionally in the existing window like below, will that work? my concern is that if the token got expired before I try scp I need to get the RSA token a popop how to do that?

my $passwd; my $password = $dialog->add("Entry", -show => "*", -textvariable => \$passwd) ->pack();

All is well. I learn by answering your questions...

Replies are listed 'Best First'.
Re: Capture RSA token via perl tk to scp files.
by Anonymous Monk on May 22, 2020 at 03:11 UTC


    Whats the question, how to Tk::Dialog?

    Docs say *$answer* = $dialog->Show...


      I was thinking, instead of adding password Entry field in the main window, show popup and get RSA token the try scp command if the file get copied success, quit simply or get the token again, like running the getpasscode in a loop at max 3 times if not we will say error and quit.

      All is well. I learn by answering your questions...

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://11117072]
Approved by Corion
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (3)
As of 2020-09-19 03:58 GMT
Find Nodes?
    Voting Booth?
    If at first I donít succeed, I Ö

    Results (114 votes). Check out past polls.