aboutsummaryrefslogtreecommitdiff
path: root/idalius.pl
diff options
context:
space:
mode:
Diffstat (limited to 'idalius.pl')
-rwxr-xr-xidalius.pl5
1 files changed, 5 insertions, 0 deletions
diff --git a/idalius.pl b/idalius.pl
index 9c1483b..9ac4138 100755
--- a/idalius.pl
+++ b/idalius.pl
@@ -139,6 +139,7 @@ sub irc_msg {
my ($channel) = $what =~ /^nick\s+(\S+)$/;
if ($channel) {
$irc->yield(nick => $channel);
+ $irc->yield(privmsg => $nick => "Requested.");
} else {
$irc->yield(privmsg => $nick => "Syntax: nick <nick>");
}
@@ -150,6 +151,7 @@ sub irc_msg {
my ($chan_str, $reason) = split /\s+(?!#)/, $what, 2;
my @channels = split /\s+/, $chan_str;
$irc->yield(part => @channels => $reason);
+ $irc->yield(privmsg => $nick => "Requested.");
} else {
$irc->yield(privmsg => $nick =>
"Syntax: part <channel1> [channel2 ...] [partmsg]");
@@ -160,6 +162,7 @@ sub irc_msg {
$what =~ s/^join\s+//;
my @channels = split /\s+/, $what;
$irc->yield(join => $_) for @channels;
+ $irc->yield(privmsg => $nick => "Requested.");
} else {
$irc->yield(privmsg => $nick =>
"Syntax: join <channel1> [channel2 ...]");
@@ -169,12 +172,14 @@ sub irc_msg {
my ($channel, $message) = $what =~ /^say\s+(\S+)\s(.*)$/;
if ($channel and $message) {
$irc->yield(privmsg => $channel => $message);
+ $irc->yield(privmsg => $nick => "Requested.");
} else {
$irc->yield(privmsg => $nick => "Syntax: say <channel> <msg>");
}
}
if ($what =~ /^reconnect/) {
my ($reason) = $what =~ /^reconnect\s+(.+)$/;
+ $irc->yield(privmsg => $nick => "Doing that now");
if (!$reason) {
$reason = $config{quit_msg};
}