Opened by YAPD at 2016-04-12 19:39
User since
2015-09-20
146 Artikel
BenutzerIn
2015-09-20
146 Artikel
BenutzerIn
Hi Linuxer,
ich habe noch ein Problem mit der Passwort - Abfrage :
In der Sub - Routine frage ich das PW ab :
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)
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