projects
/
pve-docs.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
add auto-generated screenshots
[pve-docs.git]
/
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;