Thread Abfangen der PW - Eingabe bei Start des SSL - Servers (6 answers)
Opened by YAPD at 2016-04-12 19:39

YAPD
 2016-04-13 15:34
#184439 #184439
User since
2015-09-20
146 articles
BenutzerIn

user image
Hi Linuxer,

ich habe noch ein Problem mit der Passwort - Abfrage :

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# SSL - Server

use IO::Socket::SSL;

&Parser_Pruefung( );

my $SSL_Server = IO::Socket::SSL -> new(

# Initialisierung der Server - Adresse & des Ports

LocalAddr => $Config_Eintraege -> { SSL_SERVER_ADRESSE } ,
LocalPort => $Config_Eintraege -> { SSL_SERVER_PORT } ,
Listen => 10 ,

# Zertifikate für die Authentifizierung

SSL_cert_file => $Config_Eintraege -> { SSL_SERVER_PUBLIC_KEY_FOLDER } . $Config_Eintraege -> { SSL_SERVER_PUBLIC_KEY_IDENTIFIER } ,
SSL_key_file => $Config_Eintraege -> { SSL_SERVER_PRIVATE_KEY_FOLDER } . $Config_Eintraege -> { SSL_SERVER_PRIVATE_KEY_IDENTIFIER } ,
SSL_passwd_cb => sub{ my $PW_Identifizierung_Rueckgabe = &PW_Identifizierung( );
print "Rueckgabe : $PW_Identifizierung_Rueckgabe" , "\n"; } ,

) or die "failed to listen: $!";


In der Sub - Routine frage ich das PW ab :

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
sub PW_Identifizierung {

my $PW_Identifizierung_Fenster = MainWindow -> new( -title => "PW - Abfrage" );

my $Breite = 280;
my $Hoehe = 140;

$PW_Identifizierung_Fenster -> geometry( $Breite . 'x' . $Hoehe );

my $PW_Identifizierung_Eintrag = $PW_Identifizierung_Fenster -> Entry( -width => 32 ,
-relief => 'sunken' ,
-bd => 2 ,
-justify => 'center' ,
-show => '*' ,

) -> place( -x => 41 , -y => 65 );

my $PW_Identifizierung_Ergebnis = "";

my $PW_Identifizierung_Rueckgabe = $PW_Identifizierung_Fenster -> Button( -text => 'OK' ,
-width => 14 ,
-command => sub{ $PW_Identifizierung_Ergebnis = $PW_Identifizierung_Eintrag -> get( );
print "Ergebnis : $PW_Identifizierung_Ergebnis" , "\n";
return( $PW_Identifizierung_Ergebnis );
}

) -> place( -x => 40 , -y => 95 );

MainLoop( )

}


Ich möchte jetzt das Ergebnis aus dem Entry - Feld an die
SSL_passwd_cb Funktion zurückgeben.

Wie mache ich das denn ? Ich muss die Rückgabe ja innerhalb
des Buttons definieren ?

Viele Grüße
YAPD
Last edited: 2016-04-13 18:25:01 +0200 (CEST)
Yet Another Perl Developer

View full thread Abfangen der PW - Eingabe bei Start des SSL - Servers