while (my $rec = <$fh>) {
chomp $rec;
-
+
my $res = {};
while ($rec) {
$res->{lc $1} = $2;
} else {
my $msg = "unable to parse appliance record: $rec\n";
- $update ? die $msg : warn $msg;
+ $update ? die $msg : warn $msg;
$res = {};
last;
}
}
-
+
if ($res->{'package'} eq 'pve-web-news' && $res->{description}) {
- $list->{'all'}->{$res->{'package'}} = $res;
+ $list->{'all'}->{$res->{'package'}} = $res;
next;
}
$res->{section} = 'unknown' if !$res->{section};
-
+
if ($res->{'package'} && $res->{type} && $res->{os} && $res->{version} &&
$res->{infopage}) {
my $template;
$list->{'all'}->{$template} = $res;
} else {
my $msg = "found incomplete appliance records\n";
- $update ? die $msg : warn $msg;
+ $update ? die $msg : warn $msg;
}
}
}
close($fh);
die $err if $err;
-
+
return $list;
}
if (url_get($ua, $aplsrcurl, $tmpgz, $logfd) != 0) {
die "update failed - no data file '$aplsrcurl'\n";
}
-
+
eval { run_command(["gunzip", "-f", $tmpgz]) };
die "update failed: unable to unpack '$tmpgz'\n" if $@;
{
host => "download.proxmox.com",
url => "http://download.proxmox.com/images",
- file => 'aplinfo-pve-6.dat',
+ file => 'aplinfo-pve-8.dat',
},
{
host => "releases.turnkeylinux.org",
logmsg ($logfd, $err);
push @dlerr, $info->{url};
}
- }
+ }
close($logfd);