access perl script

Communicates with authentication broker via a socket and processes response

access routine 

Input: username, password, ipaddress,authbroker location, NT domain
Output: Returns array, first value 0/1 for success/failure, second a hashref
containing user information or diagnostic message
None-PIE module used: IO::Socket

PDL

Construct xrep message (XML dialect understood by authbroker)
Open socket
Send message
Receive response
Close socket
If response is ""
    Exit with non zero status
Else
    Call ParseXML routine on response
    If response has logonresponse tag
        If logonresponse has userinfo subtag
	    Construct return array
	    Return array
	Else
	    Exit with non zero status
    Elsif response has diagnostic tag
    	Construct return array
	Return array
    Else
    	Exit with non zero status

File also contains copy of ParseXML subroutine (see UIG.pdl)