GSM/SMS/Log.pm

   1 package GSM::SMS::Log;
   2 use Time::localtime;
   3
   4 # Very simple logger
   5 #
   6
   7 use Exporter;
   8 @ISA = ('Exporter');
   9 @EXPORT = qw( logentry );
  10 $VERSION = '0.1';
  11
  12 sub new {
  13         my $proto = shift;
  14         my $class = ref($proto) || $proto;
  15         my $self = {};
  16         $self->{'__LOGFILE__'} = shift;
  17         bless($self, $class);
  18         return $self;
  19 }
  20
  21 sub logentry {
  22         my ( $self, $text ) = @_;
  23         local (*F);
  24
  25         my $LOGFILE = $self->{'__LOGFILE__'};
  26         if ( $LOGFILE ) {
  27
  28                 open F, ">>$LOGFILE";
  29                 my $tm = localtime(time);
  30                 print F sprintf("[%02d/%02d/%02d %02d:%02d:%02d]\t%s\n",
  31                                                 $tm->mday,
  32                                                 $tm->mon+1,
  33                                                 $tm->year+1900,
  34                                                 $tm->hour,
  35                                                 $tm->min,
  36                                                 $tm->sec,
  37                                                 $text
  38                                            );
  39                 close F;
  40
  41         }
  42 }
  43
  44 1;
  45
  46 =head1 NAME
  47
  48 GSM::SMS::Log - Implements a simple file logger.
  49
  50 =head1 DESCRIPTION
  51
  52 Implements a simple logger.
  53
  54 =head1 AUTHOR
  55
  56 Johan Van den Brande <johan@vandenbrande.com>