/usr/share/weechat/perl/notifym.pl is in weechat-scripts 20180330-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 | #
# Copyright (c) 2016 Mitescu George Dan <mitescugeorgedan@gmail.com>
# Copyright (c) 2016 Berechet Mihai <mihaibereket9954@gmail.com>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
#
my $SCRIPT_NAME = "notifym";
my $VERSION = "1.1";
# use Data::Dumper;
weechat::register($SCRIPT_NAME, "dmitescu", $VERSION, "GPL3",
"Script which uses libnotify to alert the user about certain events.",
"", "");
my %options_def = ( 'notify_pv' => ['on',
'Notify on private message.'],
'notify_mentions' => ['on',
'Notify on mention in all channel.'],
'notify_channels' => ['off',
'Notify all messages from whitelisted channels.'],
'notify_servers' => ['off',
'Notify all messages from whitelisted servers.'],
'channel_whitelist' => ['.*',
'Channel white-list. (perl regex required)'],
'server_whitelist' => ['.*',
'Server white-list. (perl regex required)']
);
my %options = ();
# Initiates options if non-existent and loads them
sub init {
foreach my $opt (keys %options_def) {
if (!weechat::config_is_set_plugin($opt)) {
weechat::config_set_plugin($opt, $options_def{$opt}[0]);
}
$options{$opt} = weechat::config_get_plugin($opt);
weechat::config_set_desc_plugin($opt, $options_def{$opt}[1]
. " (default: \"" . $options_def{$opt}[0]
. "\")");
}
}
# On update option, load it into the hash
sub update_config_handler {
my ($data, $option, $value) = @_;
$name = substr($option,
length("plugins.var.perl.".$SCRIPT_NAME."."),
length($option));
$options{$name} = $value;
# weechat::print("", $name . " is now " . $value . "!");
return weechat::WEECHAT_RC_OK;
}
# Function to send notification
sub send_notification {
my ($urgency, $summary, $body) = @_;
my $retval = system("notify-send -u $urgency \"$summary\" \"$body\"");
}
# Verify matching options
sub opt_match {
my ($str, $option) = @_;
return $str =~ /$options{$option}/;
}
# Handlers for signals :
# Private message
sub message_handler {
my ($data, $signal, $signal_data) = @_;
# my @pta = split(":", $signal_data);
# weechat::print("", Dumper(\%options));
my ($server, $command) = $signal =~ /(.*),irc_in_(.*)/;
if ($command eq 'PRIVMSG') {
my $hash_in = {"message" => $signal_data};
my $hash_data = weechat::info_get_hashtable("irc_message_parse", $hash_in);
my $nick = $hash_data->{"nick"};
my $text = $hash_data->{"text"};
my $chan = $hash_data->{"channel"};
if (($options{'notify_servers'} eq 'on') &&
opt_match($server, 'server_whitelist')) {
# Server match
send_notification("normal", "$nick:", "$text");
} elsif (($options{'notify_channels'} eq 'on') &&
opt_match($chan, 'channel_whitelist')){
# Channel match
send_notification("normal", "$nick:", "$text");
} elsif ($options{'notify_pv'} eq 'on') {
# Private message match
my $mynick = weechat::info_get("irc_nick", $server);
if ($chan eq $mynick) {
send_notification("critical", "$nick says:", "$text");
}
} else {
}
# Mention match
my $mynick = weechat::info_get("irc_nick", $server);
if (index($text, $mynick) != -1) {
send_notification("critical", "$nick mentioned you!", "");
}
# weechat::print("", Dumper($hash_data));
}
return weechat::WEECHAT_RC_OK;
}
# Main execution point
init();
send_notification("critical", "Starting NotifyM plugin!", "");
weechat::hook_config("plugins.var.perl." . $SCRIPT_NAME . ".*",
"update_config_handler", "");
weechat::hook_signal("*,irc_in_*", "message_handler", "");
|