]>
git.proxmox.com Git - pve-manager.git/blob - aplinfo/apltest.pl
9 my $pkglist = PVE
::APLInfo
::load_data
();
13 foreach my $k (keys %{$pkglist->{'all'}}) {
14 next if $k eq 'pve-web-news';
15 my $res = $pkglist->{all
}->{$k};
18 my $template = "$res->{package}_$res->{version}_$res->{architecture}.tar";
20 if ($k !~ m/^($res->{os}-)?\Q$template\E\.(gz|xz|zst)$/) {
21 print "ERROR: $k != $template\n";
22 #print Dumper($res) . "\n";
27 $err ?
exit (-11) : exit (0);