Fix http/https confusion on my end

This commit is contained in:
2019-07-05 11:03:49 +02:00
parent 83b0c01f8e
commit df833c7159
2 changed files with 16 additions and 10 deletions

4
pcurse Normal file → Executable file
View File

@@ -23,6 +23,7 @@ foreach my $addon(@{$addons}) {
my $version = pcurse::get_product_version($html,$addon->{'uri'},$fileid); my $version = pcurse::get_product_version($html,$addon->{'uri'},$fileid);
print ' - latest version is '.$version; print ' - latest version is '.$version;
if($version && ($version ne $addon->{'version'})) { if($version && ($version ne $addon->{'version'})) {
unless($opts{'test'}) {
print ' - updating'; print ' - updating';
my $ret = pcurse::update($conf->{'baseuri'}.$addon->{'uri'},$fileid,$conf->{'wowpath'}); my $ret = pcurse::update($conf->{'baseuri'}.$addon->{'uri'},$fileid,$conf->{'wowpath'});
if($ret) { if($ret) {
@@ -32,8 +33,9 @@ foreach my $addon(@{$addons}) {
print ' - failed'; print ' - failed';
} }
} }
}
} else { } else {
print 'Could not find product id for '.$addon->{'name'}; print 'Could not find file id for '.$addon->{'name'};
} }
} }
print "\n"; print "\n";

View File

@@ -13,6 +13,7 @@ sub parse_arguments {
"wowpath=s" => \$toret{'wowpath'}, "wowpath=s" => \$toret{'wowpath'},
"baseuri=s" => \$toret{'baseuri'}, "baseuri=s" => \$toret{'baseuri'},
"config=s" => \$toret{'config'}, "config=s" => \$toret{'config'},
"test" => \$toret{'test'},
); );
return %toret; return %toret;
} }
@@ -53,7 +54,7 @@ sub check_config {
sub sane_defaults { sub sane_defaults {
my $in = shift; my $in = shift;
$in->{'baseuri'} = 'http://www.curseforge.com' unless(exists($in->{'baseuri'})); $in->{'baseuri'} = 'https://www.curseforge.com' unless(exists($in->{'baseuri'}));
$in->{'config'} = $ENV{'HOME'}.'/.pcurse/config.json' unless(exists($in->{'config'})); $in->{'config'} = $ENV{'HOME'}.'/.pcurse/config.json' unless(exists($in->{'config'}));
$in->{'addons'} = $ENV{'HOME'}.'/.pcurse/addons.json' unless(exists($in->{'addons'})); $in->{'addons'} = $ENV{'HOME'}.'/.pcurse/addons.json' unless(exists($in->{'addons'}));
return $in; return $in;
@@ -76,12 +77,15 @@ sub load_addons {
$json = $json->{'addons'}; $json = $json->{'addons'};
my $jsonreff = ref $json; my $jsonreff = ref $json;
foreach my $addon(@{$json}) { foreach my $addon(@{$json}) {
$addon->{'uri'} =~ s/^http\:\/\/www.curseforge\.com//; $addon->{'uri'} =~ s/^http(s|)\:\/\/www.curseforge\.com//;
} }
return $json; return $json;
} }
} else { } else {
my $json = &import_json($addons_file); my $json = &import_json($addons_file);
foreach my $addon(@{$json}) {
$addon->{'uri'} =~ s/^http(s|)\:\/\/www.curseforge\.com//;
}
return $json; return $json;
} }
return 0; return 0;