Two (rewritten - I love playing around with code) patches by applehq: added !list and !vndb commands to Multi::IRC

git-svn-id: svn://vndb.org/vndb@73 1fe2e327-d9db-4752-bcf7-ef0cb4a1748b

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) /;