#!perl

use strict;
use warnings;
use Tk;
use Tk::PNG;
use Tk::JPEG;
use DBI;

my $datenbank = "test";
my $db_host = "localhost";
my $db_port = "3306";

my $db_user = "test";
my $db_pw = "test";

my $dsn  = "DBI:mysql:database=$datenbank;host=$db_host;port=$db_port";
my $dbh = DBI->connect( $dsn, $db_user, $db_pw, { RaiseError => 1, PrintError => 0, AutoCommit => 1 } ) or die('Err connect: ' . DBI->errstr());

my $mw = Tk::MainWindow->new();

#my $filename = "test.jpg";
my $filename = "apply.png";
my $bild = $mw->Photo( -file => $filename );

# -- Bild in Variable einlesen
open MYFILE, $filename  or die "Cannot open file: $!";
binmode MYFILE;
my $data;
while (<MYFILE>) {
	$data .= $_;
}

close MYFILE;
# -------------------------

my $sql = q~INSERT INTO photos (photo) values (?)~;
my $sth = $dbh->prepare($sql) or die('Error prep: ' . $dbh->errstr());
$sth->bind_param(1, $data);
my $rv = $sth->execute($data) or die('Error exec: ' . $dbh->errstr());

my $label = $mw->Label(-image => $bild, -background => '#ffffff')->pack();                                                      

$mw->MainLoop();