2 files changed, 31 insertions, 16 deletions

diff --git a/custom/uucp-mediaserver/scripts/queue b/custom/uucp-mediaserver/scripts/queue
index 0ad653ff..ea294a6d 100755
--- a/custom/uucp-mediaserver/scripts/queue
+++ b/custom/uucp-mediaserver/scripts/queue
@@ -44,20 +44,30 @@ base=$(basename $0)
 suffix=${base##*.}
 
 force=0
-if [[ "$1" == "-f" ]]; then
-    shift
-    force=1
-    if [[ -n "$1" && "$1" -eq "$1" ]] 2>/dev/null; then
-        force="$1"
-        shift
-    fi
-fi
-
 noCall=false
-if [[ "$1" == "-r" ]]; then
-    shift
-    noCall=true
-fi
+prepend=false
+while getopts "frp" OPT; do
+    case OPT in
+        r)
+            noCall=true
+            ;;
+        f)
+            if [[ ${@:$OPTIND} =~ ^[0-9]+$ ]];then
+                force=${@:$OPTIND}
+                OPTIND=$((OPTIND+1))
+            else
+                force=1
+            fi
+            ;;
+        p)
+            prepend=true
+            ;;
+        \?)
+            echo "Invalid option -${OPTARG}" >&2
+            exit 2
+            ;;
+    esac
+done
 
 for f (${@}); do
     f=$(readlink -f ${f})
@@ -68,7 +78,12 @@ for f (${@}); do
     if uustat | grep -q ${f:t}; then
         printf "‘%s’ is already in uucp queue\n" ${f:t} | warn
     fi
-    print -r ${f} >> @queueDir@/${suffix}.queue
+
+    if ${prepend}; then
+        mv =(print -r ${f}; cat @queueDir@/${suffix}.queue) @queueDir@/${suffix}.queue
+    else
+        print -r ${f} >> @queueDir@/${suffix}.queue
+    fi
 done
 
 offset=1
@@ -85,7 +100,7 @@ while true; do
         if [[ -n "${file}" ]]; then
           printf "‘%s’ does not exist, skipping\n" "${file}" >&2
           printf "Subject: Missing file in %s\n\n%s" $logTag ${file} \
-              | sendmail gkleen \
+              | sendmail uucp \
               && echo "Sent mail."
         fi
         advance
diff --git a/odin/strm/send_kitty b/odin/strm/send_kitty
index 60eb11ec..2eb3e98a 100644
--- a/odin/strm/send_kitty
+++ b/odin/strm/send_kitty
@@ -37,5 +37,5 @@ fi
 newFile="${concatDir}/$(date +'%Y-%m-%d-%H-%M-%S').mkv"
 
 @ffmpeg@/bin/ffmpeg -safe 0 -f concat -i =(awk $'{ print "file \'"$0"\'" }' ${fList}) -c copy -metadata "description=$(xargs -a ${fList} -- basename -s ".mkv")" ${newFile}
-queue.hel -r ${newFile}
+queue.hel -p -r ${newFile}
 ln -vfs $(realpath --relative-to=${lastFile:h} ${newFile}) ${lastFile}