From: pdbogen <pdbogen@088b83a4-0077-4247-935c-42ec02c2848b>
Date: Wed, 3 Sep 2008 14:41:02 +0000 (+0000)
Subject: OP and OPME fixed for new destination model
X-Git-Url: http://git.mmlx.us/?a=commitdiff_plain;h=9f490908fade128973df755adb889b0ecd541bbc;p=destult.git

OP and OPME fixed for new destination model

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

diff --git a/commands.yaml b/commands.yaml
index 44336ca..a5882c6 100644
--- a/commands.yaml
+++ b/commands.yaml
@@ -181,7 +181,7 @@ OP: |-
     my( $kernel, $heap, $who, $what, $src, $dest, $replypath ) = @_;
     my @args = split( / /, $what );
     if( $#args == 0 ) {
-      $kernel->post( $src, "do_mode", $dest, "+o ".$args[0] );
+      $kernel->post( $src, "do_mode", $dest->{ "dest" }, "+o ".$args[0] );
       return 1;
     }
     if( $#args == 1 ) {
@@ -193,7 +193,7 @@ OP: |-
 OPME: |-
   sub {
     my( $kernel, $heap, $who, $what, $src, $dest, $replypath ) = @_;
-    $kernel->post( $src, "do_mode", $dest, "+o $who" );
+    $kernel->post( $src, "do_mode", $dest->{ "dest" }, "+o $who" );
   }
 
 UNIDENTIFY: |-