From 3d2355f59d8b3b8bc2670efa0b347a04a3239a74 Mon Sep 17 00:00:00 2001
From: Ole Tange <ole@tange.dk>
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<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;
 	}
     }