X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=post-pizza-notify.git;a=blobdiff_plain;f=via-userv;fp=via-userv;h=dbfd8b99b922a03672be45923376b5b1e7fd53c6;hp=0000000000000000000000000000000000000000;hb=a7b661486ddf65ef92f42941eec4d03e3be78875;hpb=f1462909dd25c94e01c93f0b3de7c351fd3b59b2

diff --git a/via-userv b/via-userv
new file mode 100755
index 0000000..dbfd8b9
--- /dev/null
+++ b/via-userv
@@ -0,0 +1,15 @@
+#!/usr/bin/perl -w
+#
+# recipient format:
+#    userv HOST USER SERVICE
+
+use strict;
+die unless @ARGV==4;
+our ($msg,$host,$user,$service) = @ARGV;
+
+if (open PIPE, "|-", "ssh", $host, "userv", "-t", "2", $user, $service) {
+    print PIPE "$msg\n";
+    close PIPE;
+}
+
+die $! if $? != 0;