source: branches/feature-module-update/data/module/SOAP/example/email_server.php @ 16957

Revision 16957, 2.0 KB checked in by naka, 15 years ago (diff)

PEAR::SOAPモジュールアップ

Line 
1<?php
2//
3// +----------------------------------------------------------------------+
4// | PHP Version 4                                                        |
5// +----------------------------------------------------------------------+
6// | Copyright (c) 1997-2003 The PHP Group                                |
7// +----------------------------------------------------------------------+
8// | This source file is subject to version 2.02 of the PHP license,      |
9// | that is bundled with this package in the file LICENSE, and is        |
10// | available at through the world-wide-web at                           |
11// | http://www.php.net/license/2_02.txt.                                 |
12// | If you did not receive a copy of the PHP license and are unable to   |
13// | obtain it through the world-wide-web, please send a note to          |
14// | license@php.net so we can mail you a copy immediately.               |
15// +----------------------------------------------------------------------+
16// | Authors: Shane Caraveo <Shane@Caraveo.com>   Port to PEAR and more   |
17// +----------------------------------------------------------------------+
18//
19// $Id: email_server.php,v 1.5 2005/03/10 23:16:40 yunosh Exp $
20//
21
22/*
23This reads a message from stdin, and calls the soap server defined
24
25You can use this from qmail by creating a .qmail-soaptest file with:
26    | /usr/bin/php /path/to/email_server.php
27*/
28
29# include the email server class
30require_once 'SOAP/Server/Email.php';
31
32$server = new SOAP_Server_Email;
33
34/* tell server to translate to classes we provide if possible */
35$server->_auto_translation = true;
36
37require_once 'example_server.php';
38
39$soapclass = new SOAP_Example_Server();
40$server->addObjectMap($soapclass,'urn:SOAP_Example_Server');
41
42# read stdin
43$fin = fopen('php://stdin','rb');
44if (!$fin) exit(0);
45
46$email = '';
47while (!feof($fin) && $data = fread($fin, 8096)) {
48  $email .= $data;
49}
50
51fclose($fin);
52
53# doit!
54$server->service($email);
55
56?>
Note: See TracBrowser for help on using the repository browser.