Projektdateien hinzufügen.

VERAG_REST_SERVER/cREST_Options.vb

@@ -0,0 +1,32 @@
+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