Index: /trunk/Nebulous-Server/Changes
===================================================================
--- /trunk/Nebulous-Server/Changes	(revision 18348)
+++ /trunk/Nebulous-Server/Changes	(revision 18349)
@@ -2,4 +2,5 @@
 
 0.13
+    - add --host option to neb-admin
     - add --host option to nebdiskd
     - decalare default SQL character set
Index: /trunk/Nebulous-Server/bin/neb-admin
===================================================================
--- /trunk/Nebulous-Server/bin/neb-admin	(revision 18348)
+++ /trunk/Nebulous-Server/bin/neb-admin	(revision 18349)
@@ -3,5 +3,5 @@
 # Copyright (C) 2005-2008  Joshua Hoblitt
 #
-# $Id: neb-admin,v 1.3 2008-05-27 23:26:15 jhoblitt Exp $
+# $Id: neb-admin,v 1.4 2008-06-27 23:29:42 jhoblitt Exp $
 
 use strict;
@@ -9,5 +9,5 @@
 
 use vars qw( $VERSION );
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 use DBI;
@@ -19,15 +19,17 @@
 use Pod::Usage qw( pod2usage );
 
-my ($db, $dbuser, $dbpass, $pending, $limit);
-
-$db     = $ENV{'NEB_DB'} unless $db;
-$dbuser = $ENV{'NEB_USER'} unless $dbuser;
-$dbpass = $ENV{'NEB_PASS'} unless $dbpass;
+my ($db, $dbhost, $dbuser, $dbpass, $pending, $limit);
+
+$db     = $ENV{'NEB_DB'};
+$dbhost = $ENV{'NEB_DBHOST'} || 'localhost';
+$dbuser = $ENV{'NEB_USER'};
+$dbpass = $ENV{'NEB_PASS'};
 
 GetOptions(
-    'db=s'                  => \$db,
-    'user=s'                => \$dbuser,
-    'pass=s'                => \$dbpass,
-    'pendingreplicate|p'    => \$pending,
+    'db|d=s'                => \$db,
+    'host=s'                => \$dbhost,
+    'user|u=s'              => \$dbuser,
+    'pass|p=s'              => \$dbpass,
+    'pendingreplicate|r'    => \$pending,
     'limit|l=i'             => \$limit,
 ) || pod2usage( 2 );
@@ -46,5 +48,5 @@
 
 my $dbh = DBI->connect(
-    "DBI:mysql:database=$db:host=localhost",
+    "DBI:mysql:database=$db:host=$dbhost",
     $dbuser,
     $dbpass,
@@ -69,4 +71,6 @@
 $query->finish;
     
+exit unless scalar @rows;
+
 print "replciate MULTI\n\n";
 
@@ -156,6 +160,6 @@
 =head1 SYNOPSIS
 
-    neb-admin [--db <database>] [--user <username>] [--pass <password>]
-        [--pendingreplicate] [--limit <n>]
+    neb-admin [--host <db host>] [--db <db name>] [--user <db username>]
+        [--pass <db password>] [--pendingreplicate] [--limit <n>]
 
 =head1 DESCRIPTION
@@ -165,5 +169,5 @@
 =over 4
 
-=item * --pendingreplicate|-p
+=item * --pendingreplicate|-r
 
 Print out a list of nebulous keys that need additional replications created.
@@ -176,4 +180,10 @@
 Optional.  Defaults to 5.  --limit 0 is treated as asking for the default
 value.
+
+=item * --host <database host>
+
+Name of host on which the database resides.
+
+Optional.  Defaults to C<localhost>.
 
 =item * --db|-d <database>
@@ -208,4 +218,8 @@
 
 Equivalent to --db|-d
+
+=item * C<NEB_HOST>
+
+Equivalent to --host
 
 =item * C<NEB_USER>