$Web Num LogMsg: Difference between revisions

From m204wiki
Jump to navigation Jump to search
(Automatically generated page update)
mNo edit summary
Line 12: Line 12:
<var>$Web_Num_LogMsg</var> takes no arguments and returns a number.  
<var>$Web_Num_LogMsg</var> takes no arguments and returns a number.  


If the port definition contains a <var>[[LOGMSGI parameter|LOGMSGI]]</var> parameter, <var>$Web_Num_LogMsg</var> will always return a 0, otherwise it will return the number of messages issued to the <var class="product">[[Janus Web Server]]</var> thread's "terminal" at logon time. <var>$Web_Num_LogMsg</var> and <var>$Web_LogMsg</var> are probably most useful in a <code>JANUS WEB ON LOGONERR</code> routine but can be used in any <var>JANUS WEB ON</var> routine.
If the port definition contains a <var>[[LOGMSGI (JANUS DEFINE parameter)|LOGMSGI]]</var> parameter, <var>$Web_Num_LogMsg</var> will always return a 0, otherwise it will return the number of messages issued to the <var class="product">[[Janus Web Server]]</var> thread's "terminal" at logon time. <var>$Web_Num_LogMsg</var> and <var>$Web_LogMsg</var> are probably most useful in a <code>JANUS WEB ON LOGONERR</code> routine but can be used in any <var>JANUS WEB ON</var> routine.
<p class="code">FOR %I FROM 1 TO $Web_Num_LogMsg
<p class="code">For %i From 1 TO $Web_Num_LogMsg
%MSG = $Web_LogMsg(%I)
%msg = $Web_LogMsg(%i)
IF $SUBSTR(%MSG, 1, 10) EQ 'M204.1500:' THEN
  If $substr(%msg, 1, 10) Eq 'M204.1500:' Then
JUMP TO GOTACF2MSG
    Jump To GOTACF2MSG
END IF
  End If
END FOR
End For
</p>
</p>



Revision as of 19:43, 14 July 2014

Number of saved logon messages


$Web_Num_LogMsg retrieves the number of saved logon messages.

Syntax

%count = $Web_Num_LogMsg


$Web_Num_LogMsg takes no arguments and returns a number.

If the port definition contains a LOGMSGI parameter, $Web_Num_LogMsg will always return a 0, otherwise it will return the number of messages issued to the Janus Web Server thread's "terminal" at logon time. $Web_Num_LogMsg and $Web_LogMsg are probably most useful in a JANUS WEB ON LOGONERR routine but can be used in any JANUS WEB ON routine.

For %i From 1 TO $Web_Num_LogMsg %msg = $Web_LogMsg(%i) If $substr(%msg, 1, 10) Eq 'M204.1500:' Then Jump To GOTACF2MSG End If End For

Example

This is an example of how $Web_Num_LogMsg can be used to scan logon messages looking for an ACF2 message that perhaps indicates the reason for a logon failure. Depending on the reason (incorrect password, expired password, suspended account), appropriate action can be taken.

See also