zydronium/RDSFactor
1
0
Fork 0
mirror of https://github.com/jakobadam/RDSFactor.git synced 2025-06-12 15:34:31 +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 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. 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 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 EnableSMS As Boolean = False
Private EnableEmail 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. ' will fire up the callback procedure. Invalid requests are dropped, per RFC.
Private Sub ProcessPacket1812(ByVal packet As RADIUSPacket) Private Sub ProcessPacket1812(ByVal packet As RADIUSPacket)
'Console.WriteLine("packet " & Now) 'Console.WriteLine("packet " & Now)
If packet.IsValid Then ProcessPacket(radius1812, packet)
ProcessPacket(radius1812, packet)
Else
Console.WriteLine("Packet is not valid. Dropping.")
End If
End Sub End Sub
Private Sub ProcessPacket1645(ByVal packet As RADIUSPacket) Private Sub ProcessPacket1645(ByVal packet As RADIUSPacket)
If packet.IsValid Then ProcessPacket(radius1645, packet)
ProcessPacket(radius1645, packet)
Else
Console.WriteLine("Packet is not valid. Dropping.")
End If
End Sub End Sub
Private Sub AccessLog(ByVal message) Private Sub AccessLog(ByVal message)
@ -144,6 +136,11 @@ Public Class CICRadarR
End Sub End Sub
Private Sub ProcessPacket(ByVal server As RADIUSServer, ByVal packet As RADIUSPacket) 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 muuh As New VendorSpecificAttribute(VendorSpecificType.Generic, "LAUNCH")
Dim atts As New RADIUSAttributes Dim atts As New RADIUSAttributes