#!/usr/athena/bin/perl

# Check out this file with RCS, then add usernames and the groups to
# which they belong as below. Then run
# /afs/sipb/user/jdaniel/user-dbm/dbm_create 
# Use -v to see what's being written to the database file

#            username   comma-seperated grouplist             
%groups = qw(
	     jdaniel	emode,test,foo,bar
	     sipb0	baz,qux,quux
	     peace	emode
	     foley	emode
	     cfalling	emode
	     );

#### Do not change below this line #####
# $Id: dbm_create,v 1.4 1999/06/08 21:34:45 jdaniel Exp jdaniel $

$verbose = shift eq "-v";

$password = "xxj31ZMTZzkVA";

dbmopen %dbm, "/afs/sipb.mit.edu/user/jdaniel/user-dbm/DBM", 0666;

foreach $name (keys %groups) {
    $dbm{$name} = "$password:$groups{$name}";
    print "$name      \t-> $dbm{$name}\n" if $verbose;
}

dbmclose %dbm;