lib/perl/Log.pm

   1 #
   2 #       Perl module for Logging
   3 #
   4 #       (c) 2007 Pavel Charvat <pchar@ucw.cz>
   5 #
   6
   7 package Sherlock::Log;
   8
   9 use lib 'lib/perl5';
  10 use strict;
  11 use warnings;
  12 use POSIX;
  13
  14 my $Prog = (reverse split(/\//, $0))[0];
  15
  16 sub Log {
  17   my $level = shift;
  18   my $text = join(' ', @_);
  19   print STDERR $level, strftime(" %Y-%m-%d %H:%M:%S ", localtime()), "[$Prog] ", $text, "\n";
  20 }
  21
  22 sub Die {
  23   Log('!', @_);
  24   exit 1;
  25 }
  26
  27 1;