buildsys: switch upload dist over to buster
[pve-docs.git] / png-verify.pl
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5 use File::Basename;
6
7 my $installer_images = {
8     'pve-grub-menu.png' => 1,
9     'pve-installation.png' => 1,
10     'pve-select-location.png' => 1,
11     'pve-select-target-disk.png' => 1,
12     'pve-set-password.png' => 1,
13     'pve-setup-network.png' => 1,
14 };
15
16 my $infile = shift ||
17     die "no input file specified\n";
18
19 my $basename = basename($infile);
20
21 my $dpcm = $installer_images->{$basename} ? 72 : 58; # expected
22
23 my $tmp = `identify -units PixelsPerCentimeter -format '%x x %y' $infile`;
24
25 die "$infile: got unexpected density '$tmp' (fix with png-cleanup.pl)\n"
26     if $tmp ne "$dpcm x $dpcm";
27
28 exit 0;