#!perl
use
5.008001;
my
$parser
= Getopt::Long::Parser->new(
config
=> [
'no_ignore_case'
,
'pass_through'
],
);
$parser
->getoptions(
's|server=s'
=> \
$tacochan_server
,
);
sub
usage {
print
"tacochan_client
$0 [-s tacochan_server] leave
$0 [-s tacochan_server]
send
$0 [-s tacochan_server] chat_id user[, user, ...]
";
}
my
$command
=
shift
@ARGV
;
my
$chat
=
shift
@ARGV
;
unless
(
$chat
) {
usage();
exit
;
}
my
$req
;
if
(
$command
=~ /^leave|part$/) {
$req
= POST
"${tacochan_server}leave"
,
+{
chat
=>
$chat
,
};
}
elsif
(
$command
=~ /^
send
|notice|privmsg$/) {
my
$message
=
shift
@ARGV
;
unless
(
$message
) {
usage();
exit
;
}
$req
= POST
"${tacochan_server}send"
,
+{
chat
=>
$chat
,
message
=>
$message
,
};
}
elsif
(
$command
eq
'chat_id'
) {
$req
= GET
"${tacochan_server}chat_id"
,
+{
chat
=>
$chat
,
};
}
else
{
usage();
exit
;
}
my
$ua
= LWP::UserAgent->new(
agent
=>
"TacochanClient/$App::Tacochan::VERSION"
,
);
my
$res
=
$ua
->request(
$req
);
print
$res
->content .
"\n"
;