103 lines
3.1 KiB
VB.net
103 lines
3.1 KiB
VB.net
Imports System.Data.SqlClient
|
|
|
|
Public Class cFirewallEntry
|
|
Property fwr_ID As String = ""
|
|
Property fwr_hostip As String = ""
|
|
Property fwr_in As String = ""
|
|
Property fwr_out As String = ""
|
|
Property fwr_portsin As String = ""
|
|
Property fwr_portsout As String = ""
|
|
Property fwr_dienste As String = ""
|
|
Property fwr_FQDN As String = ""
|
|
Property fwr_info As String = ""
|
|
Property fwr_direct As Boolean = False
|
|
|
|
|
|
|
|
Function getparameterlist() As List(Of SQLVariable)
|
|
Dim list As New List(Of SQLVariable)
|
|
list.Add(New SQLVariable("fwr_ID", fwr_ID))
|
|
list.Add(New SQLVariable("fwr_hostip", fwr_hostip))
|
|
list.Add(New SQLVariable("fwr_in", fwr_in))
|
|
list.Add(New SQLVariable("fwr_out", fwr_out))
|
|
list.Add(New SQLVariable("fwr_portsin", fwr_portsin))
|
|
list.Add(New SQLVariable("fwr_portsout", fwr_portsout))
|
|
list.Add(New SQLVariable("fwr_dienste", fwr_dienste))
|
|
list.Add(New SQLVariable("fwr_FQDN", fwr_FQDN))
|
|
list.Add(New SQLVariable("fwr_info", fwr_info))
|
|
list.Add(New SQLVariable("fwr_direct", fwr_direct))
|
|
Return list
|
|
|
|
End Function
|
|
|
|
|
|
Public Shared Function getFirewallEntrys(ByRef ds As DataSet, ByVal HostIP As String)
|
|
Dim selector As String = "Select
|
|
[fwr_ID]
|
|
,[fwr_in]
|
|
,[fwr_out]
|
|
,[fwr_portsin]
|
|
,[fwr_portsout]
|
|
,[fwr_dienste]
|
|
,[fwr_FQDN]
|
|
,[fwr_info]
|
|
, case when [fwr_direct] is null then '0'
|
|
else [fwr_direct] end as [fwr_direct]
|
|
From [Doku].[dbo].[TbL_FirewallRules] where [fwr_hostip] = '" & HostIP & "'
|
|
ORDER BY [fwr_in]"
|
|
|
|
SQL.SQL2DS(selector, ds)
|
|
|
|
End Function
|
|
|
|
Public Function getUpdateCmd(ByRef update As String, ByRef where As String)
|
|
|
|
Dim list As List(Of SQLVariable) = getparameterlist()
|
|
'Dim str As String
|
|
|
|
For Each i In list
|
|
If Not i.SQLText = "fwr_ID" Then
|
|
update &= "[" & i.SQLText & "]='" & i.SQLValue & "',"
|
|
Else
|
|
where &= "fwr_ID = '" & i.SQLValue & "'"
|
|
End If
|
|
Next
|
|
update = update.Substring(0, update.Length - 1) 'wg. ','
|
|
' Return str
|
|
|
|
End Function
|
|
|
|
Public Function getInsertCmd(ByRef insert As String)
|
|
|
|
Dim list As List(Of SQLVariable) = getparameterlist()
|
|
Dim text, value As String
|
|
|
|
For Each i In list
|
|
text &= i.SQLText & ", "
|
|
value &= "'" & i.SQLValue & "', "
|
|
Next
|
|
text = text.Substring(0, text.Length - 2)
|
|
value = value.Substring(0, value.Length - 2)
|
|
|
|
insert = "(" & text & ") VALUES (" & value & ")"
|
|
|
|
End Function
|
|
|
|
Public Function insertFirewallEntry(ByRef entry As cFirewallEntry)
|
|
Dim insert As String
|
|
getInsertCmd(insert)
|
|
SQL.InsertSQL("TbL_FirewallRules", insert)
|
|
End Function
|
|
|
|
Public Function updateFirewallEntry(ByRef entry As cFirewallEntry)
|
|
Dim update, where As String
|
|
getUpdateCmd(update, where)
|
|
SQL.UpdateSQL("TbL_FirewallRules", update, where)
|
|
'MsgBox(update & where)
|
|
|
|
End Function
|
|
|
|
|
|
|
|
End Class
|