tange/tangetools
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

tracefile: lsetxattr/lgetxattr added.

Browse source
This commit is contained in:
Ole Tange 2023-04-10 22:58:47 +02:00
parent f1cdc457fd
commit 3d2355f59d
2 changed files with 33 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
drac/drac
View file

@ -114,8 +114,6 @@ else
DRAC_HOST="$host"
fi
tmp=$(mktemp)
# Find a command line tool to download with
get=$(
(lynx -source /dev/null && echo lynx -source) ||
@ -127,6 +125,8 @@ get=$(
w4it-for-port-open "$DRAC_HOST" 80
tmp=$(mktemp)
# Use http instead of https to avoid dealing with self signed cert
$get http://"$DRAC_HOST"/software/avctKVM.jar > "$tmp"

57
tracefile/tracefile
View file

@ -123,12 +123,12 @@ B<apt-file> will search for which package it is in:
=head1 REPORTING BUGS
Report bugs to <tange@gnu.org>.
Report bugs on https://codeberg.org/tange/tangetools/issues
=head1 AUTHOR
Copyright (C) 2012-2019 Ole Tange, http://ole.tange.dk and Free
Copyright (C) 2012-2023 Ole Tange, http://ole.tange.dk and Free
Software Foundation, Inc.
@ -255,7 +255,7 @@ use Getopt::Long;
sub version();
sub help();
$Global::progname = "tracefile";
$Global::version = 20220701;
$Global::version = 20230409;
Getopt::Long::Configure("bundling","require_order");
get_options_from_array(\@ARGV) || die_usage();
@ -359,7 +359,6 @@ while(<IN>) {
}
{
my %warned;
my %funcs;
sub init_functions {
@ -372,23 +371,33 @@ while(<IN>) {
%funcs = qw(access r acct ? chdir r chmod w chown w chown16 w
chroot r creat w execv r execve r execveat r
faccessat r faccessat2 r fanotify_mark ? fchmodat
w fchownat w fstat r fstat64 r fstatat64 r fstatfs
r fstatfs64 r futimesat r getcwd r getxattr r
inotify_add_watch r link w linkat w listxattr r
lstat r lstat64 r mkdir w mkdirat w mknod w
mknodat w mount r name_to_handle_at ? newfstatat
r oldfstat r oldlstat r oldstat r open rw openat
rw osf_fstatfs r osf_statfs r osf_utimes r perror
n pivotroot r printargs ? printf n quotactl ?
readlink r readlinkat r removexattr w rename w
renameat w renameat2 w rmdir w setxattr w stat r
stat64 r statfs r statfs64 r statx r swapoff w
swapon w symlink w symlinkat w truncate w
truncate64 w umount r umount2 r unlink w unlinkat
w uselib r utime w utimensat w utimes w);
}
faccessat r faccessat2 r fanotify_mark ? fchmodat w
fchownat w fstat r fstat64 r fstatat64 r fstatfs r
fstatfs64 r futimesat r getcwd r getxattr r
inotify_add_watch r lgetxattr r link w linkat w
listxattr r lsetxattr w lstat r lstat64 r mkdir w
mkdirat w mknod w mknodat w mount r
name_to_handle_at ? newfstatat r oldfstat r
oldlstat r oldstat r open rw openat rw osf_fstatfs r
osf_statfs r osf_utimes r perror n pivotroot r
printargs ? printf n quotactl ? readlink r
readlinkat r removexattr w rename w renameat w
renameat2 w rmdir w setxattr w stat r stat64 r
statfs r statfs64 r statx r swapoff w swapon w
symlink w symlinkat w truncate w truncate64 w
umount r umount2 r unlink w unlinkat w uselib r
utime w utimensat w utimes w); }
{
my %warned;
sub warn_missing {
my $func = shift;
$warned{$func}++ or
warning("'$func' is unknown. Please report at",
"https://codeberg.org/tange/tangetools/issues");
}
}
sub readfunc {
# The call is a call that would work on a RO file system
my($func,$info) = @_;
@ -398,9 +407,7 @@ while(<IN>) {
if($funcs{$func}) {
return ($funcs{$func} eq "r");
} else {
$warned{$func}++ or
warning("'$func' is unknown. Please report at",
"https://gitlab.com/ole.tange/tangetools/issues");
warn_missing($func);
return 0;
}
}
@ -414,9 +421,7 @@ while(<IN>) {
if($funcs{$func}) {
return ($funcs{$func} eq "w");
} else {
$warned{$func}++ or
warning("$func is unknown. Please report at",
"https://gitlab.com/ole.tange/tangetools/issues");
warn_missing($func);
return 0;
}
}