eleksir/hexchat-scripts
1
Fork 0
Code Activity

use rename() instead of mv()

Browse Source
This commit is contained in:
Sergey Fedosov
2016-09-04 21:53:16 +03:00
parent 86b0857f9f
commit 58b050c74e
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
img_url_wget.pl
View File

@@ -18,7 +18,6 @@ use warnings "all";
use threads; use threads;
use URI::URL; use URI::URL;
use Image::Magick; use Image::Magick;
use File::Copy;
my $wgetpath; my $wgetpath;
@@ -40,7 +39,7 @@ sub hookfn; # in defaults we trust: dunno arrayname/args name, but defaul
my $script_name = "Image URL Auto Grabber and Downloader, wget flavour"; my $script_name = "Image URL Auto Grabber and Downloader, wget flavour";
HexChat::register($script_name, '0.6-alpha2', 'Automatically grabs and downloads image URLs via wget'); HexChat::register($script_name, '0.6-rc1', 'Automatically grabs and downloads image URLs via wget');
HexChat::print("$script_name loaded\n"); HexChat::print("$script_name loaded\n");
HexChat::hook_print('Channel Message', \&hookfn); HexChat::hook_print('Channel Message', \&hookfn);
@@ -69,7 +68,7 @@ sub dlfunc(@) {
$rename = 0 if (($format =~ /^PNG/) and ($file =~ /png$/i)); $rename = 0 if (($format =~ /^PNG/) and ($file =~ /png$/i));
if ($rename == 1) { if ($rename == 1) {
mv($file, sprintf("%s.%s", $file, lc($format))); rename $file, sprintf("%s.%s", $file, lc($format));
} }
} }
} }