10 my $cellname = 'testcell';
12 my $kerberos_type = 'MIT';
13 my $kerberos_realm = 'TESTCELL';
14 my $kerberos_keytab = "$openafsdirpath->{'afsconfdir'}/krb5.keytab";
18 "cellname=s" => \
$cellname,
20 "kerberos-type=s" => \
$kerberos_type,
21 "kerberos-realm=s" => \
$kerberos_realm,
22 "kerberos-keytab=s" => \
$kerberos_keytab,
25 my $auth = OpenAFS
::Auth
::create
(
27 'type'=>$kerberos_type,
29 'realm'=>$kerberos_realm,
30 'keytab'=>$kerberos_keytab,
33 # Run as the administrator.
34 $auth->authorize($admin);