Fix compilation on Linux kernels or glibc versions lacking sync_file_range().

[redis.git] / utils / redis-sha1.rb

diff --git a/utils/redis-sha1.rb b/utils/redis-sha1.rb
index 54d34deab222d984adde29b3d737c7dece0c319e..24498e25a545ac6784191a8baf68f0ec4e012915 100644 (file)
--- a/utils/redis-sha1.rb
+++ b/utils/redis-sha1.rb
@@ -16,17 +16,37 @@ def redisSha1(opts={})
     sha1=""
     r = Redis.new(opts)
     r.keys('*').sort.each{|k|
-        sha1 = Digest::SHA1.hexdigest(sha1+k)
         vtype = r.type?(k)
         if vtype == "string"
+            len = 1
+            sha1 = Digest::SHA1.hexdigest(sha1+k)
             sha1 = Digest::SHA1.hexdigest(sha1+r.get(k))
         elsif vtype == "list"
-            sha1 = Digest::SHA1.hexdigest(sha1+r.list_range(k,0,-1).join("\x01"))
+            len = r.llen(k)
+            if len != 0
+                sha1 = Digest::SHA1.hexdigest(sha1+k)
+                sha1 = Digest::SHA1.hexdigest(sha1+r.list_range(k,0,-1).join("\x01"))
+            end
         elsif vtype == "set"
-            sha1 = Digest::SHA1.hexdigest(sha1+r.set_members(k).to_a.sort.join("\x02"))
+            len = r.scard(k)
+            if len != 0
+                sha1 = Digest::SHA1.hexdigest(sha1+k)
+                sha1 = Digest::SHA1.hexdigest(sha1+r.set_members(k).to_a.sort.join("\x02"))
+            end
+        elsif vtype == "zset"
+            len = r.zcard(k)
+            if len != 0
+                sha1 = Digest::SHA1.hexdigest(sha1+k)
+                sha1 = Digest::SHA1.hexdigest(sha1+r.zrange(k,0,-1).join("\x01"))
+            end
         end
+        # puts "#{k} => #{sha1}" if len != 0
     }
     sha1
 end
 
-p "Dataset SHA1: #{redisSha1()}"
+host = ARGV[0] || "127.0.0.1"
+port = ARGV[1] || "6379"
+db = ARGV[2] || "0"
+puts "Performing SHA1 of Redis server #{host} #{port} DB: #{db}"
+p "Dataset SHA1: #{redisSha1(:host => host, :port => port.to_i, :db => db)}"