@@ -6243,28 +6243,6 @@ rchr(time) Quit ""
62436243</Class >
62446244
62456245
6246- <Class name =" Frontier.UnitTest.Reporter.Email" >
6247- <Super >Frontier.Reporter.Email</Super >
6248- <TimeCreated >64538,36222.588241</TimeCreated >
6249-
6250- <Method name =" SetupAccount" >
6251- <ReturnType >%Status</ReturnType >
6252- <Implementation ><![CDATA[
6253- // If you want to test this reporter you need to configure the following properties.
6254- set ..SMTPServerLocation = "smtp.youremailhost.com"
6255- set ..SMTPServerPort = 25 // Your SMTP server port
6256- set ..SenderEmail = "sender_email@email.com"
6257- set ..SenderPassword = "sender_password"
6258- set ..DestinationEmail = "destination@email.com"
6259- set ..TemplateLocation = "/InterSystems/Cache/CSP/user/email-template.html"
6260- set ..SSLConfiguration = "SSL Configuration name"
6261- set ..UseSTARTTLS = 1 // 1, "" or 0
6262- return $$$OK
6263- ]]> </Implementation >
6264- </Method >
6265- </Class >
6266-
6267-
62686246<Class name =" Frontier.UnitTest.Router" >
62696247<Super >Frontier.Router</Super >
62706248<TimeCreated >64503,35090.481271</TimeCreated >
@@ -7341,25 +7319,4 @@ The purpose is to show that custom authentication strategies can be used exclusi
73417319]]> </Implementation >
73427320</Method >
73437321</Class >
7344-
7345-
7346- <Routine name =" frontier" type =" INC" ><![CDATA[
7347- #include %ZEN.Utils
7348- #include %occErrors
7349-
7350- #define ltrim(%str) $zstrip(%str, "<W")
7351- #define rtrim(%str) $zstrip(%str, ">W")
7352- #define trim(%str) $zstrip(%str, "<>W")
7353- #define trimQuote(%str) $zstrip(%str, "<>", $c(34))
7354- #define IsSQLQuery(%str) ($$$ucase($extract($$$trim(%str), 6)) = "SELECT")
7355- #define KeyGroup(%requestKey) $zstrip($zstrip(%requestKey, "<=N"), "=>N")
7356- #define KeyIndex(%requestKey) $zstrip($zstrip(%requestKey, "<=N"), "<=A")
7357- #define FormatBoolean(%value) $case(%value, 1: "true", 0: "false", : %value)
7358- #define BooleanToBinary(%value) $case(%value, "true": 1, "false": 0, : %value)
7359- #define NormalizeClassName(%cn) if $l(%cn, ".") = 1 && ($e(%cn) = "%") set %cn = "%Library."_$e(%cn, 2, *)
7360- #define OSSlash $case($$$isWINDOWS, 1: "\", : "/")
7361- #define AssertClassExists(%o) return:'$isobject(%o) $$$ERROR($$$ClassDoesNotExist, %o)
7362- #define NULL $s($$$isWINDOWS : "//./nul", 1: "/dev/null")
7363- #define ObjectOrNull(%obj) $select($isobject(%obj) : %obj, 1: "null")
7364- ]]> </Routine >
73657322</Export >
0 commit comments