#!/usr/bin/perl
use Win32::GUI();
use DBI;
use English;

#DOS-Fenster verstecken
my ($DOS) = Win32::GUI::GetPerlWindow();
Win32::GUI::Hide($DOS);


#Neues Fenster definieren
my $main = Win32::GUI::Window->new(
    -name => 'Main',
    -text => 'Monitor',
    -width => 800,
    -height => 200
);

#Text für fenster definieren
$font = Win32::GUI::Font->new(-size => 10 );

my $text = "Mit der Minimieren-Schaltfläche wird das Programm im systray abgelegt, 'X' beendet es.";
$main->AddLabel(-text => $text,
                -font => $font);


#Icons für systray definieren
my $frage_icon = new Win32::GUI::Icon('FRAGE.ICO');
my $gut_icon = new Win32::GUI::Icon('AZ_GUT.ICO');
my $mittel_icon = new Win32::GUI::Icon('AZ_MITTEL.ICO');
my $schlecht_icon= new Win32::GUI::Icon('AZ_SCHLECHT.ICO');

#Erstermittlung AZ
my ($abfragezeit, $time_avg) = get_time_avg();

#Notify-Icon für Systray definieren
my $ni = $main->AddNotifyIcon(
    -name => "NI",
    -icon => $frage_icon,
    -tip => "letzte Abfrage um $abfragezeit\ntime_avg: $time_avg"
);

#Änderung Notify-Icon
change_ni($abfragezeit, $time_avg);


#Timer für das main-Window definieren
my $t1 = $main->AddTimer('T1', 300000);


$SIG{KILL} = sub{ exit(); };

Win32::GUI::Dialog();


#DOS-Fenster wieder anzeigen
Win32::GUI::Show($DOS);