From 55fe4f90e7f7b89abebbd53a4a910dc1e4dcd896 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Fri, 13 May 2011 14:04:43 +0000
Subject: directory is now obsolete

---
 PerlDaemon/Logger.pm | 40 ----------------------------------------
 1 file changed, 40 deletions(-)
 delete mode 100644 PerlDaemon/Logger.pm

(limited to 'PerlDaemon/Logger.pm')

diff --git a/PerlDaemon/Logger.pm b/PerlDaemon/Logger.pm
deleted file mode 100644
index fccc274..0000000
--- a/PerlDaemon/Logger.pm
+++ /dev/null
@@ -1,40 +0,0 @@
-package PerlDaemon::Logger;
-
-use Shell qw(mv);
-use POSIX qw(strftime);
-
-$| = 1;
-
-sub new ($$) {
-	my ($class, $conf) = @_;
-	return bless { conf => $conf }, $class;
-}
-
-sub logmsg ($$) {
-	my ($self, $msg) = @_;
-	my $conf = $self->{conf};
-	my $logfile = $conf->{'daemon.logfile'};
-
-	open my $fh, ">>$logfile" or die "Can't write logfile $logfile: $!\n";
-	print $fh localtime()." (PID $$): $msg\n";
-	close $fh;
-}
-
-sub err ($$) {
-	my ($self, $msg) = @_;
-	$self->logmsg($msg);
-	die "$msg\n";
-}
-
-sub rotatelog ($) {
-	my $self = shift;
-	my $conf = $self->{conf};
-	my $logfile = $conf->{'daemon.logfile'};
-
-	$self->logmsg('Rotating logfile');
-
-	my $timestr = strftime "%Y%m%d-%H%M%S", localtime();
-	mv($logfile, "$logfile.$timestr");	
-}
-
-1;
-- 
cgit v1.2.3