view release on metacpan or  search on metacpan

INSTALL  view on Meta::CPAN

the your username (and the optional username) should be activated on
that machine. The system you are going to be testing from must already
have the /var/ace/sdconf.rec file installed. It would be nice if the
/var/ace/securid key file was already installed, but it will be
installed automatically during the tests as long as the username you
run the tests with has privilege to write to the /var/ace directory.

Because the interactive nature of SecurID requires you to enter a
time-sensitive token from a card, you cannot automate the test suite.
An ACE server will never accept the same token twice, so during the
testing, you will often be prompted to wait for the token on the card
to change before continuing with the test.

Finally, if you don't have the Term::ReadKey module installed, the PIN
changing test will display a new PIN in plain text on the screen. You
should use appropriate caution when doing this, and may want to change
the PIN or disable the token afterwards. Better yet, get and install
Term::ReadKey.

eg/setpin  view on Meta::CPAN

  print "Sorry: the new PIN was rejected.\n";
}

sub accept_pin {
  my $pin = shift;
  print "The system has assigned the PIN ``$pin'' to you.\n";
  return getyn("Enter y to acept it; anything else to reject it:");
}

sub getyn {
  my $prompt = shift;
  print "$prompt ";
  my $ans = <STDIN>;
  return $ans =~ /^y/i;
}

sub get_pin {
  my $pinparms = shift;

  my $ct;

  my $pin;