add tools to verify/set DPI densite

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

diff --git a/png-verify.pl b/png-verify.pl
new file mode 100755 (executable)
index 0000000..248f9fb
--- /dev/null
+++ b/png-verify.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $infile = shift ||
+    die "no input file specified\n";
+
+my $dpi = 146; # expected
+
+my $tmp = `identify -units PixelsPerInch -format '%x x %y' $infile`;
+
+die "got unexpected DPI density '$tmp' (fix with png-cleanup.pl)\n"
+    if $tmp ne "$dpi x $dpi";
+
+exit 0;