Op other people other places

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

diff --git a/cmdaccess.yaml b/cmdaccess.yaml
index 0125184..2a5e33f 100644 (file)
--- a/cmdaccess.yaml
+++ b/cmdaccess.yaml
@@ -9,6 +9,7 @@ DIE: 2
 FLUSHURLS: 1
 IGNORE: 2
 JOIN: 1
+OP: 1
 OPME: 1
 PART: 1
 REGISTER: 0

diff --git a/commands.yaml b/commands.yaml
index b189e8c..e549093 100644 (file)
--- a/commands.yaml
+++ b/commands.yaml
@@ -176,6 +176,20 @@ RELOADCOMMANDS: |-
     }
   }
 
+OP: |-
+  sub {
+    my( $kernel, $heap, $who, $what, $src, $dest, $replypath ) = @_;
+    my @args = split( / /, $what );
+    if( $#args == 0 ) {
+      $kernel->post( $src, "do_mode", $dest, "+o ".$args[0] );
+      return 1;
+    }
+    if( $#args == 1 ) {
+      $kernel->post( $src, "do_mode", $args[1], "+o ".$args[0] );
+      return 1;
+    }
+    $kernel->post( $src, $replypath, "OP <username> [<channel>]", $dest );
+  }
 OPME: |-
   sub {
     my( $kernel, $heap, $who, $what, $src, $dest, $replypath ) = @_;