buddies => '0,Buddies,parray',
build => '1,Build',
call => '0,Callsign',
+ clientoutput => '0,User OUT Format',
+ clientinput => '0,User IN Format',
connlist => '1,Connections,parraydifft',
dxok => '9,Accept DX Spots?,yesno', # accept his dx spots?
email => '0,E-mail Address,parray',
prompt => '0,Required Prompt',
qra => '0,Locator',
qth => '0,Home QTH',
- rbnseeme => '0,RBN See Me',
+ rbnseeme => '0,RBN See Me,yesno',
registered => '9,Registered?,yesno',
startt => '0,Start Time,cldatetime',
version => '1,Version',
sub finish
{
+ dbg('DXUser finished');
$dbm->sync;
undef $dbm;
untie %u;
LogDbg('command', $s);
return ($s);
}
-
+
+sub END
+{
+ if ($dbm) {
+ print "DXUser Ended\n";
+ finish();
+ }
+}
+
1;
__END__