#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id: Debug.pm,v 1.1 2001/05/18 14:02:10 djk Exp $
-#
# This library is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
package DWeather::Debug;
require Exporter;
+
@ISA = qw(Exporter);
@EXPORT = qw(dbginit dbg dbgadd dbgsub dbglist dbgdump isdbg dbgclose confess croak cluck carp);
-$VERSION = sprintf( "%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/ );
+$VERSION = 1.23;
use strict;
use vars qw(%dbglevel $fp);
+use 5.01001;
-use DWeather::Logger;
+use SMGLog ();
use Carp qw(cluck);
+use Time::HiRes qw(gettimeofday);
%dbglevel = ();
$fp = undef;
);
}
+dbginit();
+
sub dbg
{
- my $t = time;
- my $ts = sprintf("%02d:%02d:%02d", (gmtime($t))[2,1,0]);
+ my ($t,$ut) = gettimeofday;
+ my $ts = sprintf "%02d:%02d:%02d:%03d", (gmtime($t))[2,1,0], $ut/1000;
for (@_) {
my $r = $_;
chomp $r;
$SIG{__DIE__} = sub { dbg($@, Carp::longmess(@_)); };
}
- $fp = DWeather::Logger->new('debug', 'log', 'd') unless $fp;
+ $fp = SMGLog->new('debug', 'log', 'd');
}
sub dbgclose