[246] in bug-owl
alert in new perl
daemon@ATHENA.MIT.EDU (Jeremy Daniel)
Thu Jul 31 11:52:56 2003
To: bug-owl@MIT.EDU
From: Jeremy Daniel <jdaniel@MIT.EDU>
Date: 31 Jul 2003 11:52:52 -0400
Message-ID: <ske65li3d7v.fsf@multics.mit.edu>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
I'd like to make the change to have alert_action be called with an
owl::Message object as an argument, unfortunately in order to do that
I think it has to not be called as a command which breaks backward
compatibility. Thoughts would be welcome on a different way to work
around this problem. This patch will call the alert_action as a perl
subroutine with the message as an argument.
Index: owl.c
===================================================================
RCS file: /mit/ktools/src/owl/repository/owl/owl.c,v
retrieving revision 1.47
diff -u -r1.47 owl.c
--- owl.c 6 Jul 2003 22:42:25 -0000 1.47
+++ owl.c 31 Jul 2003 15:31:34 -0000
@@ -420,7 +420,7 @@
/* if it matches the alert filter, do the alert action */
f=owl_global_get_filter(&g, owl_global_get_alert_filter(&g));
if (f && owl_filter_message_match(f, m)) {
- owl_function_command(owl_global_get_alert_action(&g));
+ owl_perlconfig_call_with_message(owl_global_get_alert_action(&g), m);
}
/* check for burning ears message */
--
Jer
------------------------------------------------------------------
Tulgey Wood - tulgeywood@attbi.com Cell Phone: 617-429-8573 /
4 Farragut Ave (617-629-3983) jdaniel-phone@mit.edu
Somerville, MA 02144-1709 AIM: jdanielmit
Zephyr athena users over the web: http://webzephyr.mit.edu/
