[pve-manager.git] / aplinfo / apltest.pl

#!/usr/bin/perl -w

use strict;
use warnings;

use PVE::APLInfo;
use Data::Dumper;

my $pkglist = PVE::APLInfo::load_data();

my $err = 0;

foreach my $k (keys %{$pkglist->{'all'}}) {
    next if $k eq 'pve-web-news';
    my $res = $pkglist->{all}->{$k};

    # heuristic only..
    my $template = "$res->{package}_$res->{version}_$res->{architecture}.tar";

    if ($k !~ m/^($res->{os}-)?\Q$template\E\.(gz|xz|zst)$/) {
	print "ERROR: $k != $template\n";
	#print Dumper($res) . "\n";
	$err = 1;
    }
}

$err ? exit (-11) : exit (0);
Commit	Line	Data
	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4	use warnings;
	5
	6	use PVE::APLInfo;
	7	use Data::Dumper;
	8
	9	my $pkglist = PVE::APLInfo::load_data();
	10
	11	my $err = 0;
	12
	13	foreach my $k (keys %{$pkglist->{'all'}}) {
	14	next if $k eq 'pve-web-news';
	15	my $res = $pkglist->{all}->{$k};
	16
	17	# heuristic only..
	18	my $template = "$res->{package}_$res->{version}_$res->{architecture}.tar";
	19
	20	if ($k !~ m/^($res->{os}-)?\Q$template\E\.(gz\|xz\|zst)$/) {
	21	print "ERROR: $k != $template\n";
	22	#print Dumper($res) . "\n";
	23	$err = 1;
	24	}
	25	}
	26
	27	$err ? exit (-11) : exit (0);
	28