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');
38 print "@_\n" if defined \*STDOUT;
40 $fp->writeunix($t, "$t^@_");
49 $dbglevel{$entry} = 1;
58 delete $dbglevel{entry};
64 return keys (%dbglevel);
69 return $dbglevel{shift};