diff options
| author | Sebastien Helleu <flashcode@flashtux.org> | 2007-08-27 09:41:39 +0000 |
|---|---|---|
| committer | Sebastien Helleu <flashcode@flashtux.org> | 2007-08-27 09:41:39 +0000 |
| commit | ca814fdb3fbfa1b4a5f43994b940707b9a14a445 (patch) | |
| tree | 7e8d15065ec5abcb6d749b8a13ff9196144d18bc | |
| parent | 54b74ed1e14533be6426da2be8532a326490f190 (diff) | |
| download | weechat-ca814fdb3fbfa1b4a5f43994b940707b9a14a445.zip | |
Updated growl-notify.pl script
| -rw-r--r-- | scripts/perl/growl-notify.pl | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/scripts/perl/growl-notify.pl b/scripts/perl/growl-notify.pl index eb28aa140..ce429d6fc 100644 --- a/scripts/perl/growl-notify.pl +++ b/scripts/perl/growl-notify.pl @@ -25,23 +25,24 @@ use Mac::Growl; my $app = 'Weechat (Curses)'; my @messages_events = ( - [ nick => 'Changed Nick' => '$nick has changed nick to $text' ], - [ join => 'Joined Room' => '$nick has joined $text' ], - [ part => 'Left Room' => '$nick has left $channel($text)' ], - [ quit => 'Quit' => '$nick has quit($text)' ], - [ topic => 'Set Topic' => '$nick has set topic to \'$text\'' ], - [ weechat_highlight => 'Highlight Mentioned' => '$text in $channel' ], - [ weechat_pv => 'Private Message' => '$nick: $text' ], + [ nick => 'Changed Nick', '$nick has changed nick to $text' ], + [ join => 'Joined Room', '$nick has joined $text' ], + [ part => 'Left Room', '$nick has left $channel($text)' ], + [ quit => 'Quit', '$nick has quit($text)' ], + [ topic => 'Set Topic', '$nick has set topic to \'$text\'' ], + [ weechat_highlight => 'Highlight Mentioned', '$text in $channel' ], + [ weechat_pv => 'Private Message', '$nick: $text' ], ); my $notes; push @$notes, $_->[1] foreach @messages_events; Mac::Growl::RegisterNotifications $app, $notes, $notes; -weechat::register 'growl-notify', '0.1', '', +my $version = '0.2'; +weechat::register 'growl-notify', $version, '', 'Send Weechat notifications thru Mac::Growl'; -for my $message(@messages_events){ +for my $message (@messages_events) { no strict 'refs'; # access symbol table my $subname = join '', __PACKAGE__, '::handler_', $message->[0]; *{$subname} = sub @@ -53,7 +54,8 @@ for my $message(@messages_events){ ($mask, undef, $channel) = split / /, $channel; ($nick, undef) = split /!/, $mask; Mac::Growl::PostNotification $app, $message->[1], - $message->[1], eval qq("$message->[2]"); + $message->[1], eval qq("$message->[2]"), + ($message->[0] =~ /(pv|highlight)/ ? 1 : 0); return weechat::PLUGIN_RC_OK; }; weechat::add_message_handler $message->[0], $subname; |