7 #use vars qw( @ISA @EXPORT );
10 #@EXPORT = qw($openafs-authadmin $openafs-authuser);
14 open(CELL, "$openafsdirpath->{'afsconfdir'}/ThisCell")
15 or die "Cannot open $openafsdirpath->{'afsconfdir'}/ThisCell: $!\n";
24 open(CELL, "$openafsdirpath->{'afsconfdir'}/ThisCell")
25 or die "Cannot open $openafsdirpath->{'afsconfdir'}/ThisCell: $!\n";
35 my $cmd = "kinit -k -t /usr/afs/etc/krb5.keytab admin\@${cell} ; afslog";
40 my $cmd = "kinit -k -t /usr/afs/etc/krb5.keytab user\@${cell} ; afslog";