Changeset 17814

Timestamp:

May 27, 2008, 11:03:50 AM (18 years ago)

Author:

jhoblitt

Message:

decouple utility functions

File:

• trunk/Nebulous/bin/neb-xattr (modified) (8 diffs)

trunk/Nebulous/bin/neb-xattr

@@ -3 +3 @@
 # Copyright (C) 2008  Joshua Hoblitt
 #
-# $Id: neb-xattr,v 1.6 2008-05-22 19:56:02 jhoblitt Exp $
+# $Id: neb-xattr,v 1.7 2008-05-27 21:03:50 jhoblitt Exp $
 
 use strict;
@@ -40 +40 @@
 );
 
-die "can't connected to Nebulous Server: $server"
+die "can't connect to Nebulous Server: $server"
     unless defined $neb;
 
@@ -46 +46 @@
 if (defined $delete) {
     die "--delete requires a list of xattr names" unless scalar @ARGV;
-    delete_xattrs($key, @ARGV);
+    delete_xattrs($neb, $key, @ARGV) or die;
     exit(0);
 }
@@ -53 +53 @@
 if (defined $write) {
     die "--write requires a list of xattr:value pairs" unless scalar @ARGV;
-    write_xattrs($key, @ARGV);
+    write_xattrs($neb, $key, @ARGV) or die;
     exit(0);
 }
@@ -59 +59 @@
 # key without xattr name list means print all xattr:value pairs
 if (not scalar @ARGV) {
-    print_all_xattrs($key);
+    print_all_xattrs($neb, $key) or die;
     exit(0);
 }
 
 # key with xattr name list means print the xattr:value pairs
-print_xattrs($key, @ARGV);
+print_xattrs($neb, $key, @ARGV) or die;
 exit(0);
 
 sub print_all_xattrs
 {
-    my $key = shift;
-
+    my ($neb, $key) = @_;
+
+    return unless defined $neb;
     return unless defined $key;
 
     my $xattr_names = $neb->listxattr($key) or die $neb->err;
     foreach my $name (@$xattr_names) {
-        print_xattrs($key, $name);
+        print_xattrs($neb, $key, $name) or return;
     }
 
@@ -84 +85 @@
 sub print_xattrs
 {
-    my ($key, @xattr_names) = @_;
-
+    my ($neb, $key, @xattr_names) = @_;
+
+    return unless defined $neb;
     return unless defined $key;
     return unless scalar @xattr_names;
@@ -103 +105 @@
 sub write_xattrs
 {
-    my ($key, @xattr_pairs) = @_;
-
+    my ($neb, $key, @xattr_pairs) = @_;
+
+    return unless defined $neb;
     return unless defined $key;
     return unless scalar @xattr_pairs;
@@ -124 +127 @@
 sub delete_xattrs
 {
-    my ($key, @xattr_names) = @_;
-
+    my ($neb, $key, @xattr_names) = @_;
+
+    return unless defined $neb;
     return unless defined $key;
     return unless scalar @xattr_names;