works, tested

[post-pizza-notify.git] / via-irctopic

diff --git a/via-irctopic b/via-irctopic
new file mode 100755 (executable)
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 $!;