chiark
/
gitweb
/
~ianmdlvl
/
post-pizza-notify.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
8dadc0de4965822b9b8c005faac71adfcac5ac16
[post-pizza-notify.git]
/
via-irctopic
1
#!/usr/bin/perl -w
2
use strict;
3
die unless @ARGV==4;
4
our ($server,$port,$channel,$msg) = @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 $!;