root/platform/tdiary/util/convert_pstore.rb

#
# convert utf-8 in pstore.
#
# usage: convert_pstore.rb file1
#

$KCODE = 'u'

require 'nkf'
require "pstore"
begin
        require "iconv"
rescue LoadError
end

def convert_pstore( file )
        db = PStore.new( file )
        begin
                roots = db.transaction{ db.roots }
        rescue ArgumentError
                if /\Aundefined class\/module (.+?)(::)?\z/ =~ $!.message
                        klass = $1
                        if /EmptdiaryString\z/ =~ klass
                                eval( "class #{klass} < String; end" )
                        else
                                eval( "class #{ klass}; end" )
                        end
                        retry
                end
        end
        db.transaction do
                roots.each do |root|
                        convert_element( db[root] )
                end
        end
end

def convert_element( data )
        case data
        when Hash, Array
                data.each_with_index do |e, i|
                        if String === e
                                data[i] = migrate_to_utf8( e )
                        else
                                convert_element( e )
                        end
                end
        else
                data.instance_variables.each do |e|
                        var = data.instance_variable_get( e )
                        if String === var
                                data.instance_variable_set( e, migrate_to_utf8( var ) )
                        else
                                convert_element( var )
                        end
                end
        end
end

def migrate_to_utf8( str )
        to_native( str, 'EUC-JP' )
end

def to_native( str, charset = nil )
        begin
                Iconv.conv('utf-8', charset || 'utf-8', str)
        rescue
                from = case charset
                        when /^utf-8$/i
                                'W'
                        when /^shift_jis/i
                                'S'
                        when /^EUC-JP/i
                                'E'
                        else
                                ''
                end
                NKF::nkf("-m0 -#{from}w", str)
        end
end

convert_pstore( ARGV[0] )