Index: /trunk/Nebulous-Server/Changes
===================================================================
--- /trunk/Nebulous-Server/Changes	(revision 18456)
+++ /trunk/Nebulous-Server/Changes	(revision 18457)
@@ -1,5 +1,5 @@
 Revision history for Nebulous
 
-0.13
+0.13 Wed Jul  9 16:36:27 HST 2008
     - create a Nebulous::Keys object to represent a parsed neb key and
       impliment other changes to abstract out the handling of keys in order to
Index: /trunk/Nebulous-Server/bin/neb-admin
===================================================================
--- /trunk/Nebulous-Server/bin/neb-admin	(revision 18456)
+++ /trunk/Nebulous-Server/bin/neb-admin	(revision 18457)
@@ -3,5 +3,5 @@
 # Copyright (C) 2005-2008  Joshua Hoblitt
 #
-# $Id: neb-admin,v 1.7 2008-07-02 23:20:38 jhoblitt Exp $
+# $Id: neb-admin,v 1.8 2008-07-10 02:40:33 jhoblitt Exp $
 
 use strict;
@@ -19,5 +19,5 @@
 use Pod::Usage qw( pod2usage );
 
-my ($db, $dbhost, $dbuser, $dbpass, $pending, $limit);
+my ($db, $dbhost, $dbuser, $dbpass, $pending, $limit, $verbose);
 
 $db     = $ENV{'NEB_DB'};
@@ -33,4 +33,5 @@
     'pendingreplicate|r'    => \$pending,
     'limit|l=i'             => \$limit,
+    'verbose|v'             => \$verbose,
 ) || pod2usage( 2 );
 
@@ -76,6 +77,9 @@
 
 foreach my $obj (@rows) {
-#    use Data::Dumper;
-#    print Dumper($obj);
+    if (defined $verbose) {
+        require Data::Dumper;
+        print Data::Dumper::Dumper($obj);
+    }
+
     my $so_id = $obj->{so_id};
     my $key = $obj->{ext_id};
Index: /trunk/Nebulous-Server/lib/Nebulous/Server.pm
===================================================================
--- /trunk/Nebulous-Server/lib/Nebulous/Server.pm	(revision 18456)
+++ /trunk/Nebulous-Server/lib/Nebulous/Server.pm	(revision 18457)
@@ -1,5 +1,5 @@
 # Copyright (c) 2004-2008  Joshua Hoblitt
 #
-# $Id: Server.pm,v 1.80 2008-07-09 23:32:35 jhoblitt Exp $
+# $Id: Server.pm,v 1.81 2008-07-10 02:40:33 jhoblitt Exp $
 
 package Nebulous::Server;
@@ -9,5 +9,5 @@
 no warnings qw( uninitialized );
 
-our $VERSION = '0.12';
+our $VERSION = '0.13';
 
 use base qw( Class::Accessor::Fast );