#!/usr/bin/perl

while (<>) {
    if (($name, $format) = /^<picture name="(.*?)" format="(.*?)"/) {
	my $file = $name.".".$format;
	my ($type, $size, $x, $y);
	if ($format eq 'jpg') {
	    $type = 'JPEG';
	    ($x, $y, $size)
		= `jpeginfo $file` =~ /(\d+)\s+x\s+(\d+).*?(\d+)\s*$/;
	} elsif ($format eq 'gif') {
	    $type = 'GIF';
	    $size = -s $file;
	    ($x, $y) = `file $file` =~ /(\d+)\s+x\s+(\d+)$/;
	}
	print STDERR "$name: ${x}x$y ($size bytes)\n";
	print qq|<picture name="$name" format="$format" size="$size" w="$x" h="$y">\n|;
    } else {
	print;
    }
}