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

14
pcurse.pm
View File

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