#!/local/bin/hs -gif
puts "Content-Length: 323\n" ;
puts "Content-type: text/html\n\n" ;

global ;
if ( !exists ( SOAP:Envelope ) ) SOAP:Envelope = "No SOAP:Envelope" ;

list html = {
  list head,
  list body = {
    list div = {
      list h3 = "The SOAP Server has access to all the elements of the message:",
      list p = {
        list ul = {
          list li = {"Method = ",str(SOAP:Envelope.SOAP:Body)},
          list li = {"Namespace 'm' = ",str(SOAP:Envelope.SOAP:Body.m:DoLogin.xmlns:m)},
          list li = {"Username = ",SOAP:Envelope.SOAP:Body.m:DoLogin.UserName},
          list li = {"Password = ",SOAP:Envelope.SOAP:Body.m:DoLogin.Password}
        }
      }
    }
  }
} ;

puts "<?xml version=\"1.0\" encoding=\"utf-8\" ?>" ;
xdescribe html ;