--- /dev/null
+#!/usr/bin/ruby
+
+# Make sure the record separator is zero rather than new-line
+$/ = "\0"
+
+# The only argument is the date for which to list files
+date = ARGV.shift.to_i
+
+ARGF.each do |line|
+ # The seventh and eigth fields are the backup date and the file name.
+ backupdate,name = line.split( ' ', 8 )[6,7]
+
+ # Print the name if the backup date matches
+ print name if date == backupdate.to_i
+end