AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Small fixes for logging frmValidator

Browse Source
This commit is contained in:
Jonathan Jenne 2021-11-12 10:47:27 +01:00
parent 3114bfc123
commit 96456077e2
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
app/DD_PM_WINDREAM/clsPatterns.vb
View File

@ -67,10 +67,14 @@ Public Class clsPatterns
Return New Pattern(type, value).ToString
End Function
Public Shared Function ReplaceAllValues(input As String, panel As Panel, is_SQL As Boolean) As String
Try
Dim result = input
If Not HasAnyPatterns(result) Then
Return result
End If
LOGGER.Debug($"input BEFORE replacing: [{result}]")
result = ReplaceInternalValues(result)
result = ReplaceControlValues(result, panel, is_SQL)
@ -117,7 +121,6 @@ Public Class clsPatterns
oResult = ReplacePattern(oResult, PATTERN_INT, Now.ToShortDateString)
End While
LOGGER.Debug("pInput AFTER ReplaceInternalValues: " & pInput)
Return oResult
Catch ex As Exception
LOGGER.Error(ex)
@ -166,7 +169,6 @@ Public Class clsPatterns
End If
result = ReplacePattern(result, PATTERN_USER, CURRENT_CLICKED_PROFILE_TITLE)
End While
LOGGER.Debug("pInput AFTER ReplaceUserValues: " & input)
Return result
Catch ex As Exception
LOGGER.Error(ex)
@ -246,16 +248,15 @@ Public Class clsPatterns
oReplaceValue = ERROR_REPLACE_VALUE
End Select
If oIsSQL = True Then
LOGGER.Debug($"IS_SQL = True - oReplaceValue = {oReplaceValue}")
'LOGGER.Debug($"IS_SQL = True - oReplaceValue = {oReplaceValue}")
'LOGGER.Debug($"oReplaceValue = {oReplaceValue}")
oReplaceValue = oReplaceValue.Replace("'", "''")
LOGGER.Debug($"oReplaceValue = {oReplaceValue}")
End If
oResult = ReplacePattern(oResult, PATTERN_CTRL, oReplaceValue)
End If
oTryCounter += 1
End While
LOGGER.Debug("pInput AFTER ReplaceControlValues: " & pInput)
Return oResult
Catch ex As Exception
LOGGER.Error(ex)
@ -290,7 +291,6 @@ Public Class clsPatterns
' Increase counter by 10 to avoid DDOSing the Windream Service
oTryCounter += 10
End While
LOGGER.Debug("sql AFTER ReplaceWindreamIndicies: " & pInput)
Return oResult
Catch ex As Exception
LOGGER.Error(ex)

2
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -617,6 +617,8 @@ Public Class frmValidator
End If
'oSql = clsPatterns.ReplaceUserValues(sqlStatement, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_LANGUAGE, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID)
'oSql = clsPatterns.ReplaceInternalValues(oSql)
oSQLStatement = clsPatterns.ReplaceAllValues(oSQLStatement, PanelValidatorControl, True)
If IsNothing(oSQLStatement) Then
Continue For