From: Pavel Charvat <pavel.charvat@netcentrum.cz>
Date: Fri, 16 Mar 2007 08:26:59 +0000 (+0100)
Subject: Added Log perl module.
X-Git-Tag: holmes-import~506^2~97
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=997658b144998f1ab23b8d2c64bdc3ca93bae2c0;p=libucw.git

Added Log perl module.
---

diff --git a/lib/perl/Log.pm b/lib/perl/Log.pm
new file mode 100644
index 00000000..68b1d372
--- /dev/null
+++ b/lib/perl/Log.pm
@@ -0,0 +1,27 @@
+#
+#	Perl module for Logging
+#
+#	(c) 2007 Pavel Charvat <pchar@ucw.cz>
+#
+
+package Sherlock::Log;
+
+use lib 'lib/perl5';
+use strict;
+use warnings;
+use POSIX;
+
+my $Prog = (reverse split(/\//, $0))[0];
+
+sub Log {
+  my $level = shift;
+  my $text = join(' ', @_);
+  print STDERR $level, strftime(" %Y-%m-%d %H:%M:%S ", localtime()), "[$Prog] ", $text, "\n";
+}
+
+sub Die {
+  Log('!', @_);
+  exit 1;
+}
+
+1;
diff --git a/lib/perl/Makefile b/lib/perl/Makefile
index a95678b6..4f2cc056 100644
--- a/lib/perl/Makefile
+++ b/lib/perl/Makefile
@@ -1,7 +1,7 @@
 # Perl modules
 
 DIRS+=lib/perl
-PROGS+=$(addprefix $(o)/lib/perl/,Config.pm)
+PROGS+=$(addprefix $(o)/lib/perl/,Config.pm Log.pm)
 
 ifdef CONFIG_UCW_PERL_ULIMIT
 include $(s)/lib/perl/Ulimit/Makefile