daniell/pcurse
1
0
Fork 0
Code Issues 2 Pull Requests Packages Projects Releases Wiki Activity

Prettyfied the update printout, moved directory to be a part of $filename in update and added removing of downloaded file (verbosely)

Browse Source
This commit is contained in:
Daniel Lysfjord
2019-07-24 22:00:59 +02:00
parent d370ca0a0c
commit 94d6f227ca
2 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
pcurse
View File

@@ -121,7 +121,7 @@ foreach my $unpacking(keys %tounpack) {
my $file = $tounpack{$unpacking}->[1]; my $file = $tounpack{$unpacking}->[1];
my $version = $tounpack{$unpacking}->[2]; my $version = $tounpack{$unpacking}->[2];
if(pcurse::update($unpacking,$file,$conf->{'wowpath'})) { if(pcurse::update($unpacking,$file,$conf->{'wowpath'})) {
say 'Updated '.$addons->[$id]->{'name'}.' from version '.$addons->[$id]->{'version'}.' to '.$version; say 'Updated '.$addons->[$id]->{'name'}.': '.$addons->[$id]->{'version'}.' => '.$version;
$addons->[$id]->{'version'} = $version; $addons->[$id]->{'version'} = $version;
} else { } else {
say 'Unpacking failed for '.$unpacking; say 'Unpacking failed for '.$unpacking;

14
pcurse.pm
View File

@@ -276,14 +276,18 @@ sub update {
my $filename = shift; my $filename = shift;
my $file = shift; my $file = shift;
my $targetpath = shift; my $targetpath = shift;
unless(-e "/tmp/$filename") { $filename = '/tmp/'.$filename;
open my $fh, '>', "/tmp/$filename" or return 0; unless(-e "$filename") {
open my $fh, '>', "$filename" or return 0;
print $fh $file; print $fh $file;
close $fh; close $fh;
} }
if(-e "/tmp/$filename") { if(-e "$filename") {
my $ae = Archive::Extract->new(archive => "/tmp/$filename"); my $ae = Archive::Extract->new(archive => "$filename");
return 1 if($ae->extract(to=>$targetpath)); if($ae->extract(to=>$targetpath)) {
system("rm","-v","$filename");
return 1;
}
} }
return 0; return 0;
} }