Changeset 57cf4f9

Timestamp:

Aug 21, 2008, 6:18:51 PM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

d5dcd7c

Parents:

7a45a72

Message:

Make owl_function_reply call methods to get the replycmd.

For backwards compatibility, we add default sub replycmd and sub
replysendercmd to BarnOwl::Message, which just return the value of the
property.

Files:

• functions.c (modified) (1 diff)
• perlwrap.pm (modified) (1 diff)

functions.c

@@ -2136 +2136 @@
     } else {
       char *cmd;
-      if((type==0 && (cmd=owl_message_get_attribute_value(m, "replycmd")))
-         || (type==1 && (cmd=owl_message_get_attribute_value(m, "replysendercmd")))) {
-        buff = owl_strdup(cmd);
+      if((type == 0 &&
+          (cmd=owl_perlconfig_message_call_method(m, "replycmd", 0, NULL))) ||
+         (type == 1 &&
+          (cmd=owl_perlconfig_message_call_method(m, "replysendercmd", 0, NULL)))) {
+        buff = cmd;
       }
     }

perlwrap.pm

@@ -361 +361 @@
 sub login_host  { return undef; }
 sub login_tty   { return undef; }
+
+# This is for back-compat with old messages that set these properties
+# New protocol implementations are encourages to user override these
+# methods.
+sub replycmd         { return shift->{replycmd}};
+sub replysendercmd   { return shift->{replysendercmd}};
 
 sub pretty_sender    { return shift->sender; }