#!/usr/bin/perl -w
#
# recipient format:
#    irctopic SERVER PORT CHANNEL

use strict;
die unless @ARGV==4;
our ($msg,$server,$port,$channel) = @ARGV;

chdir "../ircbot.git" or die $!;

exec qw(./topicedit.tcl),
	$server, $port, 'ppizzabot',
	$ENV{'PIZZANOTIFY_email'},
	$ENV{'PIZZANOTIFY_name'},
	$channel,
	$msg;

die $!;