aplinfo/apltest.pl

   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)$/) {
  21         print "ERROR: $k != $template\n";
  22         #print Dumper($res) . "\n";
  23         $err = 1;
  24     }
  25 }
  26
  27 $err ? exit (-11) : exit (0);
  28