|
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