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(dbginit dbg dbgadd dbgsub dbglist isdbg);
17 use vars qw(%dbglevel $dbgfh);
31 $dbgfh = new FileHandle;
32 $dbgfh->open(">>$fhname") or die "can't open debug file '$fhname' $!";
41 print $dbgfh atime, @_ if $dbgfh;
50 $dbglevel{$entry} = 1;
59 delete $dbglevel{entry};
65 return keys (%dbglevel);
70 return $dbglevel{shift};