#!/usr/bin/perl -w

use Cwd;
my $dir = getcwd;
my $doc_id = "id: " . $ARGV[0];
my $couch_dbdump = "/opt/couchbase/bin/couch_dbdump ";

print "--------------------------------------------------\n";
print "finding doc, $doc_id, in $dir, may take a while...\n";
print "--------------------------------------------------\n";

opendir (DIR, $dir) or die "$!";
my @couch_files = readdir (DIR);
closedir DIR;


foreach my $file(@couch_files) {
    if ($file =~ m/couch/) {
        if ($file =~ m/master/) {
            print "skipping master doc, $file\n";
        } else {
            my $cmd = $couch_dbdump . $file;
            my @info = qx($cmd);
            foreach my $i(@info) {
                chomp($i);
                if ($i =~ m/$doc_id/) {
                    print "found doc, $doc_id, in $file\n";
                    break;
                }
            }
        }
    }
}