Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, TACL
46958 Tandem Computers Incorporated F–25
#PUSH l^spidef^subvol
#PUSH dns^manager
#PUSH dns^version
#PUSH dns^request
#PUSH dns^response
[#DEF dns^send^error TEXT |BODY| NOTOPEN]
#PUSH dns^errortext
[#DEF dns^transmode TEXT |BODY| 0]
[#IF ([#ARGUMENT /VALUE l^spidef^subvol/ SUBVOL END] = 2) |THEN|
#SET l^spidef^subvol [ #DEFAULTS ]
]
sink [#load/keep 1/[l^spidef^subvol].zspitacl]
sink [#load/keep 1/[l^spidef^subvol].zdnstacl]
#SET zdns^val^ssid
[zspi^val^tandem].[zspi^ssn^zdns].[zdns^val^version] #POP
l^spidef^subvol
?SECTION dns ROUTINE
==
== Sample DNS TACL application.
==
#FILTER _ERROR _BREAK dns_exception
[#CASE [#EXCEPTION]
|_CALL| [#CASE [#ARGUMENT KEYWORD/WORDLIST ADD/
KEYWORD/WORDLIST ALTER/
KEYWORD/WORDLIST DELETE/
KEYWORD/WORDLIST OPEN/
KEYWORD/WORDLIST SETUP/
KEYWORD/WORDLIST WHATS/]
|1| dns^add^alias [#REST]
|2| dns^delete^dnsname [#REST]
|3| dns^open [#REST]
|4| dns^setup [#REST]
|5| dns^lookup [#REST]
]