#!/usr/bin/perl
# Script ermittelt die Breite und Höhe einer Grafik-
# oder BildDatei und gibt sie in xHTML-Code aus
use strict;
use Tk;
use Image::Size 'html_imgsize';

my $mw = MainWindow->new();
$mw->title("ImgSize");
$mw->resizable(0,0);
$mw->geometry("+130+130");

my $entry = $mw->Entry(-width => 60, -relief => 'flat',	-borderwidth => 4)
->pack(-side => 'left', -anchor => 'n', -padx => 2, -pady => 3);
	
$mw->Button(-text => "Durchsuchen", -relief => 'groove', -command => \&oeffne_daten)
->pack(-side => 'left', -anchor => 'n');
MainLoop;

sub oeffne_daten {
	my @types = (["Grafik- und Bilddateien", ['.png', '.jpg', '.gif']], ["Alle Dateien",'*']);
	my $file = $mw->getOpenFile(-filetypes => \@types);
	if ($file) {
		$entry->delete(0, 'end');
		&size($file);
	}
}

sub size {
	my $size = html_imgsize("$_[0]");
	if ($size) {
		$entry->insert('end', "<img src=\"$_[0]\" $size alt=\"\" />");
	} else {
		$entry->insert('end', "Fehler!");
	}
}