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

Added config system

Browse Source
This commit is contained in:
Daniel Lysfjord
2019-07-04 22:23:44 +02:00
parent f23e2c0336
commit 06b95e3150
2 changed files with 65 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
pcurse
View File

@ -6,24 +6,26 @@ use Data::Dumper;
use pcurse;
select(STDOUT);
$| = 1;
my $wowpath = '/mnt/Div/World of Warcraft/_retail_/Interface/AddOns/';
my $base_uri = 'http://www.curseforge.com';
my $addons_file = $ENV{'HOME'}.'/.pcurse/addons.json';
my %opts = pcurse::parse_arguments;
my $addons = pcurse::load_addons($addons_file);
my $ret;
my $msg;
my %opts = pcurse::parse_arguments;
$opts{'config'} = $ENV{'HOME'}.'/.pcurse/config.json' unless($opts{'config'});
my $conf = pcurse::load_config($opts{'config'});
$conf = pcurse::check_config($conf);
($ret,$msg) = pcurse::save_config($opts{'config'},$conf);
print $msg."\n" unless($ret);
my $addons = pcurse::load_addons($conf->{'addons'});
foreach my $addon(@{$addons}) {
print 'Found '.$addon->{'name'}.'('.$addon->{'version'}.')';
if(exists($addon->{'uri'})) {
#print ' - at '.$addon->{'uri'};
my $html = pcurse::html_get($base_uri.$addon->{'uri'});
my $html = pcurse::html_get($conf->{'baseuri'}.$addon->{'uri'});
my $fileid = pcurse::get_latest_file_id($html,$addon->{'uri'});
if($fileid) {
my $version = pcurse::get_product_version($html,$addon->{'uri'},$fileid);
print ' - latest version is '.$version;
if($version && ($version ne $addon->{'version'})) {
print ' - updating';
my $ret = 0;
#my $ret = pcurse::update($base_uri.$addon->{'uri'},$fileid,$wowpath);
my $ret = pcurse::update($conf->{'baseuri'}.$addon->{'uri'},$fileid,$conf->{'wowpath'});
if($ret) {
print ' - done';
$addon->{'version'} = $version;
@ -31,12 +33,11 @@ foreach my $addon(@{$addons}) {
print ' - failed';
}
}
} else {
print 'Could not find product id for '.$addon->{'name'};
}
}
print "\n";
}
my ($ret,$msg) = pcurse::save_addons($addons_file,$addons);
($ret,$msg) = pcurse::save_config($conf->{'addons'},$addons);
print $msg."\n" unless($ret);

58
pcurse.pm
View File

@ -10,11 +10,59 @@ use Archive::Extract;
sub parse_arguments {
my %toret;
GetOptions (
"verbose+" => \$toret{'verbose'},
"verbose+" => \$toret{'verbose'},
"wowpath=s" => \$toret{'wowpath'},
"baseuri=s" => \$toret{'baseuri'},
"config=s" => \$toret{'config'},
);
return %toret;
}
sub load_config {
my $file = shift;
my $toret;
unless(-e $file) {
my @p = split(/\//, $file);
my $file = pop(@p);
my $path = join('/', @p);
unless(-d $path) {
print 'Will create path: '.$path."\n";
system("mkdir","-p","$path");
}
} else {
$toret = pcurse::import_json($file);
}
$toret = pcurse::sane_defaults($toret);
foreach my $k(keys %{$toret}) {
print "k: $k, val: $toret->{$k}\n";
}
return $toret;
}
sub check_config {
my $conf = shift;
unless($conf->{'wowpath'}) {
print 'Where is your addons installed? (complete path, including AddOns on the end): ';
while(my $line = <>) {
chomp($line);
if(-e $line) {
$conf->{'wowpath'} = $line;
last;
}
print 'You sure? Cannot read that path. Try again: ';
}
}
return $conf;
}
sub sane_defaults {
my $in = shift;
$in->{'baseuri'} = 'http://www.curseforge.com' unless(exists($in->{'baseuri'}));
$in->{'config'} = $ENV{'HOME'}.'/.pcurse/config.json' unless(exists($in->{'config'}));
$in->{'addons'} = $ENV{'HOME'}.'/.pcurse/addons.json' unless(exists($in->{'addons'}));
return $in;
}
sub load_addons {
my $addons_file = shift;
unless(-e $addons_file) {
@ -43,15 +91,15 @@ sub load_addons {
return 0;
}
sub save_addons {
sub save_config {
my $json = JSON->new;
my $addons_file = shift;
my $file = shift;
my $json_data = shift;
my $text = $json->pretty->encode($json_data);
open my $fh, ">", $addons_file or return (0,'Could not open '.$addons_file.' for writing: '.$!);
open my $fh, ">", $file or return (0,'Could not open '.$file.' for writing: '.$!);
print $fh $text;
close $fh;
return (1,$addons_file.' saved successfully');
return (1,$file.' saved successfully');
}
sub import_json {