higgs 0.1.0 → 0.1.1

data/ChangeLog

@@ -1,3 +1,53 @@
+2007-10-08  TOKI Yoshinori  <toki@freedom.ne.jp>
+
+	* lib/higgs/version.rb: version 0.1.1.
+
+	* lib/higgs/utils/bman.rb: added variation of incremental backup.
+
+	* bin/higgs_backup: changed command line syntax. added restore
+	commands.
+
+	* lib/higgs/utils/bman.rb: restore operations.
+
+2007-10-06  TOKI Yoshinori  <toki@freedom.ne.jp>
+
+	* check ruby-1.8.6-p111
+	ruby 1.8.6 (2007-09-24 patchlevel 111) [i686-linux], OK.
+	ruby 1.8.6 (2007-09-24 patchlevel 111) [i386-cygwin], OK.
+
+2007-10-05  TOKI Yoshinori  <toki@freedom.ne.jp>
+
+	* lib/higgs/storage.rb (Higgs::Storage class): journal log is
+	applied to the broken block point.
+
+	* lib/higgs/storage.rb (Higgs::Storage class): in recover class
+	method, when latest journal log exists, it is applied.
+
+2007-10-04  TOKI Yoshinori  <toki@freedom.ne.jp>
+
+	* lib/higgs/storage.rb (Higgs::Storage class): rough sequential
+	access at verify method.
+
+2007-10-03  TOKI Yoshinori  <toki@freedom.ne.jp>
+
+	* lib/higgs/storage.rb (Higgs::Storage::Export module): disable
+	verify method.
+
+	* lib/higgs/utils/bman.rb (Higgs::Utils::BackupManager class):
+	clean_jlog method is divided to clean_jlog_from method and
+	clean_jlog_to method.
+
+2007-09-30  TOKI Yoshinori  <toki@freedom.ne.jp>
+
+	* lib/higgs/storage.rb (Higgs::Storage class): fixed a bug of EOA
+	lost on recovery.
+
+	* lib/higgs/block.rb (Higgs::Block module): fixed a bug of
+	body_hash_type check leakage.
+
+	* lib/higgs/storage.rb (Higgs::Storage::InitOptions module):
+	exceptions of the argument check are unified to ArgumentError.
+
 2007-09-29  TOKI Yoshinori  <toki@freedom.ne.jp>
 
 	* lib/higgs/version.rb: version 0.1.0.

data/Rakefile

@@ -1,5 +1,5 @@
 # for ident(1)
-CVS_ID = '$Id: Rakefile 576 2007-09-29 08:35:19Z toki $'
+CVS_ID = '$Id: Rakefile 586 2007-09-30 03:03:12Z toki $'
 
 require 'lib/higgs/version'
 require 'rake/gempackagetask'
@@ -8,7 +8,6 @@ require 'yaml'
 LIB_DIR = 'lib'
 TEST_DIR = 'test'
 RDOC_DIR = 'api'
