summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Multi/IRC.pm13
1 files changed, 9 insertions, 4 deletions
diff --git a/lib/Multi/IRC.pm b/lib/Multi/IRC.pm
index 690c0ce0..d5f2d015 100644
--- a/lib/Multi/IRC.pm
+++ b/lib/Multi/IRC.pm
@@ -110,10 +110,15 @@ sub irccmd { # dest, cmd, [nick], [prep]
$nick ||= $_[ARG0];
$prep ||= '';
- if($cmd =~ /^info/) {
- return $_[KERNEL]->post(circ => privmsg => $dest,
- 'Hello, I am HMX-12 Multi v'.$VNDB::VERSION.' made by the great Yorhel!');
- }
+ return $_[KERNEL]->post(circ => privmsg => $dest,
+ 'Hello, I am HMX-12 Multi v'.$VNDB::VERSION.' made by the great Yorhel!')
+ if $cmd =~ /^info/;
+ return $_[KERNEL]->post(circ => privmsg => $dest,
+ 'VNDB ~ The Visual Novel Database ~ http://vndb.org/')
+ if $cmd =~ /^vndb/;
+ return $_[KERNEL]->post(circ => privmsg => $dest,
+ $prep.'this is not a warez channel!')
+ if $cmd =~ /^list/ && $dest eq $_[HEAP]{o}{channel}[0];
return if $cmd !~ /^(?:say|me|cmd|eval) /;