view release on metacpan or  search on metacpan

examples/v2/ktck/ReadPassword  view on Meta::CPAN

#!/usr/local/bin/perl

use blib;
use strict;
use warnings;

use AFS::KTC_EKEY;

die "Usage: $0 prompt verify cell\n" if ($#ARGV != 2);

my $prompt = shift;
my $verify = shift;
my $cell = shift;

my $key = AFS::KTC_EKEY->ReadPassword($prompt, $verify, $cell);
$AFS::CODE and print "AFS::CODE = $AFS::CODE\n";
print "KEY = ", $key->string, " \n";