use strict;
use warnings;
+use File::Basename;
+
+my $installer_images = {
+ 'pve-grub-menu.png' => 1,
+ 'pve-installation.png' => 1,
+ 'pve-select-location.png' => 1,
+ 'pve-select-target-disk.png' => 1,
+ 'pve-set-password.png' => 1,
+ 'pve-setup-network.png' => 1,
+};
my $infile = shift ||
die "no input file specified\n";
-my $dpi = 146; # expected
+my $basename = basename($infile);
+
+my $dpcm = $installer_images->{$basename} ? 72 : 58; # expected
-my $tmp = `identify -units PixelsPerInch -format '%x x %y' $infile`;
+my $tmp = `identify -units PixelsPerCentimeter -format '%x x %y' $infile`;
-die "got unexpected DPI density '$tmp' (fix with png-cleanup.pl)\n"
- if $tmp ne "$dpi x $dpi";
+die "$infile: got unexpected density '$tmp' (fix with png-cleanup.pl)\n"
+ if $tmp ne "$dpcm x $dpcm";
exit 0;