From 714f1c4f3878f8e7aba686f078eb08de91667713 Mon Sep 17 00:00:00 2001
From: etienne
Date: Tue, 23 Mar 2004 12:57:08 +0000
Subject: Bug fix in bindings : when a message matches a regular expression
 containing several bracketing constructs, only the string corresponding to
 the first bracketing construct is displayed.

---
 src/ivymon | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/ivymon b/src/ivymon
index 1c72a93..a12fcbe 100755
--- a/src/ivymon
+++ b/src/ivymon
@@ -797,12 +797,18 @@ sub addIvyBinding {
     my $binding = shift;
     #print "in addIvyBinding $binding\n";
     $ivy->bindRegexp($binding, [sub {
+	my $sender = shift;
+	my $message;
+	for (my $i = 0; $i < @_; $i++) {
+	    $_[$i] = '"'.$_[$i].'"';
+	}
+	$message = join(' ', @_);
 	$messagesNumber++;
 	if ($stopFlag) {
-	    &bufferizeMessages(@_);
+	    &bufferizeMessages($sender, $message);
 	} else {
 	    &beforeUpdatingMessages;
-	    &updateMessages(@_);
+	    &updateMessages($sender, $message);
 	    &afterUpdatingMessages;
 	}
     }]);
@@ -1106,7 +1112,6 @@ sub beforeUpdatingMessages {
 sub updateMessages {
     my ($sender, $message) = @_;
     chomp($message);
-    $message = '"' . $message . '"' ;
     # If scrolling is available, format and then display message.
     # Unless file has been loaded, look at history : compare widget text lines
     # number with history size
-- 
cgit v1.1