+#!/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 $!;