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

8
pcurse
View File

@ -90,7 +90,7 @@ while(scalar(keys %jobs)) {
} elsif($jres->{'did'} eq 'download') {
if($jres->{'retval'} == 1) {
my $ret = $jres->{'retval'};
my $filename = $jres->{'filename'};
my $filename = $jres->{'filename'};
my $file = $jres->{'filecontent'};
my $version = $jobs{$jobid}{'tv'};
if(defined($filename)) {
@ -122,8 +122,12 @@ foreach my $unpacking(keys %tounpack) {
my $file = $tounpack{$unpacking}->[1];
my $version = $tounpack{$unpacking}->[2];
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;
my $ret = pcurse::updatelog($addons->[$id]->{'name'},$addons->[$id]->{'version'},$version);
if($ret->{'retval'} == 0) {
push(@errors, $ret->{'message'});
}
} else {
say 'Unpacking failed for '.$unpacking;
}

14
pcurse.pm
View File

@ -1,7 +1,7 @@
#!/usr/bin/env perl
package pcurse;
use strict;
no warnings 'all';
use DateTime;
use IO::Socket::SSL;
use Getopt::Long;
use Archive::Extract;
@ -348,4 +348,16 @@ sub init_pool {
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;