Tokenbenachrichtigungen und -generierungsfunktion.

This commit is contained in:
ja
2021-10-07 12:04:22 +02:00
parent f053a730f0
commit 24c77cda55

View File

@@ -133,6 +133,7 @@ Partial Class login_ForgotPW
MsgBox("SENT") MsgBox("SENT")
Else Else
Return False Return False
tokennametemp = ""
End If End If
Return True Return True
Catch ex As Exception Catch ex As Exception
@@ -170,7 +171,7 @@ Partial Class login_ForgotPW
Dim wenn As DateTime = DateTime.FromBinary(BitConverter.ToInt64(data, 0)) Dim wenn As DateTime = DateTime.FromBinary(BitConverter.ToInt64(data, 0))
If wenn < DateTime.UtcNow.AddMinutes(-30) Then If wenn < DateTime.UtcNow.AddMinutes(-30) Then
Return False Return False
MsgBox("Token nicht gefunden oder zu alt!" + Environment.NewLine + "Bitte erneut Mail senden!") MsgBox("Token nicht gefunden oder er ist abgelaufen!" + Environment.NewLine + "Bitte eine neue E-Mail senden!")
tokenname = "" tokenname = ""
Else Else
Return True Return True