2 # DX cluster user routines
4 # Copyright (c) 1998 - Dirk Koopman G1TLH
14 use MLDBM qw(DB_File);
21 # hash of valid elements and a simple prompt
24 alias => 'Real Callsign',
30 email => 'E-mail Address',
31 priv => 'Privilege Level',
32 lastin => 'Last Time in',
34 addr => 'Full Address',
35 'sort' => 'Type of User', # A - ak1a, U - User, S - spider cluster, B - BBS
43 return if $name =~ /::DESTROY$/;
46 die "Non-existant field '$AUTOLOAD'" if !$valid{$name};
47 @_ ? $self->{$name} = shift : $self->{$name} ;
51 # initialise the system
57 die "need a filename in User" if !$fn;
58 $dbm = tie %u, MLDBM, $fn, O_CREAT|O_RDWR, 0666 or die "can't open user file: $fn ($!)";
73 # new - create a new user
78 my ($pkg, $call) = @_;
79 die "can't create existing call $call in User\n!" if $u{$call};
82 $self->{call} = $call;
88 # get - get an existing user
93 my ($pkg, $call) = @_;
104 my $call = $self->{call};
109 # del - delete a user
115 my $call = $self->{call};
120 # close - close down a user
126 $self->{lastin} = time;
131 # return a list of valid elements
140 # return a prompt for a field
145 my ($self, $ele) = @_;
150 # enter an element from input, returns 1 for success
155 my ($self, $ele, $value) = @_;
156 return 0 if (!defined $valid{$ele});
158 return 0 if $value eq "";
159 if ($ele eq 'long') {
160 my ($longd, $longm, $longl) = $value =~ /(\d+) (\d+) ([EWew])/;
161 return 0 if (!$longl || $longd < 0 || $longd > 180 || $longm < 0 || $longm > 59);
162 $longd += ($longm/60);
163 $longd = 0-$longd if (uc $longl) eq 'W';
164 $self->{'long'} = $longd;
166 } elsif ($ele eq 'lat') {
167 my ($latd, $latm, $latl) = $value =~ /(\d+) (\d+) ([NSns])/;
168 return 0 if (!$latl || $latd < 0 || $latd > 90 || $latm < 0 || $latm > 59);
170 $latd = 0-$latd if (uc $latl) eq 'S';
171 $self->{'lat'} = $latd;
173 } elsif ($ele eq 'qra') {
174 $self->{'qra'} = UC $value;
177 $self->{$ele} = $value; # default action
183 # some variable accessors
187 @_ ? $self->{sort} = shift : $self->{sort} ;