via-irctopic

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