Index: attr-2.4.39/doc/Makefile =================================================================== --- attr-2.4.39.orig/doc/Makefile +++ attr-2.4.39/doc/Makefile @@ -5,8 +5,6 @@ TOPDIR = .. include $(TOPDIR)/include/builddefs -SUBDIRS = ea-conv - LSRCFILES = INSTALL PORTING CHANGES COPYING LDIRT = *.gz Index: attr-2.4.39/doc/ea-conv/Makefile =================================================================== --- attr-2.4.39.orig/doc/ea-conv/Makefile +++ /dev/null @@ -1,17 +0,0 @@ -# -# Copyright (c) 2000, 2002 Silicon Graphics, Inc. All Rights Reserved. -# - -TOPDIR = ../.. -include $(TOPDIR)/include/builddefs - -LSRCFILES = README ea-conv - -include $(BUILDRULES) - -install: default - $(INSTALL) -m 755 -d $(PKG_DOC_DIR)/ea-conv - $(INSTALL) -m 644 README $(PKG_DOC_DIR)/ea-conv - $(INSTALL) -m 755 ea-conv $(PKG_DOC_DIR)/ea-conv - -default install-dev install-lib: Index: attr-2.4.39/doc/ea-conv/README =================================================================== --- attr-2.4.39.orig/doc/ea-conv/README +++ /dev/null @@ -1,13 +0,0 @@ -ea-conv -- convert between aget and getfattr format - -This script converts between the extended attribute text formats of -getfattr and its predecessor, aget. To get all attributes with aget -and convert the result to getfattr format, use the following command: - - aget -Rds -e hex . | ea-conv - - -To get all attributes with getfattr and convert the result to aget -format, use the following command: - - getfattr -Rd -m - -e hex . | ea-conv - - Index: attr-2.4.39/doc/ea-conv/ea-conv =================================================================== --- attr-2.4.39.orig/doc/ea-conv/ea-conv +++ /dev/null @@ -1,119 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use FileHandle; - -sub convert_acl($) -{ - my ($value) = @_; - - local $_ = $value; - - die "ACL value must be hex encoded\n" unless (s/^0x//); - s/\s//g; - - my ($x4, $x8) = ('([0-9A-Fa-f]{4})', '([0-9A-Fa-f]{8})'); - - if (s/^01000000//) { - my $new_value = '0x02000000 '; - while ($_ ne '') { - if (s/^(0100|0400|1000|2000)$x4//) { - $new_value .= "$1$2ffffffff "; - } elsif (s/^(0200|0800)$x4$x8//) { - $new_value .= "$1$2$3 "; - } else { - die "ACL format not recognized\n" - } - } - return $new_value; - } elsif (s/^02000000//) { - my $new_value = '0x01000000 '; - while ($_ ne '') { - if (s/^(0100|0400|1000|2000)$x4$x8//) { - $new_value .= "$1$2 "; - } elsif (s/^(0200|0800)$x4$x8//) { - $new_value .= "$1$2$3 "; - } else { - die "ACL format not recognized\n" - } - } - return $new_value; - } else { - die "ACL format not recognized\n" - } -} - -sub check_name($) { - my ($name) = @_; - if ($name =~ m[^[^A-Za-z]]) { - print STDERR "Renaming attribute `user.$name' to `X$name'.\n"; - return "X$name"; - } - return $name; -} - -sub convert($) { - my ($file) = @_; - - eval { - while (<$file>) { - m[^(#.*)?$] || - s[^system\.posix_acl_access=(0x02.*)] - ['$acl=' . convert_acl($1)]e || - s[^system\.posix_acl_default=(0x02.*)] - ['$defacl=' . convert_acl($1)]e || - s[^user\.([^=]*)][check_name($1)]e || - - s[^\$acl=(0x01.*)] - ['system.posix_acl_access=' . - convert_acl($1)]e || - s[^\$defacl=(0x01.*)] - ['system.posix_acl_default=' . - convert_acl($1)]e || - s[^([A-Za-z][^=]*)][user.$1] || - - die "Input format error\n"; - - print; - } - }; - if ($@) { - chomp $@; - print STDERR "$@ in line $..\n"; - } - return (not $@); -} - -unless (@ARGV) { - printf STDERR <close unless ($arg eq '-'); -} -exit (not $good);