Changeset 17454

Timestamp:

Apr 17, 2008, 5:12:25 PM (18 years ago)

Author:

jhoblitt

Message:

fix neb-df coding issue

Location:

trunk/Nebulous

Files:

• Changes (modified) (1 diff)
• bin/neb-df (modified) (3 diffs)

trunk/Nebulous/Changes

@@ -1 +1 @@
 Revision history for Nebulous
+
+0.09
+    - fix neb-df coding issues
 
 0.08 Thu Apr 17 14:07:18 HST 2008

trunk/Nebulous/bin/neb-df

@@ -3 +3 @@
 # Copyright (C) 2007  Joshua Hoblitt
 #
-# $Id: neb-df,v 1.4 2008-03-21 01:36:59 jhoblitt Exp $
+# $Id: neb-df,v 1.5 2008-04-18 03:12:25 jhoblitt Exp $
 
 use strict;
@@ -16 +16 @@
 use Pod::Usage qw( pod2usage );
 
-my ($db, $dbuser, $dbpass);
+my ($server);
 
-$db     = $ENV{'NEB_DB'} unless $db;
-$dbuser = $ENV{'NEB_USER'} unless $dbuser;
-$dbpass = $ENV{'NEB_PASS'} unless $dbpass;
+$server = $ENV{'NEB_SERVER'} unless $server;
 
 GetOptions(
-    'db=s'      => \$db,
-    'user=s'    => \$dbuser,
-    'pass=s'    => \$dbpass,
+    'server|s=s'    => \$server,
 ) || pod2usage( 2 );
 
+my $pattern = shift;
+
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
-pod2usage( -msg => "Required options: --db --user --pass", -exitval => 2 )
-    unless $db && $dbuser && $dbpass;
+pod2usage( -msg => "Required options: --server", -exitval => 2 )
+    unless $server;
 
 my $neb = Nebulous::Client->new(
@@ -49 +47 @@
         = @$row;
 
-    my $path        = $vol->{path};
-    my $total       = $vol->{total};
-    my $used        = $vol->{used};
+    my $path        = $vol{path};
+    my $total       = $vol{total};
+    my $used        = $vol{used};
     my $available   = $total - $used;
     my $usedper     = ($used / $total) * 100; 
-    my $mountpoint  = $vol->{mountpoint};
+    my $mountpoint  = $vol{mountpoint};
 
     # indicated the part of the nebulous volume name that matches up with a