[popfile-commit] engine/POPFile Logger.pm,1.15,1.16

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/POPFile
In directory sc8-pr-cvs1:/tmp/cvs-serv30866/POPFile

Modified Files:
	Logger.pm 
Log Message:
Add leading zeroes in the hours, minutes, seconds

Index: Logger.pm
===================================================================
RCS file: /cvsroot/popfile/engine/POPFile/Logger.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** Logger.pm	29 Apr 2003 12:10:55 -0000	1.15
--- Logger.pm	30 Apr 2003 20:28:30 -0000	1.16
***************
*** 7,11 ****
  #----------------------------------------------------------------------------
  #
! # This module handles POPFile's logger.  It is used to save debugging 
  # information to disk or to send it to the screen.
  #
--- 7,11 ----
  #----------------------------------------------------------------------------
  #
! # This module handles POPFile's logger.  It is used to save debugging
  # information to disk or to send it to the screen.
  #
***************
*** 143,148 ****
          $year += 1900;
          $mon  += 1;
-         my $msg = "$year/$mon/$mday $hour:$min:$sec $$: $message";
  
  
          if ( $self->global_config_( 'debug' ) & 1 )  {
--- 143,152 ----
          $year += 1900;
          $mon  += 1;
  
+         $min  = "0$min"  if ( $min  < 10 );
+         $hour = "0$hour" if ( $hour < 10 );
+         $sec  = "0$sec"  if ( $sec  < 10 );
+ 
+         my $msg = "$year/$mon/$mday $hour:$min:$sec $$: $message";
  
          if ( $self->global_config_( 'debug' ) & 1 )  {