Changeset 18457

Timestamp:

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

Author:

jhoblitt

Message:

VERSION 0.13

Location:

trunk/Nebulous-Server

Files:

• Changes (modified) (1 diff)
• bin/neb-admin (modified) (4 diffs)
• lib/Nebulous/Server.pm (modified) (2 diffs)

trunk/Nebulous-Server/Changes

@@ -1 +1 @@
 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

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};

trunk/Nebulous-Server/lib/Nebulous/Server.pm

@@ -1 +1 @@
 # 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 +9 @@
 no warnings qw( uninitialized );
 
-our $VERSION = '0.12';
+our $VERSION = '0.13';
 
 use base qw( Class::Accessor::Fast );