/*
** This script shows how to obtain
** informations about a node
*/

address 'MAILMANAGER'

MM_GetNodeInfo '39:102/1.0@amiganet' nodeinfo

if RC=0 THEN DO
	say 'ADDRDIM   :' nodeinfo.addrdim
	say 'PACKDIM   :' nodeinfo.packdim
	say 'FLAVOR    :' nodeinfo.echoflavor
	say 'PKTPW     :' nodeinfo.pktpw
	say 'AREAFIXPW :' nodeinfo.areafixpw
	say 'TICKPW    :' nodeinfo.tickpw
	say 'USERFLAGS :' nodeinfo.userflags
	DO i=0 FOR nodeinfo.GROUPCOUNT
		say 'GROUP' i 'NAME  :' nodeinfo.GROUPNAME.i
		say 'GROUP' i 'LEVEL :' nodeinfo.GROUPLEVEL.i
		END
	DO i=0 FOR nodeinfo.AREA.COUNT
		say 'AREA' i ':' nodeinfo.AREA.i
		END
	DO i=0 FOR nodeinfo.TICKAREA.COUNT
		say 'TICKAREA' i ':' nodeinfo.TICKAREA.i
		END
	END