From d8a1e41eb2667ca8c0712ba360a5ecdf9db8125f Mon Sep 17 00:00:00 2001 From: eleksir Date: Mon, 11 Dec 2017 16:10:33 +0300 Subject: [PATCH] fix coding style --- notifications.pl | 12 ++++++------ web_link_saver/img-save.pl | 4 ++-- web_link_saver/img_url_memc.pl | 5 +++-- web_link_saver/unsafe/img_url_tiny.pl | 18 +++++++++--------- web_link_saver/unsafe/img_url_wget.pl | 11 +++++------ 5 files changed, 25 insertions(+), 25 deletions(-) diff --git a/notifications.pl b/notifications.pl index 6e0c091..e9f4d69 100644 --- a/notifications.pl +++ b/notifications.pl @@ -89,7 +89,7 @@ sub hookfn { next unless(defined($_)); next if($_ eq ''); - if ($_ eq $network){ + if ($_ eq $network) { $flag = 1; last; } @@ -175,7 +175,7 @@ sub notify_cmd { else { $msg .= "Networks whitelist: enabled\n"; } } } elsif ($cmd eq 'enable') { - if($entity eq 'nick') { + if ($entity eq 'nick') { if (defined(savesetting('nicklist', '1'))) { $msg = "Nicks whitelist now enabled\n"; } @@ -189,7 +189,7 @@ sub notify_cmd { } } } elsif ($cmd eq 'disable') { - if($entity eq 'nick') { + if ($entity eq 'nick') { if (defined(savesetting('nicklist', '0'))) { $msg = "Nicks whitelist now disabled\n"; } @@ -425,7 +425,7 @@ sub notify_cmd { } } - unless(defined($msg)) { + unless (defined($msg)) { HexChat::print($help); } else { HexChat::print($msg); @@ -434,7 +434,7 @@ sub notify_cmd { return HexChat::EAT_ALL; } -sub loadliststatus($){ +sub loadliststatus($) { my $listtype = shift; my $list = HexChat::plugin_pref_get($listtype); @@ -447,7 +447,7 @@ sub loadliststatus($){ return $list; } -sub loadlist($){ +sub loadlist($) { my $setting = shift; my $val = HexChat::plugin_pref_get($setting); diff --git a/web_link_saver/img-save.pl b/web_link_saver/img-save.pl index 290a12b..cb1fd23 100644 --- a/web_link_saver/img-save.pl +++ b/web_link_saver/img-save.pl @@ -71,7 +71,7 @@ sub cdlfunc($) { $fname =~ s/[^\w!., -#]/_/g; $savepath = $savepath . "/" . $fname . ".$extension"; - if ( (lc($url) =~ /\.(gif|jpeg|png|webm|mp4)$/) and ($1 eq $extension) ){ + if ( (lc($url) =~ /\.(gif|jpe?g|png|webm|mp4)$/) and ($1 eq $extension) ) { $savepath = $ENV{'HOME'} . "/imgsave/" . $fname; } @@ -104,7 +104,7 @@ sub dlfunc(@) { if (($^O ne 'cygwin') and defined($IMAGEMAGICK)) { eval { - if ($file =~ /(png|jpe?g|gif)$/i){ + if ($file =~ /(png|jpe?g|gif)$/i) { my $im = Image::Magick->new(); my $rename = 1; my (undef, undef, undef, $format) = $im->Ping($file); diff --git a/web_link_saver/img_url_memc.pl b/web_link_saver/img_url_memc.pl index 0821137..cfe0a4d 100644 --- a/web_link_saver/img_url_memc.pl +++ b/web_link_saver/img_url_memc.pl @@ -112,7 +112,7 @@ sub hookfn { return HexChat::EAT_NONE; } -sub loadliststatus($){ +sub loadliststatus($) { my $listtype = shift; my $list = HexChat::plugin_pref_get($listtype); @@ -125,7 +125,7 @@ sub loadliststatus($){ return $list; } -sub loadlist($){ +sub loadlist($) { my $setting = shift; my $val = HexChat::plugin_pref_get($setting); @@ -284,6 +284,7 @@ sub dl_cmd { } else { HexChat::print($msg); } + undef $cmd; undef $entity; undef $value; undef $msg; return HexChat::EAT_ALL; } diff --git a/web_link_saver/unsafe/img_url_tiny.pl b/web_link_saver/unsafe/img_url_tiny.pl index 2d62816..a773ca3 100644 --- a/web_link_saver/unsafe/img_url_tiny.pl +++ b/web_link_saver/unsafe/img_url_tiny.pl @@ -81,7 +81,6 @@ sub hookfn { } undef $nicklist; - my @words = split(/\s+/, $text); foreach (@words) { @@ -151,7 +150,7 @@ sub dlfunc($) { mkdir ($savepath) unless (-d $savepath); - if ( (lc($url) =~ /\.(gif|jpeg|png|webm|mp4)$/) and ($1 eq $extension) ){ + if ( (lc($url) =~ /\.(gif|jpe?g|png|webm|mp4)$/) and ($1 eq $extension) ) { $savepath = $savepath . "/" . s/[^\w!., -#\:\?]/_/gr; } else { $savepath = $savepath . "/" . s/[^\w!., -#]\:\?/_/gr . ".$extension"; @@ -164,7 +163,7 @@ sub dlfunc($) { if (($^O ne 'cygwin') and defined($IMAGEMAGICK)) { eval { - if ((-f $savepath) and ($savepath =~ /(png|jpe?g|gif)$/i)){ + if ((-f $savepath) and ($savepath =~ /(png|jpe?g|gif)$/i)) { my $im = Image::Magick->new(); my $rename = 1; my (undef, undef, undef, $format) = $im->Ping($savepath); @@ -219,7 +218,7 @@ sub urlencode($) { return $url; } -sub loadliststatus($){ +sub loadliststatus($) { my $listtype = shift; my $list = HexChat::plugin_pref_get($listtype); @@ -232,7 +231,7 @@ sub loadliststatus($){ return $list; } -sub loadlist($){ +sub loadlist($) { my $setting = shift; my $val = HexChat::plugin_pref_get($setting); @@ -278,7 +277,7 @@ sub dl_cmd { if (defined($cmd)) { if ($cmd eq 'enable') { - if($entity eq 'nick') { + if ($entity eq 'nick') { if (defined(savesetting('dl_nicklist', '1'))) { $msg = "Nicks blacklist now enabled\n"; } @@ -288,7 +287,7 @@ sub dl_cmd { } } } elsif ($cmd eq 'disable') { - if($entity eq 'nick') { + if ($entity eq 'nick') { if (defined(savesetting('dl_nicklist', '0'))) { $msg = "Nicks blacklist now disabled\n"; } @@ -306,7 +305,7 @@ sub dl_cmd { $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) { $msg .= "Domains blacklist: disabled\n"; @@ -386,11 +385,12 @@ sub dl_cmd { } } - unless(defined($msg)) { + unless (defined($msg)) { HexChat::print($help); } else { HexChat::print($msg); } + undef $cmd; undef $entity; undef $value; undef $msg; return HexChat::EAT_ALL; } diff --git a/web_link_saver/unsafe/img_url_wget.pl b/web_link_saver/unsafe/img_url_wget.pl index b6106a4..d158294 100644 --- a/web_link_saver/unsafe/img_url_wget.pl +++ b/web_link_saver/unsafe/img_url_wget.pl @@ -78,7 +78,6 @@ sub hookfn { } undef $nicklist; - my @words = split(/\s+/, $text); foreach (@words) { @@ -239,7 +238,7 @@ sub urlencode($) { return $url; } -sub loadliststatus($){ +sub loadliststatus($) { my $listtype = shift; my $list = HexChat::plugin_pref_get($listtype); @@ -252,7 +251,7 @@ sub loadliststatus($){ return $list; } -sub loadlist($){ +sub loadlist($) { my $setting = shift; my $val = HexChat::plugin_pref_get($setting); @@ -298,7 +297,7 @@ sub dl_cmd { if (defined($cmd)) { if ($cmd eq 'enable') { - if($entity eq 'nick') { + if ($entity eq 'nick') { if (defined(savesetting('dl_nicklist', '1'))) { $msg = "Nicks blacklist now enabled\n"; } @@ -308,7 +307,7 @@ sub dl_cmd { } } } elsif ($cmd eq 'disable') { - if($entity eq 'nick') { + if ($entity eq 'nick') { if (defined(savesetting('dl_nicklist', '0'))) { $msg = "Nicks blacklist now disabled\n"; } @@ -406,7 +405,7 @@ sub dl_cmd { } } - unless(defined($msg)) { + unless (defined($msg)) { HexChat::print($help); } else { HexChat::print($msg);