Mercurial > dotfiles

annotate weechat/perl/pushover.pl @ 259:726728f13152

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More Weechat plugins and config.
author Ludovic Chabant <ludovic@chabant.com>
date Wed, 21 Jan 2015 16:45:26 -0800
parents
children 0a7142b8ab95
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
259
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
1 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
2 # Copyright (C) 2013-2014 stfn <stfnmd@gmail.com>
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
3 # https://github.com/stfnm/weechat-scripts
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
4 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
5 # This program is free software: you can redistribute it and/or modify
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
6 # it under the terms of the GNU General Public License as published by
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
7 # the Free Software Foundation, either version 3 of the License, or
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
8 # (at your option) any later version.
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
9 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
10 # This program is distributed in the hope that it will be useful,
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
13 # GNU General Public License for more details.
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
14 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
15 # You should have received a copy of the GNU General Public License
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
16 # along with this program. If not, see <http://www.gnu.org/licenses/>.
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
17 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
18
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
19 use strict;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
20 use warnings;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
21
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
22 my %SCRIPT = (
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
23 name => 'pushover',
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
24 author => 'stfn <stfnmd@gmail.com>',
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
25 version => '1.2',
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
26 license => 'GPL3',
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
27 desc => 'Send push notifications to your mobile devices using Pushover, NMA or Pushbullet',
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
28 opt => 'plugins.var.perl',
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
29 );
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
30 my %OPTIONS_DEFAULT = (
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
31 'enabled' => ['on', "Turn script on or off"],
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
32 'service' => ['pushover', 'Notification service to use. Multiple services may be supplied as comma separated list. (supported services: pushover, nma, pushbullet)'],
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
33 'token' => ['ajEX9RWhxs6NgeXFJxSK2jmpY54C9S', 'pushover API token/key (You may feel free to use your own token, so you get your own monthly quota of messages without being affected by other users. See also: https://pushover.net/faq#overview-distribution )'],
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
34 'user' => ['', "pushover user key"],
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
35 'nma_apikey' => ['', "nma API key"],
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
36 'pb_apikey' => ['', "Pushbullet API key"],
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
37 'pb_device_iden' => ['', "Device Iden of pushbullet device"],
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
38 'sound' => ['', "Sound (empty for default)"],
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
39 'priority' => ['', "priority (empty for default)"],
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
40 'show_highlights' => ['on', 'Notify on highlights'],
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
41 'show_priv_msg' => ['on', 'Notify on private messages'],
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
42 'redact_priv_msg' => ['off', 'When receiving private message notifications, hide the actual message text'],
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
43 'only_if_away' => ['off', 'Notify only if away status is active'],
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
44 'only_if_inactive' => ['off', 'Notify only if buffer is not the active (current) buffer'],
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
45 'blacklist' => ['', 'Comma separated list of buffers (full name) to blacklist for notifications (wildcard "*" is allowed, name beginning with "!" is excluded)'],
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
46 'verbose' => ['1', 'Verbosity level (0 = silently ignore any errors, 1 = display brief error, 2 = display full server response)'],
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
47 );
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
48 my %OPTIONS = ();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
49 my $TIMEOUT = 30 * 1000;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
50
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
51 my $DEBUG = 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
52
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
53 # Register script and initialize config
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
54 weechat::register($SCRIPT{"name"}, $SCRIPT{"author"}, $SCRIPT{"version"}, $SCRIPT{"license"}, $SCRIPT{"desc"}, "", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
55 init_config();
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
56
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
57 # Setup hooks
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
58 weechat::hook_print("", "notify_message,notify_private,notify_highlight", "", 1, "print_cb", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
59 weechat::hook_command($SCRIPT{"name"}, "send custom push notification",
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
60 "<text>",
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
61 "text: notification text to send",
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
62 "", "pushover_cb", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
63
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
64 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
65 # Handle config stuff
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
66 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
67 sub init_config
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
68 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
69 weechat::hook_config("$SCRIPT{'opt'}.$SCRIPT{'name'}.*", "config_cb", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
70 my $version = weechat::info_get("version_number", "") || 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
71 foreach my $option (keys %OPTIONS_DEFAULT) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
72 if (!weechat::config_is_set_plugin($option)) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
73 weechat::config_set_plugin($option, $OPTIONS_DEFAULT{$option}[0]);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
74 $OPTIONS{$option} = $OPTIONS_DEFAULT{$option}[0];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
75 } else {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
76 $OPTIONS{$option} = weechat::config_get_plugin($option);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
77 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
78 if ($version >= 0x00030500) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
79 weechat::config_set_desc_plugin($option, $OPTIONS_DEFAULT{$option}[1]." (default: \"".$OPTIONS_DEFAULT{$option}[0]."\")");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
80 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
81 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
82 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
83 sub config_cb
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
84 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
85 my ($pointer, $name, $value) = @_;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
86 $name = substr($name, length("$SCRIPT{opt}.$SCRIPT{name}."), length($name));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
87 $OPTIONS{$name} = $value;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
88 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
89 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
90
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
91 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
92 # Case insensitive search for element in comma separated list
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
93 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
94 sub grep_list($$)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
95 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
96 my ($str, $list) = @_;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
97 my @array = split(/,/, $list);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
98 return grep(/^\Q$str\E$/i, @array) ? 1 : 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
99 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
100
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
101 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
102 # URL escape (percent encoding)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
103 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
104 sub url_escape($)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
105 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
106 my $toencode = $_[0];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
107 return undef unless (defined($toencode));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
108 utf8::encode($toencode) if (utf8::is_utf8($toencode));
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
109 $toencode =~ s/([^a-zA-Z0-9_.~-])/uc sprintf("%%%02x",ord($1))/eg;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
110 return $toencode;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
111 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
112
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
113 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
114 # Catch printed messages
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
115 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
116 sub print_cb
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
117 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
118 my ($data, $buffer, $date, $tags, $displayed, $highlight, $prefix, $message) = @_;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
119
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
120 my $buffer_type = weechat::buffer_get_string($buffer, "localvar_type");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
121 my $buffer_full_name = weechat::buffer_get_string($buffer, "full_name");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
122 my $away_msg = weechat::buffer_get_string($buffer, "localvar_away");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
123 my $away = ($away_msg && length($away_msg) > 0) ? 1 : 0;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
124
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
125 if ($OPTIONS{enabled} ne "on" ||
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
126 $displayed == 0 ||
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
127 ($OPTIONS{only_if_away} eq "on" && $away == 0) ||
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
128 ($OPTIONS{only_if_inactive} eq "on" && $buffer eq weechat::current_buffer()) ||
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
129 weechat::buffer_match_list($buffer, $OPTIONS{blacklist})) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
130 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
131 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
132
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
133 my $msg = "[$buffer_full_name] <$prefix> ";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
134
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
135 if ($buffer_type eq "private" && $OPTIONS{redact_priv_msg} eq "on") {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
136 $msg .= "...";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
137 } else {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
138 $msg .= "$message";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
139 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
140
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
141 # Notify!
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
142 if ($OPTIONS{show_highlights} eq "on" && $highlight == 1) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
143 # Message with highlight
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
144 notify($msg);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
145 } elsif ($OPTIONS{show_priv_msg} eq "on" && $buffer_type eq "private") {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
146 # Private message
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
147 notify($msg);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
148 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
149
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
150 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
151 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
152
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
153 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
154 # /pushover
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
155 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
156 sub pushover_cb
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
157 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
158 my ($data, $buffer, $args) = @_;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
159
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
160 if (length($args) > 0) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
161 notify($args);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
162 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
163
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
164 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
165 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
166
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
167 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
168 # Catch API responses
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
169 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
170 sub url_cb
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
171 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
172 my ($data, $command, $return_code, $out, $err) = @_;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
173 my $msg = "[$SCRIPT{name}] Error: ";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
174
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
175 # Check verbosity level
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
176 if ($OPTIONS{verbose} == 0) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
177 return weechat::WEECHAT_RC_OK; # Don't display anything
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
178 } elsif ($OPTIONS{verbose} == 1) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
179 $msg .= "API call failed. (Most likely the service is having trouble.)";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
180
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
181 } elsif ($OPTIONS{verbose} == 2) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
182 $msg .= "@_";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
183 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
184
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
185 # Check server response and display error message if NOT successful
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
186 if ($command =~ /pushover/ && $return_code == 0 && !($out =~ /\"status\":1/)) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
187 weechat::print("", $msg);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
188 } elsif ($command =~ /notifymyandroid/ && $return_code == 0 && !($out =~ /success code=\"200\"/)) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
189 weechat::print("", $msg);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
190 } elsif ($command =~ /pushbullet/ && $return_code == 0 && !($out =~ /\"iden\"/)) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
191 weechat::print("", $msg);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
192 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
193
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
194 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
195 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
196
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
197 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
198 # Notify wrapper (decides which service to use)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
199 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
200 sub notify($)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
201 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
202 my $message = $_[0];
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
203
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
204 # Notify services
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
205 if (grep_list("pushover", $OPTIONS{service})) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
206 notify_pushover($OPTIONS{token}, $OPTIONS{user}, $message, "weechat", $OPTIONS{priority}, $OPTIONS{sound});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
207 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
208 if (grep_list("nma", $OPTIONS{service})) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
209 notify_nma($OPTIONS{nma_apikey}, "weechat", "$SCRIPT{name}.pl", $message, $OPTIONS{priority});
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
210 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
211 if (grep_list("pushbullet", $OPTIONS{service})) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
212 notify_pushbullet($OPTIONS{pb_apikey}, $OPTIONS{pb_device_iden}, "weechat", $message);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
213 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
214 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
215
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
216 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
217 # https://pushover.net/api
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
218 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
219 sub notify_pushover($$$$$$)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
220 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
221 my ($token, $user, $message, $title, $priority, $sound) = @_;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
222
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
223 # Required API arguments
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
224 my @post = (
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
225 "token=" . url_escape($token),
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
226 "user=" . url_escape($user),
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
227 "message=" . url_escape($message),
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
228 );
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
229
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
230 # Optional API arguments
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
231 push(@post, "title=" . url_escape($title)) if ($title && length($title) > 0);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
232 push(@post, "priority=" . url_escape($priority)) if ($priority && length($priority) > 0);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
233 push(@post, "sound=" . url_escape($sound)) if ($sound && length($sound) > 0);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
234
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
235 # Send HTTP POST
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
236 my $hash = { "post" => 1, "postfields" => join(";", @post) };
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
237 if ($DEBUG) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
238 weechat::print("", "[$SCRIPT{name}] Debug: msg -> `$message' HTTP POST -> @post");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
239 } else {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
240 weechat::hook_process_hashtable("url:https://api.pushover.net/1/messages.json", $hash, $TIMEOUT, "url_cb", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
241 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
242
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
243 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
244 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
245
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
246 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
247 # https://www.notifymyandroid.com/api.jsp
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
248 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
249 sub notify_nma($$$$$)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
250 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
251 my ($apikey, $application, $event, $description, $priority) = @_;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
252
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
253 # Required API arguments
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
254 my @post = (
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
255 "apikey=" . url_escape($apikey),
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
256 "application=" . url_escape($application),
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
257 "event=" . url_escape($event),
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
258 "description=" . url_escape($description),
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
259 );
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
260
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
261 # Optional API arguments
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
262 push(@post, "priority=" . url_escape($priority)) if ($priority && length($priority) > 0);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
263
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
264 # Send HTTP POST
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
265 my $hash = { "post" => 1, "postfields" => join("&", @post) };
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
266 if ($DEBUG) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
267 weechat::print("", "[$SCRIPT{name}] Debug: msg -> `$description' HTTP POST -> @post");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
268 } else {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
269 weechat::hook_process_hashtable("url:https://www.notifymyandroid.com/publicapi/notify", $hash, $TIMEOUT, "url_cb", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
270 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
271
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
272 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
273 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
274
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
275 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
276 # https://docs.pushbullet.com/v2/pushes/
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
277 #
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
278 sub notify_pushbullet($$$$)
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
279 {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
280 my ($apikey, $device_iden, $title, $body) = @_;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
281
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
282 # Required API arguments
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
283 my $apiurl = "https://$apikey\@api.pushbullet.com/v2/pushes";
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
284 my @post = (
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
285 "type=note",
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
286 );
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
287
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
288 # Optional API arguments
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
289 push(@post, "device_iden=" . url_escape($device_iden)) if ($device_iden && length($device_iden) > 0);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
290 push(@post, "title=" . url_escape($title)) if ($title && length($title) > 0);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
291 push(@post, "body=" . url_escape($body)) if ($body && length($body) > 0);
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
292
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
293 # Send HTTP POST
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
294 my $hash = { "post" => 1, "postfields" => join("&", @post) };
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
295 if ($DEBUG) {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
296 weechat::print("", "$apiurl [$SCRIPT{name}] Debug: msg -> `$body' HTTP POST -> @post");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
297 } else {
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
298 weechat::hook_process_hashtable("url:$apiurl", $hash, $TIMEOUT, "url_cb", "");
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
299 }
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
300
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
301 return weechat::WEECHAT_RC_OK;
726728f13152 More Weechat plugins and config.
Ludovic Chabant <ludovic@chabant.com>
parents:
diff changeset
302 }