ViewPoint Manual

Customizing ViewPoint
ViewPoint Manual—426801-001
6-18
Adding Extras Screens
Adding Extras Screens
As provided by Compaq, the ViewPoint application includes predefined screens for
TACL, system or network status, and event display. However, you can extend the
Example 6-5. Sample TACL Routine to Examine ViewPoint Clipboard
?SECTION utils:dnsinfo ROUTINE
==** [utils:dnsinfo <event text>]
==* Look up info on all devices named in <event text>.
#FRAME
#PUSH :^device :^dnsout
[#LOOP |WHILE| [#MORE] |DO|
[#IF ([#ARGUMENT /VALUE :^device/
FILENAME WORD/SPACE/] = 1) |THEN|
[#IF ([#MATCH \*.$* [:^device]] or
[#MATCH $* [:^device]]) |THEN|
dnsc /OUTV :^dnsout/ INFO [:^device]
[#IF NOT [#EMPTYV :^dnsout] |THEN|
#OUTPUT Device [:^device]:
#OUTPUTV :^dnsout
#SET :^dnsout ]
]
]
]
#UNFRAME
?SECTION dnsinfo ROUTINE
==** DNSINFO
==* Look at all event messages in the clipboard
==* and get DNS info for each.
#FRAME
#PUSH :^clipboard :^line :^clipfilename
#IF [#ARGUMENT END]
#SET :^clipfilename [#DEFAULTS /SAVED/].zzvpclip
[#IF NOT [#FILEINFO /EXISTENCE/ [:^clipfilename]] |THEN|
== no clipboard file
#RESET FRAMES
#RETURN
]
[#IF NOT [_PCHECK /EXISTENCE/ dnsc] |THEN|
DP DNSCOM /PNAME dnsc, QUIET/
]
#SET /IN [:^clipfilename]/ :^clipboard
PURGE [:^clipfilename]
[#LOOP |WHILE| NOT [#EMPTYV :^clipboard] |DO|
#SET :^LINE [#EXTRACT :^clipboard]
[#IF NOT [#EMPTYV/BLANK/ :^line] |THEN|
#OUTPUT Event: [:^line]
utils:dnsinfo [:^line] ]
]
#UNFRAME