Tokens?

[P.Dixon]

Hi,

On Tue, 22 Sep 1998, Ronnie G Misra wrote:

> Does anyone have arla equivalents of the following Transarc AFS programs?
> 	klog
> 	kpasswd
> 	unlog
> 
> Ronnie Misra
> rgmisra at mit.edu
> 

You could try the following perl script (which kinda simulates some basic
features of klog). It's not very elegant but does enough for me.

usage: klog username at cell

Cheerio,
					Paul


#!/usr/bin/perl
#
# klog substitute for ARLA
#
# usage: klog username at cell
#

@input = split(/@/,$ARGV[0]);
$user = $input[0];
$ucell = uc($input[1]);
$lcell = lc($input[1]);

if (!$user) {
   $user = getlogin();
}

if (!$ucell) {
   $hostname = `/bin/hostname`;
   chop ($hostname);
   @host = split(/\./,$hostname);
   shift (@host);
   $lcell = join(".", at host);
   $ucell = uc($lcell);
}

@prog = "/usr/athena/bin/kinit $user\@$ucell";
system (@prog);
@prog = "/usr/athena/bin/afslog -c $lcell";
system (@prog);