From 3d2355f59d8b3b8bc2670efa0b347a04a3239a74 Mon Sep 17 00:00:00 2001 From: Ole Tange Date: Mon, 10 Apr 2023 22:58:47 +0200 Subject: [PATCH] tracefile: lsetxattr/lgetxattr added. --- drac/drac | 4 ++-- tracefile/tracefile | 57 ++++++++++++++++++++++++--------------------- 2 files changed, 33 insertions(+), 28 deletions(-) diff --git a/drac/drac b/drac/drac index 3fc3b6d..07dfbe7 100755 --- a/drac/drac +++ b/drac/drac @@ -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" diff --git a/tracefile/tracefile b/tracefile/tracefile index cb252f4..b275455 100755 --- a/tracefile/tracefile +++ b/tracefile/tracefile @@ -123,12 +123,12 @@ B will search for which package it is in: =head1 REPORTING BUGS -Report bugs to . +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() { } { - my %warned; my %funcs; sub init_functions { @@ -372,23 +371,33 @@ while() { %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() { 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() { 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; } }