improve update_reg.sh debugging

The `sbin/update_reg.sh` tool will call `sbin/who_extract.sh`
with `-v level` when the level is > 0.

The `sbin/who_email.awk` is more robust on looking
for the initial "_who_" line.

The `sbin/who_extract.sh` when debug level is >= 5
will run the `sbin/who_email.awk` first with a `-v debug=level` value.

Author: lcn2

sbin/update_reg.sh

@@ -122,7 +122,7 @@ export LC_ALL="C"
 
 # setup
 #
-export VERSION="2.2.1 2025-11-17"
+export VERSION="2.2.2 2025-11-17"
 NAME=$(basename "$0")
 export NAME
 export V_FLAG=0
@@ -1310,8 +1310,13 @@ if [[ -z $NOOP ]]; then
     if [[ $V_FLAG -ge 1 ]]; then
 	echo "$0: debug[1]: about to: $WHO_EXTRACT_SH $WHO_IOCCC $TMP_FREELISTS_LST 2>$TMP_STDERR" 1>&2
     fi
-    "$WHO_EXTRACT_SH" "$WHO_IOCCC" "$TMP_FREELISTS_LST" 2>"$TMP_STDERR"
-    status="$?"
+    if [[ $V_FLAG -ge 1 ]]; then
+	"$WHO_EXTRACT_SH" -v "$V_FLAG" "$WHO_IOCCC" "$TMP_FREELISTS_LST" 2>"$TMP_STDERR"
+	status="$?"
+    else
+	"$WHO_EXTRACT_SH" "$WHO_IOCCC" "$TMP_FREELISTS_LST" 2>"$TMP_STDERR"
+	status="$?"
+    fi
     if [[ $status -ne 0 ]]; then
 	git_exit 1 "$0: ERROR: $WHO_EXTRACT_SH $WHO_IOCCC $TMP_FREELISTS_LST 2>$TMP_STDERR failed, error: $status"
     fi

sbin/who_email.awk

@@ -8,8 +8,8 @@
 #
 # About modes:
 #
-# 0 - waiting for '>> who' line
-# 1 - read '>> who' line, now waiting for line that starts with 'Membership of list '
+# 0 - waiting for '>> who' or 'who' line
+# 1 - read '>> who' or 'who' line, now waiting for line that starts with 'Membership of list '
 # 2 - read line that starts with 'Membership of list ', now reading email lines, waiting for empty/blank line
 #
 # NOTE: When mode == 2 and a empty/blank line is read, mode will return to 0.
@@ -21,7 +21,7 @@ BEGIN {
 
     # setup
     #
-    VERSION="2.0.0 2025-02-28";
+    VERSION="2.0.1 2025-11-17";
 
     # if debug is empty, set debug to 0
     #
@@ -38,9 +38,9 @@ BEGIN {
 }
 
 
-# case mode 0: waiting for '>> who' line
+# case mode 0: waiting for '>> who' or 'who' line
 #
-mode == 0 && $0 !~ /^>> who/ {
+mode == 0 && $0 !~ /^[> \t]*who[ \t]*$/ {
     line = substr($0, 1, length($0)-1);
     if (debug > 0) {
 	print "DEBUG: mode 0: waiting for who line: ((" line "))";
@@ -49,11 +49,11 @@ mode == 0 && $0 !~ /^>> who/ {
 }
 
 
-# case mode 0: read '>> who' line
+# case mode 0: read '>> who' or 'who' line
 #
 # enter mode 1
 #
-mode == 0 && $0 ~ /^>> who/ {
+mode == 0 && $0 ~ /^[> \t]*who[ \t]*$/ {
     line = substr($0, 1, length($0)-1);
     if (debug > 0) {
 	print "DEBUG: mode 0: read who line: ((" line "))";
@@ -64,7 +64,7 @@ mode == 0 && $0 ~ /^>> who/ {
 }
 
 
-# case mode 1: read '>> who' line, now waiting for line that starts with 'Membership of list '
+# case mode 1: read '>> who' or 'who' line, now waiting for line that starts with 'Membership of list '
 #
 # enter mode 2
 #

sbin/who_extract.sh

@@ -64,7 +64,7 @@ export LC_ALL="C"
 
 # setup
 #
-export VERSION="2.2.0 2025-03-13"
+export VERSION="2.2.1 2025-11-17"
 NAME=$(basename "$0")
 export NAME
 export V_FLAG=0
@@ -360,6 +360,11 @@ fi
 
 # extract email address from who-ioccc file
 #
+if [[ $V_FLAG -ge 5 ]]; then
+    echo "$0: debug[5]: $AWK_TOOL -f $WHO_EMAIL_AWK -v debug=$V_FLAG $WHO_IOCCC output starts below" 1>&2
+    "$AWK_TOOL" -f "$WHO_EMAIL_AWK" -v debug="$V_FLAG" "$WHO_IOCCC"
+    echo "$0: debug[5]: $AWK_TOOL -f $WHO_EMAIL_AWK -v debug=$V_FLAG $WHO_IOCCC output ends above" 1>&2
+fi
 if [[ $V_FLAG -ge 1 ]]; then
     echo "$0: debug[1]: about to run: $AWK_TOOL -f $WHO_EMAIL_AWK $WHO_IOCCC > $TMP_OUTPUT" 1>&2
 fi