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