# # Copyright (c) 2016 Mitescu George Dan # Copyright (c) 2016 Berechet Mihai # # 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 . # 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", "");