/[webpac2]/trunk/lib/WebPAC/Store.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Store.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 219 by dpavlin, Mon Dec 5 17:48:00 2005 UTC revision 220 by dpavlin, Mon Dec 5 17:48:14 2005 UTC
# Line 166  sub load_ds { Line 166  sub load_ds {
166    
167          $log->logconfess("can't find database name") unless ($database);          $log->logconfess("can't find database name") unless ($database);
168    
169          my $cache_file = "$cache_path/$prefix/$database#$id";          my $cache_file = "$cache_path/$prefix#$id";
170          $cache_file =~ s#//#/#go;          $cache_file =~ s#//#/#go;
171    
172  open(my $fh, '>>', '/tmp/foo');  open(my $fh, '>>', '/tmp/foo');
173  print $fh "$cache_file\n";  print $fh "LOAD $cache_path / $prefix # $id ==> $cache_file\n";
174  close($fh);  close($fh);
175    
176          $log->debug("using cache_file $cache_file");          $log->debug("using cache_file $cache_file");
# Line 230  sub save_ds { Line 230  sub save_ds {
230    
231          my $prefix = $arg->{prefix} || '';          my $prefix = $arg->{prefix} || '';
232    
233          my $cache_file = $self->{path} . "/$prefix/$database#" . $arg->{id};          my $cache_file = $self->{path} . "/$prefix#" . $arg->{id};
234          $cache_file =~ s#//#/#go;          $cache_file =~ s#//#/#go;
235    
236          $log->debug("creating storable cache file $cache_file");          $log->debug("creating storable cache file $cache_file");
Legend:
Removed from v.219  
changed lines
  Added in v.220
  ViewVC Help
Powered by ViewVC 1.1.26