zydronium/RDSFactor
1
0
Fork 0
mirror of https://github.com/jakobadam/RDSFactor.git synced 2025-06-11 06:54:29 +02:00
Code Issues Projects Releases Packages Wiki Activity

LaunchTimeOut made public shared

Browse source
This commit is contained in:
Jakob A. Dam 2015-04-09 07:47:05 +02:00 • committed by Jakob Aarøe Dam
parent 7ce790eda9
commit 3eda032256
1 changed files with 8 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

19
CICRadarR/CICRadarR.vb
View file

@ -46,7 +46,7 @@ Public Class CICRadarR
Private TSGWFirstLoginHash As New Hashtable ' Ensure that only one sms is send even if radius need to re-authenticate.
Private TSGWFirstLoginTimeStampHash As New Hashtable ' Ensure that only one sms is send even if radius need to re-authenticate.
Public Shared SessionTimeOut As Integer = 30 ' in minutes
Private LaunchTimeOut As Integer = 30 ' in seconds
Public Shared LaunchTimeOut As Integer = 30 ' in seconds
Private EnableSMS As Boolean = False
Private EnableEmail As Boolean = False
@ -118,19 +118,11 @@ Public Class CICRadarR
' will fire up the callback procedure. Invalid requests are dropped, per RFC.
Private Sub ProcessPacket1812(ByVal packet As RADIUSPacket)
'Console.WriteLine("packet " & Now)
If packet.IsValid Then
ProcessPacket(radius1812, packet)
Else
Console.WriteLine("Packet is not valid. Dropping.")
End If
ProcessPacket(radius1812, packet)
End Sub
Private Sub ProcessPacket1645(ByVal packet As RADIUSPacket)
If packet.IsValid Then
ProcessPacket(radius1645, packet)
Else
Console.WriteLine("Packet is not valid. Dropping.")
End If
ProcessPacket(radius1645, packet)
End Sub
Private Sub AccessLog(ByVal message)
@ -144,6 +136,11 @@ Public Class CICRadarR
End Sub
Private Sub ProcessPacket(ByVal server As RADIUSServer, ByVal packet As RADIUSPacket)
If Not packet.IsValid Then
Console.WriteLine("Packet is not valid. Discarding.")
Exit Sub
End If
Dim muuh As New VendorSpecificAttribute(VendorSpecificType.Generic, "LAUNCH")
Dim atts As New RADIUSAttributes