eleksir/hexchat-scripts
1
Fork 0
Code Activity

fix coding style

Browse Source
This commit is contained in:
eleksir
2017-12-11 16:10:33 +03:00
parent 51b905cb70
commit d8a1e41eb2
5 changed files with 25 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
web_link_saver/img-save.pl
View File

@@ -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;
}

1
web_link_saver/img_url_memc.pl
View File

@@ -284,6 +284,7 @@ sub dl_cmd {
} else {
HexChat::print($msg);
}
undef $cmd; undef $entity; undef $value; undef $msg;
return HexChat::EAT_ALL;
}

4
web_link_saver/unsafe/img_url_tiny.pl
View File

@@ -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";
@@ -391,6 +390,7 @@ sub dl_cmd {
} else {
HexChat::print($msg);
}
undef $cmd; undef $entity; undef $value; undef $msg;
return HexChat::EAT_ALL;
}

1
web_link_saver/unsafe/img_url_wget.pl
View File

@@ -78,7 +78,6 @@ sub hookfn {
}
undef $nicklist;
my @words = split(/\s+/, $text);
foreach (@words) {