-RDOC_MAIN = 'Higgs'
 
 def cd_v(dir)
   cd(dir, :verbose => true) {

data/bin/higgs_backup

@@ -4,20 +4,34 @@ require 'higgs/utils/bman'
 require 'optparse'
 
 # for ident(1)
-CVS_ID = '$Id: higgs_backup 546 2007-09-23 14:20:23Z toki $'
+CVS_ID = '$Id: higgs_backup 619 2007-10-08 12:42:36Z toki $'
 
 STDOUT.sync = true
 
-opts = OptionParser.new
-opts.banner = "Usage: #{opts.program_name} [options]"
+COMMANDs = %w[
+  online_backup
+  index
+  data
+  rotate
+  jlog
+  recover
+  verify
+  clean_from
+  clean_to
+  restore
+  restore_files
+  restore_recover
+  restore_verify
+]
 
-command = :online_backup
+commands = %w[ online_backup ]
 options = { :verbose => 0 }
 
-opts.on('--command=BACKUP_COMMAND',
-	[ :index, :data, :rotate, :jlog, :recover, :verify, :clean, :online_backup ]) {|value|
-  command = value
-}
+opts = OptionParser.new
+opts.banner = "Usage: #{opts.program_name} [OPTIONs] [COMMANDs]\n"
+opts.banner << "COMMANDs:\n"
+opts.banner << COMMANDs.map{|s| opts.summary_indent + s }.join("\n") << "\n"
+opts.banner << "OPTIONs:\n"
 
 opts.on('-f', '--from=BACKUP_TARGET_STORAGE', String) {|value|
   options[:from] = value
@@ -41,27 +55,31 @@ opts.on('-v', '--verbose', '--[no-]verbose') {|value|
 opts.on('--verbose-level=LEVEL', Integer) {|value|
   options[:verbose] = value
 }
-
 opts.parse!
-bman = Higgs::Utils::BackupManager.new(options)
 
-case (command)
-when :online_backup
-  bman.online_backup
-when :index
-  bman.backup_index
-when :data
-  bman.backup_data
-when :rotate
-  bman.rotate_jlog
-when :jlog
-  bman.backup_jlog
-when :recover
-  bman.recover
-when :verify
-  bman.verify
-when :clean
-  bman.clean_jlog
-else
-  raise "unknown backup command: #{command}"
+unless (ARGV.empty?) then
+  count = 0
+  for cmd in ARGV
+    unless (COMMANDs.include? cmd) then
+      STDERR.puts "error: unknown command: #{cmd}"
+      count += 1
+    end
+  end
+  if (count > 0) then
+    exit 1
+  end
+  commands = ARGV
+end
+
+bman = Higgs::Utils::BackupManager.new(options)
+for cmd in commands
+  unless (bman.public_methods(false).include? cmd) then
+    raise "unknown command: #{cmd}"
+  end
+  bman.__send__(cmd)
 end
+
+# Local Variables:
+# mode: Ruby
+# indent-tabs-mode: nil
+# End:

data/lib/higgs/block.rb

@@ -1,8 +1,8 @@
 # = block read/write
 #
 # Author:: $Author: toki $
-# Date:: $Date: 2007-09-26 00:20:20 +0900 (Wed, 26 Sep 2007) $
-# Revision:: $Revision: 559 $
+# Date:: $Date: 2007-09-30 15:20:15 +0900 (Sun, 30 Sep 2007) $
+# Revision:: $Revision: 591 $
 #
 # == license
 #   :include:LICENSE
@@ -27,7 +27,7 @@ module Higgs
   #
   module Block
     # for ident(1)
-    CVS_ID = '$Id: block.rb 559 2007-09-25 15:20:20Z toki $'
+    CVS_ID = '$Id: block.rb 591 2007-09-30 06:20:15Z toki $'
 
     include Exceptions
 
@@ -165,7 +165,8 @@ module Higgs
     module_function :block_read
 
     def block_write(io, magic_symbol, body, body_hash_type=:MD5)
-      hash_proc = BODY_HASH[body_hash_type.to_sym] or "unknown body hash type: #{body_hash_type}"
+      hash_proc = BODY_HASH[body_hash_type.to_sym] or
+        raise ArgumentError, "unknown body hash type: #{body_hash_type}"
       body_hash = hash_proc.call(body)
       head_write(io, magic_symbol, body.length, body_hash_type.to_s, body_hash)
 

data/lib/higgs/dbm.rb

@@ -1,8 +1,8 @@
 # = storage like dbm
 #
 # Author:: $Author: toki $
-# Date:: $Date: 2007-09-26 00:20:20 +0900 (Wed, 26 Sep 2007) $
-# Revision:: $Revision: 559 $
+# Date:: $Date: 2007-10-02 01:05:07 +0900 (Tue, 02 Oct 2007) $
+# Revision:: $Revision: 600 $
 #
 # == license
 #   :include:LICENSE
@@ -14,12 +14,48 @@ require 'higgs/tman'
 module Higgs
   # = storage like dbm
   # == sample script
+  #
   # sample/dbmtest.rb
   #   :include: sample/dbmtest.rb
   #
+  # result of sample script.
+  #   % ruby dbmtest.rb
+  #   % ruby dbmtest.rb
+  #   -
+  #   key: quux
+  #   value: QX
+  #   system_property[hash_type]: MD5
+  #   system_property[modified_time]: Tue Oct 02 00:52:58 +0900 2007
+  #   system_property[created_time]: Tue Oct 02 00:52:58 +0900 2007
+  #   system_property[hash_value]: 2e8e88f56e5d52ce42f59592efbc2831
+  #   system_property[changed_time]: Tue Oct 02 00:52:58 +0900 2007
+  #   system_property[string_only]: false
+  #   custom_property[number]: 2
+  #   -
+  #   key: baz
+  #   value: BZ
+  #   system_property[hash_type]: MD5
+  #   system_property[modified_time]: Tue Oct 02 00:52:58 +0900 2007
+  #   system_property[created_time]: Tue Oct 02 00:52:58 +0900 2007
+  #   system_property[hash_value]: e45fbcf6ca3b21f17c5f355728a2fbec
+  #   system_property[changed_time]: Tue Oct 02 00:52:58 +0900 2007
+  #   system_property[string_only]: false
+  #   custom_property[number]: 1
+  #   -
+  #   key: foobar
+  #   value: FB
+  #   system_property[hash_type]: MD5
+  #   system_property[modified_time]: Tue Oct 02 00:52:58 +0900 2007
+  #   system_property[created_time]: Tue Oct 02 00:52:58 +0900 2007
+  #   system_property[hash_value]: 30781f1fc2f9342ceb1ad2f6f35a51db
+  #   system_property[changed_time]: Tue Oct 02 00:52:58 +0900 2007
+  #   system_property[string_only]: false
+  #   custom_property[number]: 0
+  #   %
+  #
   class DBM
     # for ident(1)
-    CVS_ID = '$Id: dbm.rb 559 2007-09-25 15:20:20Z toki $'
+    CVS_ID = '$Id: dbm.rb 600 2007-10-01 16:05:07Z toki $'
 
     include Storage::Export
     include TransactionManager::Export

data/lib/higgs/index.rb

@@ -1,8 +1,8 @@
 # = storage index
 #
 # Author:: $Author: toki $
-# Date:: $Date: 2007-09-26 00:20:20 +0900 (Wed, 26 Sep 2007) $
-# Revision:: $Revision: 559 $
+# Date:: $Date: 2007-09-30 14:54:30 +0900 (Sun, 30 Sep 2007) $
+# Revision:: $Revision: 589 $
 #
 # == license
 #   :include:LICENSE
@@ -15,7 +15,7 @@ module Higgs
   # = storage index
   class Index
     # for ident(1)
-    CVS_ID = '$Id: index.rb 559 2007-09-25 15:20:20Z toki $'
+    CVS_ID = '$Id: index.rb 589 2007-09-30 05:54:30Z toki $'
 
     extend Forwardable
     include Block
@@ -75,10 +75,13 @@ module Higgs
     end
 
     def []=(key, value)
-      delete(key)
-      id = Index.create_id(key, @identities)
-      @identities[id] = key
-      @index[key] = [ id, value ]
+      if (i = @index[key]) then
+        i[1] = value
+      else
+        id = Index.create_id(key, @identities)
+        @identities[id] = key
+        @index[key] = [ id, value ]
+      end
       value
     end
 
@@ -144,7 +147,7 @@ module Higgs
         f.binmode
         index_data = Marshal.load(block_read(f, MAGIC_SYMBOL))
         migration_0_0_to_0_1(index_data)
-        if ((index_data[:version] <=> [ MAJOR_VERSION, MINOR_VERSION ]) > 0) then
+        if (index_data[:version] != [ MAJOR_VERSION, MINOR_VERSION ]) then
           raise "unsupported version: #{index_data[:version].join('.')}"
         end
         @change_number = index_data[:change_number]

data/lib/higgs/jlog.rb

@@ -1,8 +1,8 @@
 # = journal log writer
 #
 # Author:: $Author: toki $
-# Date:: $Date: 2007-09-26 00:20:20 +0900 (Wed, 26 Sep 2007) $
-# Revision:: $Revision: 559 $
+# Date:: $Date: 2007-10-03 00:02:48 +0900 (Wed, 03 Oct 2007) $
+# Revision:: $Revision: 603 $
 #
 # == license
 #   :include:LICENSE
@@ -14,7 +14,7 @@ module Higgs
   # = journal log writer
   class JournalLogger
     # for ident(1)
-    CVS_ID = '$Id: jlog.rb 559 2007-09-25 15:20:20Z toki $'
+    CVS_ID = '$Id: jlog.rb 603 2007-10-02 15:02:48Z toki $'
 
     include Block
 
@@ -143,9 +143,9 @@ module Higgs
       def each_log(path)
         File.open(path, 'r') {|f|
           f.binmode
-          scan_log(f) {|log|
+          scan_log(f) do |log|
             yield(log)
-          }
+          end
         }
         nil
       end

data/lib/higgs/storage.rb

@@ -1,8 +1,8 @@
 # = transactional storage core
 #
 # Author:: $Author: toki $
-# Date:: $Date: 2007-09-26 00:20:20 +0900 (Wed, 26 Sep 2007) $
-# Revision:: $Revision: 559 $
+# Date:: $Date: 2007-10-05 02:35:02 +0900 (Fri, 05 Oct 2007) $
+# Revision:: $Revision: 614 $
 #
 # == license
 #   :include:LICENSE
@@ -23,7 +23,7 @@ module Higgs
   # = transactional storage core
   class Storage
     # for ident(1)
-    CVS_ID = '$Id: storage.rb 559 2007-09-25 15:20:20Z toki $'
+    CVS_ID = '$Id: storage.rb 614 2007-10-04 17:35:02Z toki $'
 
     extend Forwardable
     include Exceptions
@@ -63,8 +63,8 @@ module Higgs
     end
 
     DATA_HASH_BIN = {}
-    DATA_HASH.each do |cksum_symbol, cksum_proc|
-      DATA_HASH_BIN[cksum_symbol.to_s] = cksum_proc
+    DATA_HASH.each do |hash_symbol, hash_proc|
+      DATA_HASH_BIN[hash_symbol.to_s] = hash_proc
     end
 
     # options for Higgs::Storage
@@ -106,7 +106,7 @@ module Higgs
 
         @data_hash_type = options[:data_hash_type] || :MD5
         unless (DATA_HASH.key? @data_hash_type) then
-          raise "unknown data hash type: #{@data_hash_type}"
+          raise ArgumentError, "unknown data hash type: #{@data_hash_type}"
         end
 
         if (options.key? :jlog_sync) then
@@ -116,6 +116,10 @@ module Higgs
         end
 
         @jlog_hash_type = options[:jlog_hash_type] || :MD5
+        unless (Block::BODY_HASH.key? @jlog_hash_type) then
+          raise ArgumentError, "unknown journal log hash type: #{@jlog_hash_type}"
+        end
+
         @jlog_rotate_size = options[:jlog_rotate_size] || 1024 * 256
         @jlog_rotate_max = options[:jlog_rotate_max] || 1
         @jlog_rotate_service_uri = options[:jlog_rotate_service_uri]
@@ -159,7 +163,6 @@ module Higgs
     # * Higgs::Storage#shutdown
     # * Higgs::Storage#shutdown?
     # * Higgs::Storage#rotate_journal_log
-    # * Higgs::Storage#verify
     #
     module Export
       extend Forwardable
@@ -176,7 +179,6 @@ module Higgs
       def_delegator :@storage, :shutdown
       def_delegator :@storage, :shutdown?
       def_delegator :@storage, :rotate_journal_log
-      def_delegator :@storage, :verify
     end
 
     def self.load_conf(path)
@@ -230,7 +232,7 @@ module Higgs
 
       @commit_lock = Mutex.new
       @state_lock = Mutex.new
-      @broken = false
+      @panic = false
       @shutdown = false
 
       init_options(options)
@@ -266,7 +268,7 @@ module Higgs
         unless (@read_only) then
           begin
             w_io = File.open(@tar_name, File::WRONLY | File::CREAT | File::EXCL, 0660)
-            @logger.info("create and get I/O handle for write: #{@tar_name}")
+            @logger.info("create and open I/O handle for write: #{@tar_name}")
           rescue Errno::EEXIST
             @logger.info("open I/O handle for write: #{@tar_name}")
             w_io = File.open(@tar_name, File::WRONLY, 0660)
@@ -311,7 +313,7 @@ module Higgs
         if (init_completed) then
           @logger.info("completed storage open.")
         else
-          @broken = true
+          @panic = true
 
           if ($! && @logger) then
             begin
@@ -384,7 +386,7 @@ module Higgs
         if (@shutdown) then
           raise ShutdownException, 'storage shutdown'
         end
-        if (@broken) then
+        if (@panic) then
           raise PanicError, 'broken storage'
         end
       }
@@ -407,11 +409,11 @@ module Higgs
         File.open(@jlog_name, File::RDONLY) {|f|
           f.binmode
           begin
-            JournalLogger.scan_log(f) {|log|
+            JournalLogger.scan_log(f) do |log|
               change_number = log[0]
               @logger.info("apply journal log: #{change_number}")
               Storage.apply_journal(@w_tar, @index, log)
-            }
+            end
           rescue Block::BrokenError
             # nothing to do.
           end
@@ -427,11 +429,16 @@ module Higgs
           @logger.info("write eof mark to journal log.")
           JournalLogger.eof_mark(f)
         }
+
+        @logger.info("write EOA to storage: #{@index.eoa}")
+        @w_tar.seek(@index.eoa)
+        @w_tar.write_EOA
+
         recover_completed = true
       ensure
         unless (recover_completed) then
-          @state_lock.synchronize{ @broken = true }
-          @logger.error("BROKEN: failed to recover.")
+          @state_lock.synchronize{ @panic = true }
+          @logger.error("panic: failed to recover.")
           @logger.error($!) if $!
         end
       end
@@ -457,7 +464,7 @@ module Higgs
           end
 
           unless (@read_only) then
-            if (@broken) then
+            if (@panic) then
               @logger.warn("abort journal log: #{@jlog_name}")
               @jlog.close(false)
             else
@@ -466,7 +473,7 @@ module Higgs
             end
           end
 
-          if (! @broken && ! @read_only) then
+          if (! @panic && ! @read_only) then
             @logger.info("save index: #{@idx_name}")
             @index.save(@idx_name)
           end
@@ -568,8 +575,8 @@ module Higgs
           rotate_completed = true
         ensure
           unless (rotate_completed) then
-            @state_lock.synchronize{ @broken = true }
-            @logger.error("BROKEN: failed to rotate journal log.")
+            @state_lock.synchronize{ @panic = true }
+            @logger.error("panic: failed to rotate journal log.")
             @logger.error($!) if $!
           end
         end
@@ -764,8 +771,8 @@ module Higgs
           commit_completed = true
         ensure
           unless (commit_completed) then
-            @state_lock.synchronize{ @broken = true }
-            @logger.error("BROKEN: failed to commit.")
+            @state_lock.synchronize{ @panic = true }
+            @logger.error("panic: failed to commit.")
             @logger.error($!) if $!
           end
         end
@@ -814,10 +821,10 @@ module Higgs
           when :succ
             index.succ!
             if (index.change_number != cmd[:cnum]) then
-              raise PanicError, 'lost journal log'
+              raise PanicError, "invalid journal log (succ: #{cmd[:cnum]})"
             end
           else
-            raise "unknown operation from #{curr_jlog_name}: #{cmd[:ope]}"
+            raise "unknown operation: #{cmd[:ope]}"
           end
         end
       end
@@ -843,13 +850,18 @@ module Higgs
         index = Index.new
         index.load(idx_name) if (File.exist? idx_name)
 
-        
         out << "recovery target: #{name}\n" if (out && verbose_level >= 1)
-        for curr_name in rotate_entries(jlog_name)
-          JournalLogger.each_log(curr_name) do |log|
-            change_number = log[0]
-            out << "apply journal log: #{change_number}\n" if (out && verbose_level >= 1)
-            apply_journal(w_tar, index, log)
+        jlog_list = rotate_entries(jlog_name)
+        jlog_list << jlog_name if (File.exist? jlog_name)
+        for curr_name in jlog_list
+          begin
+            JournalLogger.each_log(curr_name) do |log|
+              change_number = log[0]
+              out << "apply journal log: #{change_number}\n" if (out && verbose_level >= 1)
+              apply_journal(w_tar, index, log)
+            end
+          rescue Block::BrokenError
+            out << "warning: incompleted journal log and stopped at #{curr_name}\n" if out
           end
         end
         w_tar.seek(index.eoa)
@@ -955,8 +967,8 @@ module Higgs
             head_and_body = r_tar.fetch
           }
           unless (head_and_body) then
-            @state_lock.synchronize{ @broken = true }
-            @logger.error("BROKEN: failed to read record: #{key}")
+            @state_lock.synchronize{ @panic = true }
+            @logger.error("panic: failed to read record: #{key}")
             raise PanicError, "failed to read record: #{key}"
           end
         end
@@ -982,13 +994,13 @@ module Higgs
       head, body = value.split(/\n/, 2)
       cksum_type, cksum_value = head.sub(/^#\s+/, '').split(/\s+/, 2)
       if (cksum_type != PROPERTIES_CKSUM_TYPE) then
-        @state_lock.synchronize{ @broken = true }
-        @logger.error("BROKEN: unknown properties cksum type: #{cksum_type}")
+        @state_lock.synchronize{ @panic = true }
+        @logger.error("panic: unknown properties cksum type: #{cksum_type}")
         raise PanicError, "unknown properties cksum type: #{cksum_type}"
       end
       if (body.sum(PROPERTIES_CKSUM_BITS) != Integer(cksum_value)) then
-        @state_lock.synchronize{ @broken = true }
-        @logger.error("BROKEN: mismatch properties cksum at #{key}")
+        @state_lock.synchronize{ @panic = true }
+        @logger.error("panic: mismatch properties cksum at #{key}")
         raise PanicError, "mismatch properties cksum at #{key}"
       end
       YAML.load(body)
@@ -1009,20 +1021,20 @@ module Higgs
       check_panic
       value = read_record_body(key, :d) or return
       unless (properties = internal_fetch_properties(key)) then
-        @state_lock.synchronize{ @broken = true }
-        @logger.error("BROKEN: failed to read properties: #{key}")
+        @state_lock.synchronize{ @panic = true }
+        @logger.error("panic: failed to read properties: #{key}")
         raise PanicError, "failed to read properties: #{key}"
       end
       hash_type = properties['system_properties']['hash_type']
-      unless (cksum_proc = DATA_HASH_BIN[hash_type]) then
-        @state_lock.synchronize{ @broken = true }
-        @logger.error("BROKEN: unknown data hash type: #{hash_type}")
+      unless (hash_proc = DATA_HASH_BIN[hash_type]) then
+        @state_lock.synchronize{ @panic = true }
+        @logger.error("panic: unknown data hash type: #{hash_type}")
         raise PanicError, "unknown data hash type: #{hash_type}"
       end
-      hash_value = cksum_proc.call(value)
+      hash_value = hash_proc.call(value)
       if (hash_value != properties['system_properties']['hash_value']) then
-        @state_lock.synchronize{ @broken = true }
-        @logger.error("BROKEN: mismatch hash value at #{key}")
+        @state_lock.synchronize{ @panic = true }
+        @logger.error("panic: mismatch hash value at #{key}")
         raise PanicError, "mismatch hash value at #{key}"
       end
       value
@@ -1059,7 +1071,13 @@ module Higgs
 
     def verify(out=nil, verbose_level=1)
       check_panic
-      @index.each_key do |key|
+
+      keys = @index.keys
+      keys.sort!{|a, b|
+        @index[a][:d][:pos] <=> @index[b][:d][:pos]
+      }
+
+      for key in keys
         if (out && verbose_level >= 1) then
           out << "check #{key}\n"
         end
@@ -1075,6 +1093,7 @@ module Higgs
           end
         end
       end
+
       nil
     end
   end

data/lib/higgs/store.rb

@@ -1,8 +1,8 @@
 # = storage like pstore
 #
 # Author:: $Author: toki $
-# Date:: $Date: 2007-09-26 00:20:20 +0900 (Wed, 26 Sep 2007) $
-# Revision:: $Revision: 559 $
+# Date:: $Date: 2007-10-02 01:05:07 +0900 (Tue, 02 Oct 2007) $
+# Revision:: $Revision: 600 $
 #
 # == license
 #   :include:LICENSE
@@ -190,9 +190,36 @@ module Higgs
   # sample/count.rb
   #   :include: sample/count.rb
   #
+  # result of sample script.
+  #   % ruby count.rb
+  #   start - Tue Oct 02 00:50:14 +0900 2007
+  #   nil
+  #   
+  #   1
+  #   70
+  #   134
+  #   200
+  #   256
+  #   318
+  #   382
+  #   446
+  #   508
+  #   554
+  #   620
+  #   685
+  #   751
+  #   796
+  #   862
+  #   927
+  #   992
+  #   
+  #   last - Tue Oct 02 00:50:15 +0900 2007
+  #   1000
+  #   %
+  #
   class Store
     # for ident(1)
-    CVS_ID = '$Id: store.rb 559 2007-09-25 15:20:20Z toki $'
+    CVS_ID = '$Id: store.rb 600 2007-10-01 16:05:07Z toki $'
 
     include Storage::Export
     include TransactionManager::Export