33 lines
943 B
VB.net
33 lines
943 B
VB.net
Public Class cREST_Options
|
|
|
|
<Conditional("DEBUG")>
|
|
Shared Sub IsDebugCheck(ByRef isDebug As Boolean)
|
|
isDebug = True
|
|
End Sub
|
|
|
|
|
|
Shared Function isTESTSSTEM(Request) As Boolean
|
|
|
|
Try
|
|
|
|
Dim baseUri As New Uri(Request.RequestUri.AbsoluteUri.Replace(Request.RequestUri.PathAndQuery, String.Empty))
|
|
If baseUri.AbsoluteUri.Contains("apitest.verag.ag") Or baseUri.AbsoluteUri.Contains("localhost") Then
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
|
|
|
|
Catch ex As Exception
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
|
|
|
SQL.doSQL("insert into tbltest (test,ipaddress) Values('FEHLRRR " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
|
|
|
End Try
|
|
Return False
|
|
End Function
|
|
|
|
|
|
End Class
|