Proxmox/pve-manager
5
0
Fork 0
Code Pull Requests Releases Activity

aplinfo: make apltest a bit more flexible

Browse Source 
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
Thomas Lamprecht 2019-07-19 19:31:57 +02:00
parent 486b9da5bc
commit d7e0c3c7b1
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
aplinfo/apltest.pl
View File

@ -1,9 +1,10 @@
#!/usr/bin/perl -w
use strict;
use warnings;
use PVE::APLInfo;
use Data::Dumper;
my $pkglist = PVE::APLInfo::load_data();
@ -11,16 +12,14 @@ my $err = 0;
foreach my $k (keys %{$pkglist->{'all'}}) {
next if $k eq 'pve-web-news';
my $res = $pkglist->{'all'}->{$k};
my $res = $pkglist->{all}->{$k};
my $template = "$res->{os}-$res->{package}_$res->{version}_ARCH.tar.gz";
$template =~ s/$res->{os}-$res->{os}-/$res->{os}-/;
$k =~ s/_amd64\.tar\.gz$/_ARCH.tar.gz/;
$k =~ s/_i386\.tar\.gz$/_ARCH.tar.gz/;
# heuristic only..
my $template = "$res->{package}_$res->{version}_$res->{architecture}.tar";
if ($k ne $template) {
if ($k !~ m/^($res->{os}-)?\Q$template\E\.(gz|xz)$/) {
print "ERROR: $k != $template\n";
#print Dumper($res) . "\n";
$err = 1;
}
}