From 797e8673ed6a3eec7db0294e30f84759629e49c8 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Sat, 4 Feb 2017 20:53:32 +1300
Subject: Add wro(1df)

---
 bin/wro | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 bin/wro

(limited to 'bin')

diff --git a/bin/wro b/bin/wro
new file mode 100755
index 00000000..82bb4415
--- /dev/null
+++ b/bin/wro
@@ -0,0 +1,31 @@
+#!/bin/sh
+# Add an email-style quote header to input
+self=wro
+
+# Check arguments
+if [ "$#" -gt 2 ] ; then
+    printf >&2 '%s: Too many arguments\n' "$self"
+    exit 2
+fi
+
+# Check first argument for the person to quote; if blank, try to form a
+# reasonable-looking name from the system
+if [ -n "$1" ] ; then
+    from=$1
+else
+    un=$(id -n)
+    if [ -f /etc/mailname ] ; then
+        read -r hn < /etc/mailname
+    else
+        hn=$(uname -n)
+    fi
+    from="$un"@"$hn"
+fi
+
+# Check second argument for the date; if blank, get the system date in whatever
+# format it cares to give us
+date=${2:-"$(date)"}
+
+# Print the header and then the input
+printf 'On %s, %s wrote:\n' "$date" "$from"
+cat
-- 
cgit v1.2.3