Index: branches/eam_branches/ipp-20110710/Nebulous/bin/neb-shift
===================================================================
--- branches/eam_branches/ipp-20110710/Nebulous/bin/neb-shift	(revision 31852)
+++ branches/eam_branches/ipp-20110710/Nebulous/bin/neb-shift	(revision 32337)
@@ -29,7 +29,7 @@
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
-pod2usage( -msg => "Required options: --server <source key> <source volume>",
+pod2usage( -msg => "Required options: --server --volume <source key> <source volume>",
         -exitval => 2 )
-        unless defined $server and defined $src and defined $abandon_vol;
+        unless defined $server and defined $src and defined $abandon_vol and defined $volume;
 
 my $neb = Nebulous::Client->new(
@@ -45,12 +45,14 @@
 }
 
+my $all_uris = $neb->find_instances($src);
+
 my $status;
-if ($volume) {
-    $status = $neb->replicate( $src, $volume);
+$status = $neb->replicate( $src, $volume);
+die "Replicate phase failed for $src ($abandon_vol) ($volume)" unless $status;
+
+$uris = $neb->find_instances($src, "~$volume");
+unless (defined $uris) {
+    die "Replicate phase failed for $src ($abandon_vol) ($volume)";
 }
-else {
-    $status = $neb->replicate($src);
-}
-die "Replicate phase failed for $src ($abandon_vol) ($volume)" unless $status;
 
 $status = $neb->cull($src,$abandon_vol);
Index: branches/eam_branches/ipp-20110710/Nebulous/bin/neb-stat
===================================================================
--- branches/eam_branches/ipp-20110710/Nebulous/bin/neb-stat	(revision 31852)
+++ branches/eam_branches/ipp-20110710/Nebulous/bin/neb-stat	(revision 32337)
@@ -16,5 +16,8 @@
 use Pod::Usage qw( pod2usage );
 
-my ($server);
+use Digest::MD5;
+use URI;
+
+my ($validate,$server,$nouris);
 
 $server = $ENV{'NEB_SERVER'} unless $server;
@@ -22,4 +25,6 @@
 GetOptions(
     'server|s=s'     => \$server,
+    'validate|v'         => \$validate,
+    'files'          => \$nouris,
 ) || pod2usage( 2 );
 
@@ -44,16 +49,84 @@
 die "no instances found" unless $instances;   
 
+my $user_copies;
+eval {
+    $user_copies = $neb->getxattr($key, "user.copies");
+};
+unless(defined($user_copies)) {
+    $user_copies = 1;
+}
+
+my @validation;
+my %md5sum_uniq;
+my $existing_copies = 0;
+if (defined $validate) {
+    my @existance;
+    my @md5sums;
+    my @files = map {URI->new($_)->file if $_} @$instances;
+
+    for (my $i = 0; $i <= $#files; $i++) {
+	if (-e $files[$i]) {
+	    $existance[$i] = 1;
+	    $existing_copies++;
+	    my $fh;
+	    open($fh,$files[$i]);
+	    $md5sums[$i] = Digest::MD5->new->addfile($fh)->hexdigest;
+	    $md5sum_uniq{$md5sums[$i]} = 1;
+	    close($fh);
+	}
+	else {
+	    $existance[$i] = 0;
+	    $md5sums[$i] = 'NON-EXISTANT';
+	    $md5sum_uniq{$md5sums[$i]} = 1;
+	}
+	if (defined($nouris)) {
+	    $validation[$i] = sprintf("% 3d %32s %s",
+				      $existance[$i],
+				      $md5sums[$i],
+				      $files[$i]);
+	}
+	else {
+	    $validation[$i] = sprintf("% 3d %32s %s",
+				      $existance[$i],
+				      $md5sums[$i],
+				      ${ $instances }[$i]);
+	}
+    }
+}
+
 no warnings qw(uninitialized);
-print
-    "object id:             ", @$stat[0], "\n",
-    "key:                   ", @$stat[1], "\n",
-    "read lock:             ", @$stat[2], "\n",
-    "write lock:            ", @$stat[3], "\n",
-    "epoch:                 ", @$stat[4], "\n",
-    "mtime:                 ", @$stat[5], "\n",
-    "available instances:   ", @$stat[6], "\n",
-    "total instances:       ", @$stat[7], "\n",
-    "instance location:\n", " " x 4,
-    join("\n" . " " x 4, @$instances), "\n";
+if (defined $validate) {
+    print
+	"object id:             ", @$stat[0], "\n",
+	"key:                   ", @$stat[1], "\n",
+	"read lock:             ", @$stat[2], "\n",
+	"write lock:            ", @$stat[3], "\n",
+	"epoch:                 ", @$stat[4], "\n",
+	"mtime:                 ", @$stat[5], "\n",
+	"md5sum count:          ", scalar(keys %md5sum_uniq), "\n",
+	"requested instances:   ", $user_copies, "\n",
+	"available instances:   ", @$stat[6], "\n",
+	"existing instances:    ", $existing_copies, "\n",
+	"total instances:       ", @$stat[7], "\n",
+	
+	"instance location:\n", " " x 4,
+	join("\n" . " " x 4, @validation), "\n";
+}
+else {
+    print
+	"object id:             ", @$stat[0], "\n",
+	"key:                   ", @$stat[1], "\n",
+	"read lock:             ", @$stat[2], "\n",
+	"write lock:            ", @$stat[3], "\n",
+	"epoch:                 ", @$stat[4], "\n",
+	"mtime:                 ", @$stat[5], "\n",
+	"available instances:   ", @$stat[6], "\n",
+	"requested instances:   ", $user_copies, "\n",
+	"total instances:       ", @$stat[7], "\n",
+	
+	"instance location:\n", " " x 4,
+	join("\n" . " " x 4, @$instances), "\n";
+}
+
 
 __END__
@@ -67,5 +140,5 @@
 =head1 SYNOPSIS
 
-    neb-stat [--server <URL>] <key>
+    neb-stat [--server <URL>] [--validate] <key> 
 
 =head1 DESCRIPTION
@@ -82,4 +155,12 @@
 
 Optional if the appropriate environment variable is set.
+
+=item * --validate|-v
+
+Optional - prints out additional information including md5sum.
+
+=item * --files
+
+Optional - prints out disk files instead of uris during validate stage.
 
 =back