png-verify.pl

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