[pve-docs.git] / png-verify.pl

#!/usr/bin/perl

use strict;
use warnings;

my $infile = shift ||
    die "no input file specified\n";

my $dpcm = 58; # expected

my $tmp = `identify -units PixelsPerCentimeter -format '%x x %y' $infile`;

die "got unexpected density '$tmp' (fix with png-cleanup.pl)\n"
    if $tmp ne "$dpcm x $dpcm";

exit 0;
Commit	Line	Data
f250356f DM	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	my $infile = shift \|\|
	7	die "no input file specified\n";
	8
9798ad65	9	my $dpcm = 58; # expected
f250356f	10
9798ad65	11	my $tmp = `identify -units PixelsPerCentimeter -format '%x x %y' $infile`;
f250356f	12
9798ad65 DM	13	die "got unexpected density '$tmp' (fix with png-cleanup.pl)\n"
9798ad65 DM	14	if $tmp ne "$dpcm x $dpcm";
f250356f DM	15
f250356f DM	16	exit 0;