#!/usr/bin/perl

# ---------------------------------------------------------------------------------------------------------

use strict;
use warnings;

use Tk;

use Win32;
use Win32::GUI;
use Win32::Process;

# ---------------------------------------------------------------------------------------------------------	

sub Fehler_Hilfe_Oberflaeche {

	my $Fenster_Fehler_Hilfe = MainWindow -> new( -title => "Fehler - Hilfe" );
	
	my $Breite = 560;
	my $Hoehe  = 580;
	
	$Fenster_Fehler_Hilfe -> geometry( $Breite . 'x' . $Hoehe );
	$Fenster_Fehler_Hilfe -> update;

	my $Top_Level = $Fenster_Fehler_Hilfe -> toplevel;
	
	my $Fehler_Hilfe_Identifier = "$_[ 0 ]";
	
	$_[ 1 ] -> Hide( );
	
	# ---------------------------------------------------------------------------------------------------------
	
	my %SQL_Server_Werte = (  "0001" => "Fehler bei der Initialisierung der Config - Datei 'XXX.cfg'" 	. "\n" .
                                        "Die Ausführung der Anwendung ohne gültige Config - Datei"    	. "\n" .  
			                            "führte zu einem Absturz des Systems."                        	. "\n" ,
									  
							  "0002" => "Fehler bei der Erkennung eines Eintrags in der Config - Datei" . "\n" .
							            "'XXX.cfg'. Die manuelle Veränderung eines Eintrags führte zu"  . "\n" .
									    "einem Absturz des Systems."                                    . "\n" ,

							  "0003" => "Fehler bei der Zuweisung eines Eintrags aus der Config - " 	. "\n" .
							            "Datei 'XXX.cfg'. Die Existenz doppelter Eintraege in der " 	. "\n" .
									    "Config - Datei führte zu einem Absturz des Systems."       	. "\n" ,

							  "2000" => "Fehler bei der Etablierung der SQL - Verbindung."       		. "\n" .
							            "Die angegebene IP - Adresse weist keine gültige"        		. "\n" . 
									    "IP V4 Formatierung auf. Dies führte zu einem"       		    . "\n" .
									    "Absturz des Systems."                              	     	. "\n" ,

					          "2001" => "Fehler bei der Etablierung der SQL - Verbindung."       		. "\n" .
							            "Die Formatierung des Ports weist keine gültige"        		. "\n" . 
									    "IP V4 Formatierung auf. Dies führte zu einem"       		    . "\n" .
									    "Absturz des Systems."                              	     	. "\n" ,
										
							  "3000" => "Fehler bei der Identifizierung eines Eintrags aus der"   		. "\n" .
							            "Config - Datei 'Config.cfg'. Die eingegebene IP -"  		    . "\n" . 
									    "Adresse für die SQL - Verbindung ist keine gültige"       		. "\n" .
									    "einem Absturz des Systems."                              		. "\n" ,
										
							  "3001" => "Fehler bei der Identifizierung des Ports für die SSL -"  		. "\n" .
							            "Verbindung."                                             		. "\n" ,
											
							  "3002" => "Fehler bei der Verzeichnis - Prüfung des Public - Keys"  		. "\n" .
							            "für die SSL - Verbindung. Die Nicht - Existenz dieses"   		. "\n" .
							            "Verzeichnisses führte zu einem Absturz des Systems."      		. "\n" ,
		
							  "3003" => "Fehler bei der Verzeichnis - Prüfung des Private - Keys" 		. "\n" .
							            "für die SSL - Verbindung. Die Nicht - Existenz dieses"   		. "\n" .
							            "Verzeichnisses führte zu einem Absturz des Systems."      		. "\n" ,
									  
							  "3004" => "Fehler bei der Identifizierung des Private - Keys für" 	    . "\n" .
							            "die SSL - Verbindung."                                      	. "\n" ,
		
							  "3005" => "Fehler bei der Identifizierung des Public - Keys für"  	    . "\n" .
							            "die SSL - Verbindung."                                     	. "\n" ,						  
										
							);
	    
	my $Betroffene_Bereiche = "";
	
	# ---------------------------------------------------------------------------------------------------------

	if( grep { $Fehler_Hilfe_Identifier eq $_ } "0000" .. "0005" ) { $Betroffene_Bereiche = "Config - Datei & Parsing"; }
	if( grep { $Fehler_Hilfe_Identifier eq $_ } "2000" .. "2005" ) { $Betroffene_Bereiche = "SQL - Server"; }
	if( grep { $Fehler_Hilfe_Identifier eq $_ } "3000" .. "3005" ) { $Betroffene_Bereiche = "SSL - Server"; }

	# ---------------------------------------------------------------------------------------------------------																		  																				

        ... Verschiedene Fenster
	
	# ---------------------------------------------------------------------------------------------------------								 

	$Fenster_Fehler_Hilfe -> Button( -text    => ' Reperatur ' , 
	                                 -width   => 33            , 
	                                 -height  => 2             , 
	                                 -command => sub{ &Reparatur_Config( ) }	
									 
									) -> place( -x => 50 , -y => 485 );

	$Fenster_Fehler_Hilfe -> Button( -text    => ' Ende ' , 
	                                 -width   => 33       , 
	                                 -height  => 2        , 
	                                 -command => sub{ exit( 0 ); }	
									 
									) -> place( -x => 287 , -y => 485 );									
	MainLoop( );

	# ---------------------------------------------------------------------------------------------------------								   
	
}

# ---------------------------------------------------------------------------------------------------------	

1;