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

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

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

Modified Files:
	Logger.pm 
Log Message:
Add code to track last ten items placed in the top level log and a getter so that the UI can display them

Index: Logger.pm
===================================================================
RCS file: /cvsroot/popfile/engine/POPFile/Logger.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** Logger.pm	30 Apr 2003 20:28:30 -0000	1.16
--- Logger.pm	9 Jun 2003 18:31:55 -0000	1.17
***************
*** 33,38 ****
--- 33,43 ----
  
      # The name of the debug file
+ 
      $self->{debug_filename__} = '';
  
+     # The last ten lines sent to the logger
+ 
+     $self->{last_ten__} = ();
+ 
      bless($self, $class);
  
***************
*** 158,161 ****
--- 163,176 ----
  
          print $msg if ( $self->global_config_( 'debug' ) & 2 );
+ 
+         # Add the line to the in memory collection of the last ten
+         # logger entries and then remove the first one if we now have
+         # more than 10
+ 
+         push @{$self->{last_ten__}}, ($msg);
+ 
+ 	if ( $#{$self->{last_ten__}} > 9 ) {
+             shift @{$self->{last_ten__}};
+ 	}
      }
  }
***************
*** 168,171 ****
--- 183,193 ----
  
      return $self->{debug_filename__};
+ }
+ 
+ sub last_ten
+ {
+     my ( $self ) = @_;
+ 
+     return $self->{last_ten__};
  }