/* assemble packet: */ packet.pvno := protocol version; /* 5 */ packet.msg-type := message type; /* KRB_ERROR */ get system_time; packet.stime, packet.susec := system_time; packet.realm, packet.sname := server name; if (client time available) then packet.ctime, packet.cusec := client_time; endif packet.error-code := error code; if (client name available) then packet.cname, packet.crealm := client name; endif if (error text available) then packet.e-text := error text; endif if (error data available) then packet.e-data := error data; endif