mirror of
https://git.proxmox.com/git/pmg-docs
synced 2025-05-28 16:22:21 +00:00
17 lines
312 B
Perl
Executable File
17 lines
312 B
Perl
Executable File
#!/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;
|