comment ******************************************************************
comment *** PASSACCT:  Set passwords on all groups/users of an account ***
comment ******************************************************************
comment *** Jeff Kell <jeff@utcvm.utc.edu>  March 1995                 ***
comment ******************************************************************

comment This command file requires Chris Bartram's RNDPASS utilty and the
comment QUAD editor.  Both are available from the CSL or from the 3K web,
comment ftp, or gopher servers (www.3kassociates.com, ftp.3kassociates.com, gopher.3kassociates.com)

comment Get the account parameter, then list the users of the account.
parm account
setvar acct ups("!account")
continue
purge zzeditin,temp > $null
continue
purge zzpasswd > $null
continue
purge zzpasswd,temp > $null
continue
purge zzusers,temp > $null
continue
purge zzusers > $null
listuser @.!acct > zzusers
save zzusers

comment Use EDITOR to make the output file fixed length for QUAD
echo t zzusers;s fixed;s right=80;s length=80;k;e > zzeditin
editor < zzeditin > $null

comment Now use QUAD to extract the USER: lines in the output
continue
purge zzeditin,temp > $null
echo t zzusers;d@e"USER: ";c1/6,"",@;c".!acct","",@;k > zzeditin
echo yes >> zzeditin
echo e >> zzeditin
quad < zzeditin > $null
continue
purge zzeditin,temp > $null

comment Now get a list of all the groups in the account
report @.!acct > zzpasswd
save zzpasswd
echo t zzpasswd;dq 1/2;cq 13/80,"",all;cq1/4,"",4/last > zzeditin
echo jq zzusers to 3.001 by .001 >> zzeditin
echo a 3.997 >> zzeditin
echo *eof* >> zzeditin
echo //>>zzeditin
echo a >> zzeditin
echo *eof* >> zzeditin
echo *eof* >> zzeditin
echo //>>zzeditin
echo cq "*eof*","//",all;k;e >> zzeditin
editor < zzeditin > $null
rndpass < zzpasswd > $null
purge zzpasswd
purge zzeditin,temp
echo ![chr(27)]&dJ*** Account !acct secured ***