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" 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"

57
tracefile/tracefile
View file

@ -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,23 +371,33 @@ 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 {
# The call is a call that would work on a RO file system # The call is a call that would work on a RO file system
my($func,$info) = @_; my($func,$info) = @_;
@ -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;
} }
} }