eleksir/hexchat-scripts
1
Fork 0
Code Activity

Grand cleanup of img_url_wget.pl - removed threads, as we need some trick to reall use threads and fork background jobs and other small cleanups

Browse Source
This commit is contained in:
Sergey Fedosov
2016-09-13 21:56:14 +03:00
parent 58b050c74e
commit e11beb5d8c
1 changed files with 10 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
img_url_wget.pl
View File

@@ -1,21 +1,15 @@
#!/usr/bin/perl #!/usr/bin/perl
# HexChat Perl script # HexChat Perl script
# Automatically save images that are linked in a channel to [hexchat-dir]/imgsave on linux/unices or %USERPROFILE%\Downloads on Windows # Automatically save images that are linked in a channel to [hexchat-dir]/imgsave on linux/unices
# The bad_domains array may be used to exclude image URLs with domains matching any of a list of patterns. Set to an empty list to disable. # The bad_domains array may be used to exclude image URLs with domains matching any of a list of patterns. Set to an empty list to disable.
# TODO: enhance urlencode with punicode # TODO: enhance urlencode with punicode
# TODO: suppress any errors (errors only in debug mode)
# TODO: create menu and plugin-own ini-file or some sort of config (or add one more section to hexchat config, which is possible via api) # TODO: create menu and plugin-own ini-file or some sort of config (or add one more section to hexchat config, which is possible via api)
# NOTE: Hexchat run scripts in syncronously, all script' children should exit before main thread, so massive file download can cause
# "stop whe world" effect for a while, so to effectively aviod it downloading part should _fork_ childern as separate parentless
# processes.
# TODO: Metaprogamming stuff (via eval) with downloader and proper mime-type handling.
use strict; use strict;
use warnings "all"; use warnings "all";
use threads;
use URI::URL; use URI::URL;
use Image::Magick; use Image::Magick;
@@ -82,21 +76,23 @@ sub cdlfunc($) {
if (defined($extension)) { if (defined($extension)) {
unless (-d sprintf("%s/imgsave", HexChat::get_info("configdir"))) { my $savepath = sprintf("%s/imgsave", HexChat::get_info("configdir"));
mkdir (sprintf("%s/imgsave", HexChat::get_info("configdir")));
unless (-d $savepath) {
mkdir ($savepath);
} }
my $fname = HexChat::get_info("configdir") . "/imgsave/" . s/[^\w!., -#]/_/gr . ".$extension"; $savepath = $savepath . "/" . s/[^\w!., -#]/_/gr . ".$extension";
if (lc($url) =~ /\.(gif|jpeg|png|webm|mp4)$/) { if (lc($url) =~ /\.(gif|jpeg|png|webm|mp4)$/) {
if ($1 eq $extension) { if ($1 eq $extension) {
$fname = HexChat::get_info("configdir") . "/imgsave/" . s/[^\w!., -#]/_/gr; $savepath = HexChat::get_info("configdir") . "/imgsave/" . s/[^\w!., -#]/_/gr;
} }
} }
dlfunc($url, $fname); dlfunc($url, $savepath);
} }
} }
@@ -140,12 +136,10 @@ sub hookfn {
# here we try to catch string that can contain http or https at beginning (assume http if none) # here we try to catch string that can contain http or https at beginning (assume http if none)
# and after all ends with known extension # and after all ends with known extension
if ($_ =~ m{https?://([a-zA-Z0-9.-]+\.[a-zA-Z]+)/(?:.*)}) { if ($_ =~ m{https?://([a-zA-Z0-9.-]+\.[a-zA-Z]+)/(?:.*)}) {
my $full_url = $_; cdlfunc($_);
my $fqdn = $1;
my $uri_part = $2;
cdlfunc($full_url);
} }
} }
return HexChat::EAT_NONE; return HexChat::EAT_NONE;
} }