eleksir/hexchat-scripts
1
Fork 0
Code Activity

img_url_myapi.pl: fix wide char warning, refactor a bit

Browse Source
This commit is contained in:
eleksir
2021-02-03 01:19:10 +03:00
parent 76ee79efb5
commit efb25b3403
1 changed files with 156 additions and 135 deletions
Download Patch File Download Diff File Expand all files Collapse all files

299
web_link_saver/img_url_myapi.pl
View File

@@ -1,24 +1,30 @@
use HexChat qw(:all); use 5.018;
use strict; use strict;
use warnings "all"; use warnings;
use HTTP::Tiny;
use utf8; use utf8;
use open qw (:std :utf8);
binmode STDOUT, ':utf8'; use HTTP::Tiny;
binmode STDERR, ':utf8'; use HexChat qw (:all);
sub hookfn; sub hookfn;
sub loadliststatus($); sub listenabled ($);
sub loadlist($); sub loadlist ($);
sub savelist(@); sub savelist (@);
sub savesetting(@); sub savesetting (@);
sub freehooks; sub freehooks;
my $script_name = "img_url_myapi.pl"; my $script_name = "img_url_myapi.pl";
HexChat::register($script_name, '0.1', 'Automatically stores URLs to myapi', \&freehooks); my $script_version = '0.2';
my $script_description = 'Automatically stores URLs to myapi';
HexChat::print("$script_name loaded\n"); register (
$script_name,
$script_version,
$script_description,
\&freehooks
);
print "$script_name loaded\n";
my $help = 'Usage: my $help = 'Usage:
/dl enable nick|domain <name> - enable nick or domain blacklist /dl enable nick|domain <name> - enable nick or domain blacklist
/dl disable nick|domain <name> - disable nick or domain blacklist /dl disable nick|domain <name> - disable nick or domain blacklist
@@ -28,208 +34,214 @@ my $help = 'Usage:
/dl info - same as above /dl info - same as above
'; ';
my @hooks; my @hooks;
push @hooks, HexChat::hook_print('Channel Message', \&hookfn); push @hooks, hook_print ('Channel Message', \&hookfn);
push @hooks, HexChat::hook_print('Channel Msg Hilight', \&hookfn); push @hooks, hook_print ('Channel Msg Hilight', \&hookfn);
push @hooks, HexChat::hook_print('Channel Action', \&hookfn); push @hooks, hook_print ('Channel Action', \&hookfn);
push @hooks, HexChat::hook_print('Channel Action Hilight', \&hookfn); push @hooks, hook_print ('Channel Action Hilight', \&hookfn);
push @hooks, HexChat::hook_command('dl', \&dl_cmd); push @hooks, hook_command ('dl', \&dl_cmd);
sub hookfn { sub hookfn {
my ($nick, $text, $modechar) = @{$_[0]}; my ($nick, $text, $modechar) = @{$_[0]};
my $nicklist = loadliststatus('dl_nicklist');
if ($nicklist != 0) { if (listenabled 'dl_nicklist') {
my @nicklist = loadlist('dl_nicks'); my @nicklist = loadlist 'dl_nicks';
foreach (@nicklist) { foreach my $nickname (@nicklist) {
next unless(defined($_)); next unless (defined $nickname);
next if($_ eq ''); next if (($nickname eq '') || ($nickname ne $nick));
if ($_ eq $nick) { $nick = ''; undef $nick;
undef $nick; undef $text; undef $modechar; $text = ''; undef $text;
undef $nicklist; $modechar = ''; undef $modechar;
@nicklist = -1; undef @nicklist; $#nicklist = -1; undef @nicklist;
return HexChat::EAT_NONE; return EAT_NONE;
}
} }
@nicklist = -1; undef @nicklist; $#nicklist = -1; undef @nicklist;
} }
undef $nicklist; my @words = split /\s+/, $text;
my @words = split(/\s+/, $text); foreach my $str (@words) {
next unless (substr ($str, 0, 4) eq 'http');
foreach (@words) {
my $str = $_;
next unless(substr($str, 0, 4) eq 'http');
# disregard idn, until it cause real troubles :) # disregard idn, until it cause real troubles :)
if ($str =~ m{https?://([a-zA-Z0-9\.\-_]+\.[a-zA-Z]+)/(?:.*)}) { if ($str =~ m{https?://([a-zA-Z0-9\.\-_]+\.[a-zA-Z]+)/(?:.*)}) {
my $domain = $1; my $domain = $1;
my $domainlist = loadliststatus('dl_domainlist');
if ($domainlist != 0) { if (listenabled 'dl_domainlist') {
my @domainlist = loadlist('dl_domains'); my @domainlist = loadlist 'dl_domains';
foreach (@domainlist) { foreach my $dom (@domainlist) {
next unless(defined($_)); next unless (defined $dom);
next if($_ eq ''); next if (($dom eq '') || ($dom ne $domain));
if ($_ eq $domain) { $nick = ''; undef $nick;
undef $nick; undef $text; undef $modechar; $text = ''; undef $text;
@words = -1; undef @words; $modechar = ''; undef $modechar;
undef $str; undef $domain; $#words = -1; undef @words;
undef $domainlist; $str = ''; undef $str;
@domainlist = -1; undef @domainlist; $domain = ''; undef $domain;
return HexChat::EAT_NONE; $#domainlist = -1; undef @domainlist;
return EAT_NONE;
}
$#domainlist = -1, undef @domainlist;
}
my $http2 = HTTP::Tiny->new (default_headers => { 'url' => $str });
$http2->get ('http://localhost/api/image_dl');
$http2 = ''; undef $http2;
} }
} }
@domainlist = -1, undef @domainlist; $#words = -1; undef @words;
} $nick = ''; undef $nick;
$text = ''; undef $text;
$modechar = ''; undef $modechar;
undef $domainlist; return EAT_NONE;
my $http2 = HTTP::Tiny->new(default_headers => { 'url' => $str });
$http2->get('http://localhost/api/image_dl');
$http2 = undef; undef $http2;
}
}
@words = -1; undef @words;
undef $nick; undef $text; undef $modechar;
return HexChat::EAT_NONE;
} }
sub loadliststatus($) { sub listenabled ($) {
my $listtype = shift; my $listtype = shift;
my $list = HexChat::plugin_pref_get($listtype); my $list = plugin_pref_get $listtype;
unless (defined($list)) { unless (defined $list) {
savesetting('list', '0'); savesetting ('list', '0');
$list = 0; $list = 0;
} }
undef $listtype; $listtype = ''; undef $listtype;
return $list; return $list;
} }
sub loadlist($) { sub loadlist ($) {
my $setting = shift; my $setting = shift;
my $val = HexChat::plugin_pref_get($setting); my $value = plugin_pref_get $setting;
unless (defined($val)) { unless (defined $value) {
savesetting($setting, encode_base64('', '')); savesetting $setting, encode_base64('', '');
$val = ''; $value = '';
} }
my @values = map { decode_base64($_); } split(/ /, $val); my @values = map { decode_base64 ($_); } split (/ /, $value);
undef $setting; undef $val; $setting = ''; undef $setting;
$value =''; undef $value;
return @values; return @values;
} }
sub savelist(@) { sub savelist (@) {
my $setting = shift; my $setting = shift;
my @list = map { encode_base64($_, ''); } @_; my @list = map { encode_base64($_, ''); } @_;
my $value = join(' ', @list); my $value = join (' ', @list);
@list = -1; undef @list; $#list = -1; undef @list;
return savesetting($setting, $value); my $res = savesetting ($setting, $value);
$setting = ''; undef $setting;
$value =''; undef $value;
return $res;
} }
sub savesetting(@) { sub savesetting (@) {
my $setting = shift; my $setting = shift;
my $value = shift; my $value = shift;
if (HexChat::plugin_pref_set($setting, $value) == 0) { unless (plugin_pref_set ($setting, $value)) {
HexChat::printf("Unable to save settings for %s\n", $script_name); printf "Unable to save settings for %s\n", $script_name;
undef $setting; undef $value; $setting = ''; undef $setting;
return undef; $value = ''; undef $value;
return 0;
} }
undef $setting; $setting = ''; undef $setting;
$value = ''; undef $value;
return 1; return 1;
} }
sub dl_cmd { sub dl_cmd {
shift(@{$_[0]}); shift (@{$_[0]});
my $cmd = shift(@{$_[0]}); my $cmd = shift (@{$_[0]});
my $entity = shift(@{$_[0]}); my $entity = shift (@{$_[0]});
my $value = join(' ', @{$_[0]}); my $value = join (' ', @{$_[0]});
HexChat::print("\n"); print "\n";
my $msg = undef; my $msg = undef;
if (defined($cmd)) { if (defined $cmd) {
if ($cmd eq 'enable') { if ($cmd eq 'enable') {
if($entity eq 'nick') { if($entity eq 'nick') {
if (defined(savesetting('dl_nicklist', '1'))) { if (savesetting ('dl_nicklist', '1')) {
$msg = "Nicks blacklist now enabled\n"; $msg = "Nicks blacklist now enabled\n";
} }
} elsif ($entity eq 'domain') { } elsif ($entity eq 'domain') {
if (defined(savesetting('dl_domainlist', '1'))) { if (savesetting ('dl_domainlist', '1')) {
$msg = "Domains blacklist now enabled\n"; $msg = "Domains blacklist now enabled\n";
} }
} }
} elsif ($cmd eq 'disable') { } elsif ($cmd eq 'disable') {
if($entity eq 'nick') { if($entity eq 'nick') {
if (defined(savesetting('dl_nicklist', '0'))) { if (savesetting ('dl_nicklist', '0')) {
$msg = "Nicks blacklist now disabled\n"; $msg = "Nicks blacklist now disabled\n";
} }
} elsif ($entity eq 'domain') { } elsif ($entity eq 'domain') {
if (defined(savesetting('dl_domainlist', '0'))) { if (savesetting ('dl_domainlist', '0')) {
$msg = "Domains blacklist now disabled\n"; $msg = "Domains blacklist now disabled\n";
} }
} }
} elsif (($cmd eq 'show') or ($cmd eq 'info')) { } elsif (($cmd eq 'show') or ($cmd eq 'info')) {
$msg = ''; $msg = '';
if (loadliststatus('dl_nicklist') == 0) { unless (listenabled 'dl_nicklist') {
$msg .= "Nicks blacklist: disabled\n"; $msg .= "Nicks blacklist: disabled\n";
} else { } else {
$msg .= "Nicks blacklist: enabled\n"; $msg .= "Nicks blacklist: enabled\n";
} }
$msg .= "Blacklisted nicks = " . join( ', ', loadlist('dl_nicks')) ."\n"; $msg .= "Blacklisted nicks = " . join ( ', ', loadlist ('dl_nicks')) ."\n";
if (loadliststatus('dl_domainlist') == 0) { unless (listenabled 'dl_domainlist') {
$msg .= "Domains blacklist: disabled\n"; $msg .= "Domains blacklist: disabled\n";
} else { } else {
$msg .= "Domains blacklist: enabled\n"; $msg .= "Domains blacklist: enabled\n";
} }
$msg .= "Blacklisted domains = " . join( ', ', loadlist('dl_domains')) . "\n"; $msg .= "Blacklisted domains = " . join ( ', ', loadlist ('dl_domains')) . "\n";
} elsif ($cmd eq 'add') { } elsif ($cmd eq 'add') {
if ((defined($entity)) and (defined($value))) { if ((defined $entity) && (defined $value)) {
if ($entity eq 'nick') { if ($entity eq 'nick') {
my @nicks = (loadlist('dl_nicks'), $value); my @nicks = (loadlist ('dl_nicks'), $value);
unless (defined(savelist('dl_nicks', @nicks))) { unless (savelist ('dl_nicks', @nicks)) {
undef $cmd; undef $entity; undef $value; undef $msg; $cmd = ''; undef $cmd;
@nicks = -1; undef @nicks; $entity = ''; undef $entity;
return HexChat::EAT_ALL; $value = ''; undef $value;
$msg = ''; undef $msg;
$#nicks = -1; undef @nicks;
return EAT_ALL;
} }
$msg = sprintf("Nicks blacklist now: %s\n", join(', ', @nicks)); $msg = sprintf "Nicks blacklist now: %s\n", join (', ', @nicks);
@nicks = -1; undef @nicks; $#nicks = -1; undef @nicks;
} elsif ($entity eq 'domain') { } elsif ($entity eq 'domain') {
my @domains = (loadlist('dl_domains'), $value); my @domains = (loadlist ('dl_domains'), $value);
unless (defined(savelist('dl_domains', @domains))) { unless (savelist('dl_domains', @domains)) {
undef $cmd; undef $entity; undef $value; undef $msg; $cmd = ''; undef $cmd;
@domains = -1; undef @domains; $entity = ''; undef $entity;
return HexChat::EAT_ALL; $value = ''; undef $value;
$msg = ''; undef $msg;
$#domains = -1; undef @domains;
return EAT_ALL;
} }
$msg = sprintf("Domains blacklist now: %s\n", join(', ', @domains)); $msg = sprintf "Domains blacklist now: %s\n", join (', ', @domains);
@domains = -1; undef @domains; $#domains = -1; undef @domains;
} }
} }
} elsif ($cmd eq 'del') { } elsif ($cmd eq 'del') {
if ((defined($entity)) and (defined($value))) { if ((defined $entity) and (defined $value)) {
if ($entity eq 'nick') { if ($entity eq 'nick') {
my @list = loadlist('dl_nicks'); my @list = loadlist ('dl_nicks');
my @nicklist; my @nicklist;
foreach (@list) { foreach (@list) {
@@ -237,18 +249,21 @@ sub dl_cmd {
push @nicklist, $_; push @nicklist, $_;
} }
@list = -1; undef @list; $#list = -1; undef @list;
unless (defined(savelist('dl_nicks', @nicklist))) { unless (savelist ('dl_nicks', @nicklist)) {
undef $cmd; undef $entity; undef $value; undef $msg; $cmd = ''; undef $cmd;
@nicklist = -1; undef @nicklist; $entity = ''; undef $entity;
return HexChat::EAT_ALL; $value = ''; undef $value;
$msg = ''; undef $msg;
$#nicklist = -1; undef @nicklist;
return EAT_ALL;
} }
$msg = sprintf("Nicks blacklist now: %s\n", join(', ', @nicklist)); $msg = sprintf "Nicks blacklist now: %s\n", join (', ', @nicklist);
@nicklist = -1; undef @nicklist; $#nicklist = -1; undef @nicklist;
} elsif ($entity eq 'domain') { } elsif ($entity eq 'domain') {
my @list = loadlist('dl_domains'); my @list = loadlist 'dl_domains';
my @domainlist; my @domainlist;
foreach (@list) { foreach (@list) {
@@ -256,35 +271,41 @@ sub dl_cmd {
push @domainlist, $_; push @domainlist, $_;
} }
@list = -1; undef @list; $#list = -1; undef @list;
unless (defined(savelist('dl_domains', @domainlist))) { unless (savelist ('dl_domains', @domainlist)) {
undef $cmd; undef $entity; undef $value; undef $msg; $cmd = ''; undef $cmd;
@domainlist = -1; undef @domainlist; $entity = ''; undef $entity;
return HexChat::EAT_ALL; $value = ''; undef $value;
$msg = ''; undef $msg;
$#domainlist = -1; undef @domainlist;
return EAT_ALL;
} }
$msg = sprintf("Domains blacklist now: %s\n", join(', ', @domainlist)); $msg = sprintf "Domains blacklist now: %s\n", join (', ', @domainlist);
@domainlist = -1; undef @domainlist; $#domainlist = -1; undef @domainlist;
} }
} }
} }
} }
unless(defined($msg)) { unless (defined $msg) {
HexChat::print($help); print $help;
} else { } else {
HexChat::print($msg); print $msg;
} }
undef $cmd; undef $entity; undef $value; undef $msg; $cmd = ''; undef $cmd;
return HexChat::EAT_ALL; $entity = ''; undef $entity;
$value = ''; undef $value;
$msg = ''; undef $msg;
return EAT_ALL;
} }
sub freehooks { sub freehooks {
foreach (@hooks) { foreach (@hooks) {
HexChat::unhook($_); unhook $_;
} }
return HexChat::EAT_ALL; return EAT_ALL;
} }