]>
git.proxmox.com Git - pve-manager.git/blob - aplinfo/apltest.pl
8 my $pkglist = PVE
::APLInfo
::load_data
();
12 foreach my $k (keys %{$pkglist->{'all'}}) {
13 next if $k eq 'pve-web-news';
14 my $res = $pkglist->{'all'}->{$k};
16 my $template = "$res->{os}-$res->{package}_$res->{version}_i386.tar.gz";
17 $template =~ s/$res->{os}-$res->{os}-/$res->{os}-/;
19 if ($k ne $template) {
20 print "ERROR: $k != $template\n";
25 $err ?
exit (-11) : exit (0);