2 # The system variables - those indicated will need to be changed to suit your
3 # circumstances (and callsign)
5 # Copyright (c) 1998 - Dirk Koopman G1TLH
14 @EXPORT = qw(dbg dbgadd dbgsub dbglist isdbg);
15 @EXPORT_OK = qw(dbg dbgadd dbgsub dbglist isdbg);
18 use vars qw(%dbglevel $fp);
26 $fp = DXLog::new('debug', 'dat', 'd');
37 my $str = atime . "@_" ;
48 $dbglevel{$entry} = 1;
57 delete $dbglevel{entry};
63 return keys (%dbglevel);
68 return $dbglevel{shift};