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

Added saving of updatelog

Browse Source
This commit is contained in:
Daniel Lysfjord
2019-08-24 15:29:39 +02:00
parent c0010b0970
commit 9bf8c2bc5e
2 changed files with 19 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
pcurse
View File

@@ -90,7 +90,7 @@ while(scalar(keys %jobs)) {
} elsif($jres->{'did'} eq 'download') { } elsif($jres->{'did'} eq 'download') {
if($jres->{'retval'} == 1) { if($jres->{'retval'} == 1) {
my $ret = $jres->{'retval'}; my $ret = $jres->{'retval'};
my $filename = $jres->{'filename'}; my $filename = $jres->{'filename'};
my $file = $jres->{'filecontent'}; my $file = $jres->{'filecontent'};
my $version = $jobs{$jobid}{'tv'}; my $version = $jobs{$jobid}{'tv'};
if(defined($filename)) { if(defined($filename)) {
@@ -124,6 +124,10 @@ foreach my $unpacking(keys %tounpack) {
if(pcurse::update($unpacking,$file,$conf->{'wowpath'})) { if(pcurse::update($unpacking,$file,$conf->{'wowpath'})) {
say 'Updated '.$addons->[$id]->{'name'}.': '.$addons->[$id]->{'version'}.' => '.$version; say 'Updated '.$addons->[$id]->{'name'}.': '.$addons->[$id]->{'version'}.' => '.$version;
$addons->[$id]->{'version'} = $version; $addons->[$id]->{'version'} = $version;
my $ret = pcurse::updatelog($addons->[$id]->{'name'},$addons->[$id]->{'version'},$version);
if($ret->{'retval'} == 0) {
push(@errors, $ret->{'message'});
}
} else { } else {
say 'Unpacking failed for '.$unpacking; say 'Unpacking failed for '.$unpacking;
} }

14
pcurse.pm
View File

@@ -1,7 +1,7 @@
#!/usr/bin/env perl #!/usr/bin/env perl
package pcurse; package pcurse;
use strict; use strict;
no warnings 'all'; use DateTime;
use IO::Socket::SSL; use IO::Socket::SSL;
use Getopt::Long; use Getopt::Long;
use Archive::Extract; use Archive::Extract;
@@ -348,4 +348,16 @@ sub init_pool {
return $p; return $p;
} }
sub updatelog {
my $now = DateTime->now->iso8601();
my $addon_name = shift;
my $addon_oldv = shift;
my $addon_newv = shift;
my $filename = $ENV{'HOME'}.'/.pcurse/update.log';
open my $fh, '>>', $filename, or return { retval => 0, message => 'Could not open '.$filename.' for appending' };
print $fh $now.': '.$addon_name.': '.$addon_oldv.' => '.$addon_newv."\n";
close $fh;
return { retval => 1 }
}
1; 1;