PHP Classes

File: test_http_date_soap.php

Recommend this page to a friend!
  Classes of Manuel Lemos   SOAP server class   test_http_date_soap.php   Download  
File: test_http_date_soap.php
Role: Auxiliary script
Content type: text/plain
Description: Script to display the results of a date SOAP request in a Web page
Class: SOAP server class
SOAP protocol requests handler.
Author: By
Last change:
Date: 22 years ago
Size: 2,271 bytes
 

Contents

Class file image Download
<?
/*
 * test_http_date_soap.html
 *
 * @(#) $Header: /cvsroot/PHPlibrary/test_http_date_soap.html,v 1.1 2001/06/06 17:06:20 mlemos Exp $
 *
 */

?><HTML>
<HEAD>
<TITLE>Test for Manuel Lemos's PHP HTTP class making a request to da date SOAP server</TITLE>
</HEAD>
<BODY>
<H1><CENTER>Test for Manuel Lemos's PHP HTTP class making a request to da date SOAP server</CENTER></H1>
<HR>
<?
 
require("http.php");

 
set_time_limit(0);
 
$http_connection=new http_class;
 
$error=$http_connection->Open(array(
 
"HostName"=>"localhost",
 
"HostPort"=>80
 
));
 if(
$error=="")
 {
 
$error=$http_connection->SendRequest(array(
  
"RequestMethod"=>"POST",
  
"RequestURI"=>"/date.soap",
  
"Headers"=>array(
   
"Host"=>"localhost",
   
"User-Agent"=>"Manuel Lemos HTTP class SOAP test script",
   
"Pragma"=>"no-cache",
   
"SoapAction"=>"",
   
"EndPointURL"=>"http://localhost:80/date.soap",
   
"Content-Type"=>"text/xml; charset=\"utf-8\""
  
),
  
"Body"=>
   
"<SOAP-ENV:Envelope xmlns:SOAP-ENV=\"http://schemas.xmlsoap.org/soap/envelope/\" xmlns:xsi=\"http://www.w3.org/1999/XMLSchema-instance\" xmlns:xsd=\"http://www.w3.org/1999/XMLSchema\">
     <SOAP-ENV:Body>
      <m:getdate>
       <time>1</time>
       <utc>1</utc>
      </m:getdate>
     </SOAP-ENV:Body>
    </SOAP-ENV:Envelope>"
 
));
  if(
$error=="")
  {
  
$headers=array();
  
$error=$http_connection->ReadReplyHeaders(&$headers);
   if(
$error=="")
   {
    echo
"<UL>\n<H2>Headers:</H2>\n<PRE>\n";
    for(
Reset($headers),$header=0;$header<count($headers);Next($headers),$header++)
    {
    
$header_name=Key($headers);
     if(
GetType($headers[$header_name])=="array")
     {
      for(
$header_value=0;$header_value<count($headers[$header_name]);$header_value++)
       echo
$header_name.": ".$headers[$header_name][$header_value],"\r\n";
     }
     else
      echo
$header_name.": ".$headers[$header_name],"\r\n";
    }
    echo
"</PRE>\n<H2>Body:</H2>\n<PRE>\n";
    for(;;)
    {
    
$error=$http_connection->ReadReplyBody(&$body,1000);
     if(
$error!=""
    
|| strlen($body)==0)
      break;
     echo
HtmlSpecialChars($body);
    }
    echo
"</PRE>\n</UL>\n";
   }
  }
 
$http_connection->Close();
 }
 if(
strcmp($error,""))
  echo
"<H2><CENTER>Error: $error</CENTER></H2>\n";
?>
<HR>
</BODY>
</HTML>