Source for file 8.php
Documentation is available at 8.php
* Description: client for the SOAP Calendar Server
die ('PHP 5 has problems with PEAR::SOAP Client (8.0RC3)
- remove @ before include below to see why');
if (!@include('SOAP'.DIRECTORY_SEPARATOR. 'Client.php')) {
die ('You must have PEAR::SOAP installed');
// Just to save manaul modification...
$basePath = explode('/', $_SERVER['SCRIPT_NAME']);
$basePath = implode('/', $basePath);
$url = 'http://'. $_SERVER['SERVER_NAME']. $basePath. '/7.php?wsdl';
if (!isset ($_GET['y'])) $_GET['y'] = date('Y');
if (!isset ($_GET['m'])) $_GET['m'] = date('n');
$wsdl = new SOAP_WSDL ($url);
echo ( '<pre>'. $wsdl->generateProxyCode (). '</pre>' );
$calendarClient = $wsdl->getProxy ();
$month = $calendarClient->getMonth ((int) $_GET['y'],(int) $_GET['m']);
if ( PEAR ::isError ($month) ) {
die ( $month->toString () );
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<title> Calendar over the Wire </title>
<h1>Calendar Over the Wire (featuring PEAR::SOAP)</h1>
<caption><b> <?php echo ( $month->monthname ); ?></b></caption>
<th>M</th><th>T</th><th>W</th><th>T</th><th>F</th><th>S</th><th>S</th>
foreach ( $month->days as $day ) {
if ( $day->isFirst === 1 )
if ( $day->isEmpty === 1 ) {
echo ( "<td>". $day->day. "</td>" );
if ( $day->isLast === 1 )
<p>Enter Year and Month to View:</p>
<form action=" <?php echo ( $_SERVER['PHP_SELF'] ); ?>" method="get">
Year: <input type="text" size="4" name="y" value=" <?php echo ( $_GET['y'] ); ?>">
Month: <input type="text" size="2" name="m" value=" <?php echo ( $_GET['m'] ); ?>">
<input type="submit" value="Fetch Calendar">
Documentation generated on Mon, 11 Mar 2019 15:37:47 -0400 by phpDocumentor 1.4.4. PEAR Logo Copyright © PHP Group 2004.
|