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