X-Git-Url: http://git.projectaon.org/?p=project-aon.git;a=blobdiff_plain;f=common%2Fscripts%2Ffix-image-sizes.pl;fp=common%2Fscripts%2Ffix-image-sizes.pl;h=dc8f55f3bae80b68f36e0c77f590d36c9e6acb04;hp=0000000000000000000000000000000000000000;hb=f4bdee5083ca9a72713637e1e979aa183e06faea;hpb=97545603aea8298f1eceb604ff65085cc7adfced

diff --git a/common/scripts/fix-image-sizes.pl b/common/scripts/fix-image-sizes.pl
new file mode 100755
index 0000000..dc8f55f
--- /dev/null
+++ b/common/scripts/fix-image-sizes.pl
@@ -0,0 +1,41 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+use File::Spec;
+use Image::Size;
+
+my $USAGE = "typical usage:\timage-size.pl *.png <input.xml >output.xml\n";
+die $USAGE if $#ARGV < 0;
+
+my %image_widths = ( );
+my %image_heights = ( );
+
+while( my $file = shift @ARGV ) {
+    my( $volume, $directory, $filename ) = File::Spec->splitpath( $file );
+    ( $image_widths{ $filename }, $image_heights{ $filename } ) = 
+        imgsize( $file );
+}
+
+while( my $line = <> ) {
+    if( $line =~ m{<instance.*src="([^"]+)"} ) {
+    my $image = $1;
+        if( exists $image_widths{$image} && defined $image_widths{$image} ) {
+            my $image = $1;
+            if( $line =~ m{width="[^"]*"} ) {
+                $line =~ s/width="[^"]*"/width="$image_widths{$image}"/;
+            }
+            else {
+                $line =~ s/(src="[^"]*")/$1 width="$image_widths{$image}"/;
+            }
+
+            if( $line =~ m{height="[^"]*"} ) {
+                $line =~ s/height="[^"]*"/height="$image_heights{$image}"/;
+            }
+            else {
+                $line =~ s/(src="[^"]*")/$1 height="$image_heights{$image}"/;
+            }
+        }
+    }
+    print $line;
+}