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

Added add + added support for ElvUI

Browse Source
This commit is contained in:
Daniel Lysfjord
2019-07-10 20:51:42 +02:00
parent fef6996b98
commit 31a3157dd3
2 changed files with 61 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
pcurse.pm
View File

@ -37,6 +37,8 @@ sub parse_arguments {
"test" => \$toret->{'test'},
"workers" => \$toret->{'workers'},
"debug" => \$toret->{'debug'},
"add=s" => \$toret->{'add'},
"name=s" => \$toret->{'name'},
);
return $toret;
}
@ -77,8 +79,6 @@ sub check_config {
sub sane_defaults {
my $in = shift;
$in->{'baseuri'} = 'https://www.curseforge.com' unless(exists($in->{'baseuri'}));
$in->{'baseuri'} =~ s/^http/https/ unless($in->{'baseuri'} =~ m/^https/);
$in->{'addons'} = $ENV{'HOME'}.'/.pcurse/addons.json' unless(exists($in->{'addons'}));
$in->{'workers'} = "4" unless(exists($in->{'workers'}));
return $in;
@ -97,24 +97,33 @@ sub load_addons {
if(-e $ENV{'HOME'}.'/.lcurse/addons.json') {
print 'There seems to be an addons.json from lcurse around, and we have no list ourself yet. Stealing it:)'."\n";
my $json = &import_json($ENV{'HOME'}.'/.lcurse/addons.json');
my $jsonref = ref $json;
$json = $json->{'addons'};
my $jsonreff = ref $json;
foreach my $addon(@{$json}) {
$addon->{'uri'} =~ s/^http(s|)\:\/\/www.curseforge\.com//;
}
$json = pcurse::add_baseuri_to_addon($json);
return $json;
}
} else {
my $json = &import_json($addons_file);
foreach my $addon(@{$json}) {
$addon->{'uri'} =~ s/^http(s|)\:\/\/www.curseforge\.com//;
}
$json = pcurse::add_baseuri_to_addon($json);
return $json;
}
return 0;
}
sub add_baseuri_to_addon {
my $json = shift;
foreach my $addon(@{$json}) {
unless(exists($addon->{'host'})) {
my $str = $addon->{'uri'};
my (undef,$h,undef,$u) = split(/(http(|s)\:\/\/[a-zA-Z0-9.]+)(\/.+)/,$str,2);
$addon->{'uri'} = $u;
$addon->{'host'} = $h;
}
#$addon->{'uri'} = 'https://www.curseforge.com'.$addon->{'uri'} unless($addon->{'uri'} =~ m/^http/);
#$addon->{'baseuri'} =
}
return $json;
}
sub save_config {
my $json = JSON->new;
$json->convert_blessed;
@ -176,6 +185,7 @@ sub html_get {
sub get_latest_file_id {
my $html = shift;
my $uri = shift;
return 'elvui' if($uri =~ m/tukui/);
$uri .= '/download/';
my $retstr = pcurse::find_in_html('dlstring',$html,$uri);
return $retstr;
@ -185,7 +195,11 @@ sub get_product_version {
my $html = shift;
my $uri = shift;
my $fileid = shift;
$uri .= '/files/'.$fileid;
if($fileid eq 'elvui') {
$uri = '/downloads/';
} else {
$uri .= '/files/'.$fileid;
}
my $retstr = pcurse::find_in_html('vstring',$html,$uri);
return $retstr;
}
@ -194,6 +208,11 @@ sub find_in_html {
my $mode = shift;
my $html = shift;
my $sstring = shift;
unless($sstring =~ m/\/downloads\//) { #ElvUI hacks
my @sstringa = split /\//, $sstring,4;
$sstring = pop(@sstringa);
$sstring = '/'.$sstring;
}
my $ref = ref $html;
my $retstr;
if($ref) {
@ -207,7 +226,12 @@ sub find_in_html {
if($mode eq 'dlstring') {
$retstr = (split(/$sstring/, $href,2))[1];
} elsif($mode eq 'vstring') {
$retstr = $context->getAttribute('data-name');
if($sstring =~ m/downloads/) { #hack for elvui
$retstr = $context->getAttribute('href');
$retstr =~ s/$sstring//g;
} else {
$retstr = $context->getAttribute('data-name');
}
}
return $retstr if($retstr);
}
@ -243,7 +267,6 @@ sub find_in_html {
sub download_update {
my $uri = shift;
my $fileid = shift;
$uri .= '/download/'.$fileid.'/file';
my ($ret,$filename,$file) = pcurse::download($uri);
return (1,$filename,$file) if($ret);
return (0,undef,undef);
@ -286,13 +309,18 @@ sub init_pool {
if($todo eq 'check') {
my $addon = shift;
my $conf = shift;
my $html = pcurse::html_get($conf->{'baseuri'}.$addon->{'uri'});
my $fileid = pcurse::get_latest_file_id($html,$addon->{'uri'});
my $html = pcurse::html_get($addon->{'host'}.$addon->{'uri'});
my $fileid = pcurse::get_latest_file_id($html,$addon->{'host'}.$addon->{'uri'});
if($fileid) {
$addon->{'fileid'} = $fileid;
my $version = pcurse::get_product_version($html,$addon->{'uri'},$fileid);
if($version && ($version ne $addon->{'version'})) {
unless($conf->{'test'}) {
if($fileid eq 'elvui') {
$addon->{'downloaduri'} = $addon->{'host'}.'/downloads/'.$version;
} else {
$addon->{'downloaduri'} = $addon->{'host'}.$addon->{'uri'}.'/download/'.$fileid.'/file';
}
$addon->{'targetversion'} = $version;
return (1,$addon);
}