[popfile-commit] engine/POPFile Logger.pm,1.23,1.24 MQ.pm,1.6,1.7

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

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

Modified Files:
	Logger.pm MQ.pm 
Log Message:
Make TICKD happen once per hour

Index: Logger.pm
===================================================================
RCS file: /cvsroot/popfile/engine/POPFile/Logger.pm,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** Logger.pm	15 Oct 2003 16:53:14 -0000	1.23
--- Logger.pm	16 Oct 2003 17:59:38 -0000	1.24
***************
*** 121,129 ****
      $self->calculate_today__();
  
!     # We send out a TICKD message every 6 hours so that other modules
      # can do clean up tasks that need to be done regularly but not
      # often
  
!     if ( time > ( $self->{last_tickd__} + 6 * 60 * 60 ) ) {
          $self->mq_post_( 'TICKD', '', '' );
          $self->{last_tickd__} = time;
--- 121,129 ----
      $self->calculate_today__();
  
!     # We send out a TICKD message every hour so that other modules
      # can do clean up tasks that need to be done regularly but not
      # often
  
!     if ( time > ( $self->{last_tickd__} + 60 * 60 ) ) {
          $self->mq_post_( 'TICKD', '', '' );
          $self->{last_tickd__} = time;

Index: MQ.pm
===================================================================
RCS file: /cvsroot/popfile/engine/POPFile/MQ.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** MQ.pm	31 Jul 2003 16:32:21 -0000	1.6
--- MQ.pm	16 Oct 2003 17:59:38 -0000	1.7
***************
*** 31,35 ****
  #              object registering (comes from any component)
  #
! #     TICKD    Occurs when a day has passed since the last TICKD (this
  #              is generated by the POPFile::Logger module)
  #
--- 31,35 ----
  #              object registering (comes from any component)
  #
! #     TICKD    Occurs when an hour has passed since the last TICKD (this
  #              is generated by the POPFile::Logger module)
  #