Capture RSA token via perl tk to scp files.

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 again.like a popop how to do that?

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

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

Comment on Capture RSA token via perl tk to scp files. Download Code

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
Hi, Whats the question, how to Tk::Dialog? Docs say `$answer = $dialog->Show...`	[reply] [d/l]
Re^2: Capture RSA token via perl tk to scp files. by vinoth.ree (Monsignor) on May 22, 2020 at 06:05 UTC
Hi, 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...*	[reply] [d/l]

Back to Seekers of Perl Wisdom