[266] in arla-drinkers
Re: Tokens?
daemon@ATHENA.MIT.EDU (P.Dixon)
Tue Sep 22 18:07:51 1998
From owner-arla-drinkers@stacken.kth.se Tue Sep 22 22:07:51 1998
Return-Path: <owner-arla-drinkers@stacken.kth.se>
Delivered-To: arla-drinkers-mtg@bloom-picayune.mit.edu
Received: (qmail 6655 invoked from network); 22 Sep 1998 22:07:50 -0000
Received: from unknown (HELO sundance.stacken.kth.se) (130.237.234.41)
by bloom-picayune.mit.edu with SMTP; 22 Sep 1998 22:07:50 -0000
Received: (from majordom@localhost)
by sundance.stacken.kth.se (8.8.8/8.8.8) id AAA03096
for arla-drinkers-list; Wed, 23 Sep 1998 00:02:35 +0200 (MET DST)
Received: from gamma.qmw.ac.uk (gamma.qmw.ac.uk [138.37.6.8])
by sundance.stacken.kth.se (8.8.8/8.8.8) with SMTP id AAA03092
for <arla-drinkers@stacken.kth.se>; Wed, 23 Sep 1998 00:02:31 +0200 (MET DST)
Received: from hepag.ph.qmw.ac.uk by gamma.qmw.ac.uk with SMTP-QMW;
Tue, 22 Sep 1998 23:02:28 +0100
Received: from heppca.ph.qmw.ac.uk
by hepag.ph.qmw.ac.uk (5.65v4.0/1.1.19.2/11Aug98-0211PM) id AA30331;
Tue, 22 Sep 1998 23:02:27 +0100
Received: from localhost (pd@localhost) by heppca.ph.qmw.ac.uk (8.8.7/8.8.7)
with SMTP id XAA16027 for <arla-drinkers@stacken.kth.se>;
Tue, 22 Sep 1998 23:02:27 +0100
Date: Tue, 22 Sep 1998 23:02:27 +0100 (BST)
From: "P.Dixon" <P.Dixon@qmw.ac.uk>
To: arla-drinkers@stacken.kth.se
Subject: Re: Tokens?
In-Reply-To: <199809222020.QAA12105@biohazard-cafe.mit.edu>
Message-Id: <Pine.LNX.3.96.980922225842.16004C-100000@heppca.ph.qmw.ac.uk>
Mime-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Sender: owner-arla-drinkers@stacken.kth.se
Precedence: bulk
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@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@cell
Cheerio,
Paul
#!/usr/bin/perl
#
# klog substitute for ARLA
#
# usage: klog username@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(".",@host);
$ucell = uc($lcell);
}
@prog = "/usr/athena/bin/kinit $user\@$ucell";
system (@prog);
@prog = "/usr/athena/bin/afslog -c $lcell";
system (@prog);
