2 # DX cluster user routines
18 # initialise the system
24 die "need a filename in User\n" if !$fn;
25 $dbm = tie %u, MLDBM, $fn, O_CREAT|O_RDWR, 0666 or die "can't open user file: $fn ($!)\n";
40 # new - create a new user
46 die "can't create existing call $call in User\n!" if $u{$call};
49 $self->{call} = $call;
55 # get - get an existing user
71 my $call = $self->{call};
82 my $call = $self->{call};
87 # close - close down a user
93 $self->{lastin} = time;