threaded logger nyiHEADv1.3master

1 files changed, 0 insertions, 45 deletions

diff --git a/lib/PerlDaemon/ThreadedLogger.pm b/lib/PerlDaemon/ThreadedLogger.pm
deleted file mode 100644
index f773640..0000000
--- a/lib/PerlDaemon/ThreadedLogger.pm
+++ /dev/null
@@ -1,45 +0,0 @@
-package PerlDaemon::ThreadedLogger;
-
-use strict;
-use warnings;
-
-$| = 1;
-
-sub new ($$) {
-  my ($class, $conf) = @_;
-  my $self = $SELF = bless { conf => $conf }, $class;
-
-  return $self;
-}
-
-sub _pushmsg ($$) {
-  my ($self, $msg) = @_;
-  my $conf = $self->{conf};
-  my $msgqueue = $conf->{msgqueue};
-
-  push @$msgqueue, $msg;
-}
-
-sub logmsg ($$) {
-  my ($self, $msg) = @_;
-
-  my $logline = localtime()." (PID $$): $msg\n";
-  $self->_pushmsg($logline);
-
-  return undef;
-}
-
-sub err ($$) {
-  my ($self, $msg) = @_;
-  $self->logmsg($msg);
-  die "$msg\n";
-}
-
-sub warn ($$) {
-  my ($self, $msg) = @_;
-  $self->logmsg("WARNING: $msg");
-
-  return undef;
-}
-
-1;