fixup: s/devies/devices/
[pve-docs.git] / png-cleanup.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 $outfile = shift ||
10     die "no outpu file specified\n";
11
12 # use the following to verify image attributes
13 # identify -verbose <filename>
14
15 # set PixelsPerCentimeter to 58, so that we can display 1024 
16 # pixels (page width)
17
18 my $dpcm = 58;
19
20 system("convert -units PixelsPerCentimeter $infile -density $dpcm $outfile");
21
22 # identify should return the same value
23 # system("identify -units PixelsPerCentimeter -format '%x x %y' $outfile");