|
|
DataMuseum.dkPresents historical artifacts from the history of: Regnecentalen RC-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Regnecentalen RC-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T u
Length: 777 (0x309)
Types: TextFile
Names: »usr/lib/acct/chargefee «
└─⟦307897ef0⟧ Bits:30004042/core1.imd SW95705I 386/ix Multi-user Release 1.2
└─⟦this⟧ »usr/lib/acct/chargefee «
# Copyright (c) 1984 AT&T
# All Rights Reserved
# THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T
# The copyright notice above does not evidence any
# actual or intended publication of such source code.
#ident "@(#)acct:chargefee.sh 1.3"
# "chargefee login-name number"
# "emits tacct.h/ascii record to charge name $number"
cd /usr/adm
PATH=/usr/lib/acct:/bin:/usr/bin:/etc
if test $# -lt 2; then
echo "usage: chargefee name number"
exit
fi
_entry="`grep \^$1: /etc/passwd`"
if test -z "${_entry}"; then
echo "can't find login name $1"
exit
fi
case "$2" in
-[0-9]*|[0-9]*);;
*)
echo "charge invalid: $2"
exit
esac
if test ! -r fee; then
nulladm fee
fi
_userid=`echo "${_entry}" | cut -d: -f3` # get the UID
echo "${_userid} $1 0 0 0 0 0 0 0 0 0 0 $2" >>fee