summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKevin Siml2017-03-31 15:04:57 +0200
committerGitHub2017-03-31 15:04:57 +0200
commit8c259612ef8733c6607d0436d9cbf3ce2e82ccc4 (patch)
treef90a3b36c1bb2ec72300ce55aef9c8a2c941a5ae
parentfe1baabb797e73dc0428e05ba8526d90d1a6beec (diff)
downloadscripts.irssi.org-8c259612ef8733c6607d0436d9cbf3ce2e82ccc4.tar.bz2
Update pushsafer.pl
-rw-r--r--scripts/pushsafer.pl32
1 files changed, 13 insertions, 19 deletions
diff --git a/scripts/pushsafer.pl b/scripts/pushsafer.pl
index cd51c1c..0232e35 100644
--- a/scripts/pushsafer.pl
+++ b/scripts/pushsafer.pl
@@ -9,12 +9,13 @@ use Scalar::Util qw(looks_like_number);
$VERSION = '0.0.1';
%IRSSI = (
- authors => 'Pushsafer.com Kevin Siml',
+ authors => 'Kevin Siml',
contact => 'kevinsiml@googlemail.com',
name => 'pushsafer',
description => 'Push hilights and private messages when away by the pushsafer.com API',
license => 'BSD',
- url => 'https://www.pushsafer.com'
+ url => 'https://www.pushsafer.com',
+ changed => "2017-03-31"
);
my $pushsafer_ignorefile;
@@ -99,7 +100,7 @@ sub msg_pub {
if ($data =~ /$safeNick/i) {
debug('Got pub msg.');
- send_push($target, $nick.': '.strip_formating($data));
+ send_push($target, $nick.': '.Irssi::strip_codes($data));
}
}
@@ -130,7 +131,7 @@ sub msg_pri {
return;
}
debug('Got priv msg.');
- send_push('Priv, '.$nick, strip_formating($data));
+ send_push('Priv, '.$nick, Irssi::strip_codes($data));
}
sub msg_kick {
@@ -142,7 +143,7 @@ sub msg_kick {
if ($nick eq $server->{nick}) {
debug('Was kicked.');
- send_push('Kicked: '.$channel, 'Was kicked by: '.$kicker.'. Reason: '.strip_formating($reason));
+ send_push('Kicked: '.$channel, 'Was kicked by: '.$kicker.'. Reason: '.Irssi::strip_codes($reason));
}
}
@@ -152,19 +153,10 @@ sub msg_test {
my $orig_debug = Irssi::settings_get_bool('pushsafer_debug');
Irssi::settings_set_bool('pushsafer_debug', 1);
debug("Sending test message :" . $data);
- send_push("Test Message", strip_formating($data));
+ send_push("Test Message", Irssi::strip_codes($data));
Irssi::settings_set_bool('pushsafer_debug', $orig_debug);
}
-sub strip_formating {
- my ($msg) = @_;
- $msg =~ s/\x03[0-9]{0,2}(,[0-9]{1,2})?//g;
- $msg =~ s/[^\x20-\xFF]//g;
- $msg =~ s/\xa0/ /g;
- return $msg;
-}
-
-
# check our away status & pushsafer_only_if_away. returns 0 if it's ok to send a message.
sub check_away {
my ($server) = @_;
@@ -265,9 +257,11 @@ sub write_file {
sub read_file {
read_settings();
my $fp;
- if (!open($fp, "<", $pushsafer_ignorefile)) {
- Irssi::print("Error opening ignore file", MSGLEVEL_CLIENTCRAP);
- return;
+ if (-e $pushsafer_ignorefile)
+ if (!open($fp, "<", $pushsafer_ignorefile)) {
+ Irssi::print("Error opening ignore file", MSGLEVEL_CLIENTCRAP);
+ return;
+ }
}
my @out;
@@ -315,4 +309,4 @@ Irssi::signal_add_last('message kick', 'msg_kick');
Irssi::print('%Y>>%n '.$IRSSI{name}.' '.$VERSION.' loaded.');
if (!Irssi::settings_get_str('pushsafer_key')) {
Irssi::print('%Y>>%n '.$IRSSI{name}.' Pushsafer.com private or alias key is not set, set it with /set pushsafer_key YourPrivateOrAliasKey');
-} \ No newline at end of file
+}