via-irctopic

   1 #!/usr/bin/perl -w
   2 use strict;
   3 die unless @ARGV==4;
   4 our ($msg,$server,$port,$channel) = @ARGV;
   5
   6 chdir "../ircbot.git" or die $!;
   7
   8 exec qw(./topicedit.tcl),
   9         $server, $port, 'ppizzabot',
  10         $ENV{'PIZZANOTIFY_email'},
  11         $ENV{'PIZZANOTIFY_name'},
  12         $channel,
  13         $msg;
  14
  15 die $!;