tracefile: lsetxattr/lgetxattr added.
This commit is contained in:
parent
f1cdc457fd
commit
3d2355f59d
|
@ -114,8 +114,6 @@ else
|
||||||
DRAC_HOST="$host"
|
DRAC_HOST="$host"
|
||||||
fi
|
fi
|
||||||
|
|
||||||
tmp=$(mktemp)
|
|
||||||
|
|
||||||
# Find a command line tool to download with
|
# Find a command line tool to download with
|
||||||
get=$(
|
get=$(
|
||||||
(lynx -source /dev/null && echo lynx -source) ||
|
(lynx -source /dev/null && echo lynx -source) ||
|
||||||
|
@ -127,6 +125,8 @@ get=$(
|
||||||
|
|
||||||
w4it-for-port-open "$DRAC_HOST" 80
|
w4it-for-port-open "$DRAC_HOST" 80
|
||||||
|
|
||||||
|
tmp=$(mktemp)
|
||||||
|
|
||||||
# Use http instead of https to avoid dealing with self signed cert
|
# Use http instead of https to avoid dealing with self signed cert
|
||||||
$get http://"$DRAC_HOST"/software/avctKVM.jar > "$tmp"
|
$get http://"$DRAC_HOST"/software/avctKVM.jar > "$tmp"
|
||||||
|
|
||||||
|
|
|
@ -123,12 +123,12 @@ B<apt-file> will search for which package it is in:
|
||||||
|
|
||||||
=head1 REPORTING BUGS
|
=head1 REPORTING BUGS
|
||||||
|
|
||||||
Report bugs to <tange@gnu.org>.
|
Report bugs on https://codeberg.org/tange/tangetools/issues
|
||||||
|
|
||||||
|
|
||||||
=head1 AUTHOR
|
=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.
|
Software Foundation, Inc.
|
||||||
|
|
||||||
|
|
||||||
|
@ -255,7 +255,7 @@ use Getopt::Long;
|
||||||
sub version();
|
sub version();
|
||||||
sub help();
|
sub help();
|
||||||
$Global::progname = "tracefile";
|
$Global::progname = "tracefile";
|
||||||
$Global::version = 20220701;
|
$Global::version = 20230409;
|
||||||
|
|
||||||
Getopt::Long::Configure("bundling","require_order");
|
Getopt::Long::Configure("bundling","require_order");
|
||||||
get_options_from_array(\@ARGV) || die_usage();
|
get_options_from_array(\@ARGV) || die_usage();
|
||||||
|
@ -359,7 +359,6 @@ while(<IN>) {
|
||||||
}
|
}
|
||||||
|
|
||||||
{
|
{
|
||||||
my %warned;
|
|
||||||
my %funcs;
|
my %funcs;
|
||||||
|
|
||||||
sub init_functions {
|
sub init_functions {
|
||||||
|
@ -372,21 +371,31 @@ while(<IN>) {
|
||||||
|
|
||||||
%funcs = qw(access r acct ? chdir r chmod w chown w chown16 w
|
%funcs = qw(access r acct ? chdir r chmod w chown w chown16 w
|
||||||
chroot r creat w execv r execve r execveat r
|
chroot r creat w execv r execve r execveat r
|
||||||
faccessat r faccessat2 r fanotify_mark ? fchmodat
|
faccessat r faccessat2 r fanotify_mark ? fchmodat w
|
||||||
w fchownat w fstat r fstat64 r fstatat64 r fstatfs
|
fchownat w fstat r fstat64 r fstatat64 r fstatfs r
|
||||||
r fstatfs64 r futimesat r getcwd r getxattr r
|
fstatfs64 r futimesat r getcwd r getxattr r
|
||||||
inotify_add_watch r link w linkat w listxattr r
|
inotify_add_watch r lgetxattr r link w linkat w
|
||||||
lstat r lstat64 r mkdir w mkdirat w mknod w
|
listxattr r lsetxattr w lstat r lstat64 r mkdir w
|
||||||
mknodat w mount r name_to_handle_at ? newfstatat
|
mkdirat w mknod w mknodat w mount r
|
||||||
r oldfstat r oldlstat r oldstat r open rw openat
|
name_to_handle_at ? newfstatat r oldfstat r
|
||||||
rw osf_fstatfs r osf_statfs r osf_utimes r perror
|
oldlstat r oldstat r open rw openat rw osf_fstatfs r
|
||||||
n pivotroot r printargs ? printf n quotactl ?
|
osf_statfs r osf_utimes r perror n pivotroot r
|
||||||
readlink r readlinkat r removexattr w rename w
|
printargs ? printf n quotactl ? readlink r
|
||||||
renameat w renameat2 w rmdir w setxattr w stat r
|
readlinkat r removexattr w rename w renameat w
|
||||||
stat64 r statfs r statfs64 r statx r swapoff w
|
renameat2 w rmdir w setxattr w stat r stat64 r
|
||||||
swapon w symlink w symlinkat w truncate w
|
statfs r statfs64 r statx r swapoff w swapon w
|
||||||
truncate64 w umount r umount2 r unlink w unlinkat
|
symlink w symlinkat w truncate w truncate64 w
|
||||||
w uselib r utime w utimensat w utimes 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 {
|
sub readfunc {
|
||||||
|
@ -398,9 +407,7 @@ while(<IN>) {
|
||||||
if($funcs{$func}) {
|
if($funcs{$func}) {
|
||||||
return ($funcs{$func} eq "r");
|
return ($funcs{$func} eq "r");
|
||||||
} else {
|
} else {
|
||||||
$warned{$func}++ or
|
warn_missing($func);
|
||||||
warning("'$func' is unknown. Please report at",
|
|
||||||
"https://gitlab.com/ole.tange/tangetools/issues");
|
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
@ -414,9 +421,7 @@ while(<IN>) {
|
||||||
if($funcs{$func}) {
|
if($funcs{$func}) {
|
||||||
return ($funcs{$func} eq "w");
|
return ($funcs{$func} eq "w");
|
||||||
} else {
|
} else {
|
||||||
$warned{$func}++ or
|
warn_missing($func);
|
||||||
warning("$func is unknown. Please report at",
|
|
||||||
"https://gitlab.com/ole.tange/tangetools/issues");
|
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue