#!/usr/bin/perl -w
use strict;

my $USAGE = "Usage: chattr [-R|-D] [+-rdtPn] file...\n";
my $OPTS = " ";
my @files;
my $dashdash = 0;

foreach (@ARGV) {
	if ($dashdash == 0) {
		if (/^--$/) {
			$dashdash = 1;
		} elsif (/^-[R|D]$/) {
			$OPTS = $OPTS . $_ . " ";
		} elsif (/^[-|+][r|d|t|P|n]/) {
			$OPTS = $OPTS . $_ . " ";
		} else {
			push @files, $_;
		}
	} else {
		push @files;
	}
}

if ($#files >= 0) {
	$, = ' ';
	`/usr/sbin/xfs_io -r -p chattr -c "chattr $OPTS" -- @files`;
} else {
	print STDERR $USAGE;
	exit 1;
}
