X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=post-pizza-notify.git;a=blobdiff_plain;f=via-irctopic;fp=via-irctopic;h=8dadc0de4965822b9b8c005faac71adfcac5ac16;hp=0000000000000000000000000000000000000000;hb=8d228dae9ab76948940888b5e9fdc85f07e04c41;hpb=2689e819b1a05da21194be0ef7c5180a193400ea

diff --git a/via-irctopic b/via-irctopic
new file mode 100755
index 0000000..8dadc0d
--- /dev/null
+++ b/via-irctopic
@@ -0,0 +1,15 @@
+#!/usr/bin/perl -w
+use strict;
+die unless @ARGV==4;
+our ($server,$port,$channel,$msg) = @ARGV;
+
+chdir "../ircbot.git" or die $!;
+
+exec qw(./topicedit.tcl),
+	$server, $port, 'ppizzabot',
+	$ENV{'PIZZANOTIFY_email'},
+	$ENV{'PIZZANOTIFY_name'},
+	$channel,
+	$msg;
+
+die $!;