[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Cache File.pm,1.10,1.11

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Cache
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6230/Cache

Modified Files:
	File.pm 
Log Message:
add debugging

Index: File.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Cache/File.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** File.pm	18 Oct 2004 07:45:05 -0000	1.10
--- File.pm	31 Oct 2004 00:28:29 -0000	1.11
***************
*** 24,27 ****
--- 24,28 ----
      # set in the config object
  
+     $cache_conf->{directory} ||= '';
      unless ( -d $cache_conf->{directory} ) {
          $log->error( "Cannot create a filesystem cache without a valid ",
***************
*** 45,57 ****
                      "[Dir $cache_dir] [Size $max_size] ",
                      "[Expire $default_expire] [Depth $cache_depth]" );
!     return Cache::FileCache->new({ default_expires_in => $default_expire,
!                                    max_size           => $max_size,
!                                    cache_root         => $cache_dir,
!                                    cache_depth        => $cache_depth });
  }
  
  
  sub get_data {
      my ( $self, $cache, $key ) = @_;
      return $cache->get( $key );
  }
--- 46,64 ----
                      "[Dir $cache_dir] [Size $max_size] ",
                      "[Expire $default_expire] [Depth $cache_depth]" );
!     return Cache::FileCache->new({
!         default_expires_in => $default_expire,
!         max_size           => $max_size,
!         cache_root         => $cache_dir,
!         cache_depth        => $cache_depth,
!     });
  }
  
+ sub purge_all {
+     # no-op for now...
+ }
  
  sub get_data {
      my ( $self, $cache, $key ) = @_;
+     $log->is_debug && $log->debug( "Retrieving from '$key'" );
      return $cache->get( $key );
  }
***************
*** 60,63 ****
--- 67,72 ----
  sub set_data {
      my ( $self, $cache, $key, $data, $expires ) = @_;
+     $log->is_debug && 
+         $log->debug( "Assigning to '$key' to expire in '$expires'" );
      $cache->set( $key, $data, $expires );
      return 1;
***************
*** 67,70 ****
--- 76,80 ----
  sub clear_data {
      my ( $self, $cache, $key ) = @_;
+     $log->is_debug && $log->debug( "Removing cache item '$key'" );
      $cache->remove( $key );
      return 1;