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 (file)
--- 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: |-