Changeset 17845 for trunk/Nebulous/bin/neb-xattr

Timestamp:

May 28, 2008, 5:59:30 PM (18 years ago)

Author:

jhoblitt

Message:

move print_all_xattrs(), print_xattrs(), write_xattrs(), delete_xattrs(), and parse_xattr_pair() from neb-xattr into Nebulous::Util

File:

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

trunk/Nebulous/bin/neb-xattr

@@ -3 +3 @@
 # Copyright (C) 2008  Joshua Hoblitt
 #
-# $Id: neb-xattr,v 1.7 2008-05-27 21:03:50 jhoblitt Exp $
+# $Id: neb-xattr,v 1.8 2008-05-29 03:59:30 jhoblitt Exp $
 
 use strict;
@@ -12 +12 @@
 
 use Nebulous::Client;
+use Nebulous::Util 0.02 qw( :standard );
 
 use Getopt::Long qw( GetOptions :config auto_help auto_version );
@@ -67 +68 @@
 exit(0);
 
-sub print_all_xattrs
-{
-    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($neb, $key, $name) or return;
-    }
-
-    return 1;
-}
-
-
-sub print_xattrs
-{
-    my ($neb, $key, @xattr_names) = @_;
-
-    return unless defined $neb;
-    return unless defined $key;
-    return unless scalar @xattr_names;
-
-    foreach my $arg (@xattr_names) {
-        my ($name, $value) = parse_xattr_pair($arg);
-        die "can not process $arg because it is in name:value form"
-            if defined $value;
-        $value = $neb->getxattr($key, $name) or die $neb->err;
-        print "$name:$value\n";
-    }
-
-    return 1;
-}
-
-
-sub write_xattrs
-{
-    my ($neb, $key, @xattr_pairs) = @_;
-
-    return unless defined $neb;
-    return unless defined $key;
-    return unless scalar @xattr_pairs;
-
-    foreach my $arg (@xattr_pairs) {
-        my ($name, $value) = parse_xattr_pair($arg);
-        die "can not process $arg because it is not in name:value form"
-            unless defined $name and defined $value;
-        die "xattr name: $name is not in to the form user.name"
-            unless $name =~ /^user\./;
-        $neb->setxattr($key, $name, $value, "replace")
-            or die $neb->err;
-    }
-
-    return 1;
-}
-
-
-sub delete_xattrs
-{
-    my ($neb, $key, @xattr_names) = @_;
-
-    return unless defined $neb;
-    return unless defined $key;
-    return unless scalar @xattr_names;
-
-    foreach my $arg (@xattr_names) {
-        my ($name, $value) = parse_xattr_pair($arg);
-        die "can not process $arg because it is in name:value form"
-            if defined $value;
-        $neb->removexattr($key, $name)
-            or die $neb->err;
-    }
-
-    return 1;
-}
-
-
-sub parse_xattr_pair
-{
-    my $pair = shift;
-    
-    return unless defined $pair;
-
-    no warnings qw( uninitialized );
-    my ($name, $value) = split(/:/, $pair);
-    use warnings;
-
-    return ($name, $value);
-}