chiark
/
gitweb
/
~ianmdlvl
/
post-pizza-notify.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
f67dba3c8dfb24665595b5cfb2972e7290e1f9ef
[post-pizza-notify.git]
/
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 $!;