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