aplinfo/apltest.pl

   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}_ARCH.tar.gz";
  17     $template =~ s/$res->{os}-$res->{os}-/$res->{os}-/;
  18
  19     $k =~ s/_amd64\.tar\.gz$/_ARCH.tar.gz/;
  20     $k =~ s/_i386\.tar\.gz$/_ARCH.tar.gz/;
  21
  22     if ($k ne $template) {
  23         print "ERROR: $k != $template\n";
  24         $err = 1;
  25     }
  26 }
  27
  28 $err ? exit (-11) : exit (0);
  29