works, tested

diff --git a/.gitignore b/.gitignore
index b25c15b81fae06e1c55946ac6270bfdb293870e8..87d89759e9cd8aaead268ea56a5f22939e046702 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,2 @@
 *~
+log-*.txt

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 $!;