eleksir/hexchat-scripts
1
Fork 0
Code Activity

properly escape notify text body, now all messages should be shown

Browse Source
This commit is contained in:
eleksir
2016-10-30 22:36:13 +03:00
parent 5a9f9bdcd5
commit 223603393b
1 changed files with 20 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
notifications.pl
View File

@@ -14,6 +14,7 @@ sub hookfn;
sub freehooks; sub freehooks;
sub timeraction; sub timeraction;
sub notify_cmd; sub notify_cmd;
sub encodestr;
my $script_name = "Notification plugin"; my $script_name = "Notification plugin";
my $help = 'Usage: my $help = 'Usage:
@@ -25,7 +26,7 @@ my $help = 'Usage:
/notify show - shows whitelists and their statuses /notify show - shows whitelists and their statuses
'; ';
register($script_name, '0.8.5', 'Sends *nix desktop notifications', \&freehooks); register($script_name, '0.9', 'Sends *nix desktop notifications', \&freehooks);
HexChat::print("$script_name loaded\n"); HexChat::print("$script_name loaded\n");
my @hooks; my @hooks;
@@ -120,7 +121,12 @@ sub hookfn {
sub notify(@) { sub notify(@) {
my($channel, $nick, $text) = @_; my($channel, $nick, $text) = @_;
# notify-send|notification daemons are use limited html formatting for message body, so we have
# either use only topic without body or encode message body, which is a bit resource hungry
HexChat::strip_code($text); HexChat::strip_code($text);
HexChat::strip_code($nick);
$text = encodestr($text);
$nick = encodestr($nick);
my $topic = sprintf("%s at %s says:\n", $nick, $channel); my $topic = sprintf("%s at %s says:\n", $nick, $channel);
system("notify-send", "-u", "normal", "-t", "12000", "-a", "hexchat", $topic, "-i", "hexchat", $text); system("notify-send", "-u", "normal", "-t", "12000", "-a", "hexchat", $topic, "-i", "hexchat", $text);
undef $channel, undef $nick, undef $text; undef $topic; undef $channel, undef $nick, undef $text; undef $topic;
@@ -371,3 +377,16 @@ sub freehooks {
return HexChat::EAT_ALL; return HexChat::EAT_ALL;
} }
sub encodestr {
my $str = shift;
$str = join('', map {
if ($_ eq '<') { $_ = '&lt;'; }
elsif ($_ eq '>') { $_ = '&gt;'; }
elsif ($_ eq '&') { $_ = '&amp;'; }
elsif ($_ eq '"') { $_ = '&quot;'}
else { $_ = $_; }
} split(//, $str));
return $str;
}