Changeset 17764

Timestamp:

May 21, 2008, 3:38:59 PM (18 years ago)

Author:

jhoblitt

Message:

use . instead : as key pair seperator

File:

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

trunk/Nebulous/bin/neb-xattr

@@ -3 +3 @@
 # Copyright (C) 2008  Joshua Hoblitt
 #
-# $Id: neb-xattr,v 1.1 2008-05-21 20:46:18 jhoblitt Exp $
+# $Id: neb-xattr,v 1.2 2008-05-22 01:38:59 jhoblitt Exp $
 
 use strict;
@@ -48 +48 @@
 }
 
-# key with xattr:value pair and -w flag means write/overwrite xattr:value
+# key with xattr.value pair and -w flag means write/overwrite xattr.value
 if (defined $write) {
-    die "--write requires a list of xattr:value pairs" unless scalar @ARGV;
+    die "--write requires a list of name.value pairs" unless scalar @ARGV;
     write_xattrs($key, @ARGV);
     exit(0);
 }
 
-# key without xattr name list means print all xattr:value pairs
+# key without xattr name list means print all xattr.value pairs
 if (not scalar @ARGV) {
     print_all_xattrs($key);
@@ -61 +61 @@
 }
 
-# key with xattr name list means print the xattr:value pairs
+# key with xattr name list means print the xattr.value pairs
 print_xattrs($key, @ARGV);
 exit(0);
@@ -89 +89 @@
     foreach my $arg (@xattr_names) {
         my ($name, $value) = parse_xattr_pair($arg);
-        die "can not process $arg because it is in name:value form"
+        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";
+        print "$name.$value\n";
     }
 
@@ -108 +108 @@
     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"
+        die "can not process $arg because it is not in name.value form"
             unless defined $name and defined $value;
         $neb->setxattr($key, $name, $value, "replace")
@@ -127 +127 @@
     foreach my $arg (@xattr_names) {
         my ($name, $value) = parse_xattr_pair($arg);
-        die "can not process $arg because it is in name:value form"
+        die "can not process $arg because it is in name.value form"
             if defined $value;
         $neb->removexattr($key, $name)
@@ -144 +144 @@
 
     no warnings qw( uninitialized );
-    my ($name, $value) = split(/:/, $pair);
+    my ($name, $value) = split(/\./, $pair);
     use warnings;