/*  This filter will take a userid and password and return an UDP
    datagram compatible with the TACACS server.
 
    Written by MMM 12/2/96
*/
trace o
 
Version = d2c(128)          /* Extended TAC request */
Type = d2c(1)               /* LOGIN request        */
Nonce = d2c(1,2)            /* Tracking value       */
Response = d2c(0)           /* zero in request..... */
Reason = d2c(0)
Result1 = d2c(0,4)
Destination = d2c(0,4)
Dest_port = d2c(0,2)
Line = d2c(0,2)
Result2 = d2c(0,4)
Result3 = d2c(0,2)
 
do forever
   'readto Record'
   if(RC^=0) then leave
   parse var Record Userid Passw .
   User_len = d2c(length(Userid))
   Pass_len = d2c(length(Passw))
   Data = Userid||Passw
   Auth_rec = Version||Type||Nonce||User_len||Pass_len||Response||Reason,
           ||Result1||Destination||Dest_port||Line||Result2||Result3,
           ||Data
   'output' Auth_rec
end;