Join and part stuff

git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@11 088b83a4-0077-4247-935c-42ec02c2848b

diff --git a/cmdaccess.yaml b/cmdaccess.yaml
index 952e4e9..9bd997b 100644 (file)
--- a/cmdaccess.yaml
+++ b/cmdaccess.yaml
@@ -1,14 +1,15 @@
 ---
-'ACCESSLIST': 1
-'ADVERTISE': 2
-'APPEND': 1
-'CMDACCESS': 2
-'CONFIG': 2
-'DEFINE': 1
-'DIE': 2
-'IGNORE': 2
-'JOIN': 1
-'REGISTER': 0
-'REPLACE': 1
-'SIEVE': 1
-'TRANSLATE': 0
+ACCESSLIST: 1
+ADVERTISE: 2
+APPEND: 1
+CMDACCESS: 2
+CONFIG: 2
+DEFINE: 1
+DIE: 2
+IGNORE: 2
+JOIN: 1
+PART: 1
+REGISTER: 0
+REPLACE: 1
+SIEVE: 1
+TRANSLATE: 0

diff --git a/commands.yaml b/commands.yaml
index 1d88461..9cc5c46 100644 (file)
--- a/commands.yaml
+++ b/commands.yaml
@@ -841,7 +841,7 @@ JOIN: |-
   sub {
     my( $kernel, $heap, $who, $what, $src, $dest, $replypath ) = @_;
     if( $what =~ /^[#&][^ ,]+$/ ) {
-      $kernel->post( "mod_irc", "do_join", $what );
+      $kernel->post( $src, "do_join", $what );
       $kernel->post( $src, $replypath, "Okay.", $dest );
     } else {
       $kernel->post( $src, $replypath, "'$what' is not a valid channel name.", $dest );
@@ -852,7 +852,7 @@ PART: |-
   sub {
     my( $kernel, $heap, $who, $what, $src, $dest, $replypath ) = @_;
     if( $what =~ /^[#&][^ ,]+$/ ) {
-      $kernel->post( "mod_irc", "do_part", $what );
+      $kernel->post( $src, "do_part", $what );
       $kernel->post( $src, $replypath, "Okay.", $dest );
     } else {
       $kernel->post( $src, $replypath, "'$what' is not a valid channel name.", $dest );