Changeset 18457 for trunk/Nebulous-Server/bin

Timestamp:

Jul 9, 2008, 4:40:33 PM (18 years ago)

Author:

jhoblitt

Message:

VERSION 0.13

File:

• trunk/Nebulous-Server/bin/neb-admin (modified) (4 diffs)

trunk/Nebulous-Server/bin/neb-admin

@@ -3 +3 @@
 # 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 +19 @@
 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 +33 @@
     'pendingreplicate|r'    => \$pending,
     'limit|l=i'             => \$limit,
+    'verbose|v'             => \$verbose,
 ) || pod2usage( 2 );
 
@@ -76 +77 @@
 
 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};