#!/usr/bin/perl

# -----------------------------------------------------------------------------	
use strict;
use warnings;

use IO::Socket::SSL;

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

# SSL - Server

my $SSL_Server = IO::Socket::SSL -> new(
    
    # Initialisierung der Server - Adresse & des Ports
    
    LocalAddr => '127.0.0.1' ,
    LocalPort => 8080        ,
    Listen    => 10          ,

    # Zertifikate für die Authentifizierung
   
    SSL_cert_file => 'www.meinedomain.de.pem' ,
    SSL_key_file  => 'www.meinedomain.de.key'  ,
	
) or die "failed to listen: $!";

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

# Akzeptiere Clients

while( 1 )
{
   my $Akzeptierung_Verbindung_Clients = $SSL_Server -> accept or die "Fehler bei der Akzeptierung des Handshakes : !";

    my $client_address = $Akzeptierung_Verbindung_Clients -> peerhost();
    my $client_port    = $Akzeptierung_Verbindung_Clients -> peerport();
	
    print "Eingehende Verbindung : $client_address:$client_port" , "\n";

    my $data = "";
    
	$Akzeptierung_Verbindung_Clients -> read( $data , 1024 );
    
	my @Pruefung_Lizenzierung = split( / , / , $data );
	
	print "Empfangene Werte : $data" , "\n";
	
	print "Ergebnis - Array 0 : $Pruefung_Lizenzierung[ 0 ]" , "\n";
	print "Ergebnis - Array 1 : $Pruefung_Lizenzierung[ 1 ]" , "\n";
	print "Ergebnis - Array 2 : $Pruefung_Lizenzierung[ 2 ]" , "\n";

	$data = "OK";
    $Akzeptierung_Verbindung_Clients -> print( $data );

	shutdown( $Akzeptierung_Verbindung_Clients , 1 );
}

$SSL_Server -> close( );

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