simcop2387/block-cloning-tool
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

going to setup here

Browse source
This commit is contained in:
Ryan Voots 2024-03-30 09:38:37 -04:00
parent d15613e2ad
commit 2cd5d87e54
4 changed files with 34 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
.gitignore vendored Normal file
View file

@ -0,0 +1,2 @@
raidz1-*.raw
mount-point/

10
.vstags Normal file
View file

@ -0,0 +1,10 @@
!_TAG_FILE_FORMAT 2 /extended format; --format=1 will not append ;" to lines/
!_TAG_FILE_SORTED 1 /0=unsorted, 1=sorted, 2=foldcase/
!_TAG_PROGRAM_AUTHOR Darren Hiebert /dhiebert@users.sourceforge.net/
!_TAG_PROGRAM_NAME Exuberant Ctags //
!_TAG_PROGRAM_URL http://ctags.sourceforge.net /official site/
!_TAG_PROGRAM_VERSION 5.9~svn20110310 //
display_help bin/bct.pl 30;" s
get_facl bin/bct.pl 41;" s
get_times bin/bct.pl 44;" s
get_xattr bin/bct.pl 47;" s

23
bin/bct.pl
View file

@ -7,6 +7,7 @@ use v5.38.0;
use Path::Tiny;
use Linux::ACL;
use File::ExtAttr;
use Data::Dumper;
use Getopt::Long;
use builtin qw/true false/;
@ -26,10 +27,30 @@ GetOptions(
"h|help" => \&display_help,
);
sub display_help {
sub display_help() {
print <DATA>;
exit();
}
if (@ARGV != 2) {
my $n = scalar @ARGV;
print STDERR "Incorrect number of file arguments. Got $n, expected 2\n\n";
display_help();
}
sub get_facl($file) {
}
sub get_times($file) {
}
sub get_xattr($file) {
my @xattr = File::ExtAttr::listfattr($file);
print Dumper(\@xattr);
}
my $file = path("test");
get_xattr($file);
__DATA__
block-cloning-tool

0
test Normal file
View file