directory is now obsolete

1 files changed, 0 insertions, 40 deletions

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;