| 1 | <?php |
|---|
| 2 | /** |
|---|
| 3 | * This reads a message from stdin, and calls the SOAP server defined. |
|---|
| 4 | * |
|---|
| 5 | * You can use this from qmail by creating a .qmail-soaptest file with: |
|---|
| 6 | * <code> |
|---|
| 7 | * | /usr/bin/php /path/to/email_server.php |
|---|
| 8 | * </code> |
|---|
| 9 | * |
|---|
| 10 | * PHP versions 4 and 5 |
|---|
| 11 | * |
|---|
| 12 | * LICENSE: This source file is subject to version 2.02 of the PHP license, |
|---|
| 13 | * that is bundled with this package in the file LICENSE, and is available at |
|---|
| 14 | * through the world-wide-web at http://www.php.net/license/2_02.txt. If you |
|---|
| 15 | * did not receive a copy of the PHP license and are unable to obtain it |
|---|
| 16 | * through the world-wide-web, please send a note to [email protected] so we can |
|---|
| 17 | * mail you a copy immediately. |
|---|
| 18 | * |
|---|
| 19 | * @category Web Services |
|---|
| 20 | * @package SOAP |
|---|
| 21 | * @author Shane Caraveo <[email protected]> Port to PEAR and more |
|---|
| 22 | * @author Jan Schneider <[email protected]> Maintenance |
|---|
| 23 | * @copyright 2003-2007 The PHP Group |
|---|
| 24 | * @license http://www.php.net/license/2_02.txt PHP License 2.02 |
|---|
| 25 | * @link http://pear.php.net/package/SOAP |
|---|
| 26 | */ |
|---|
| 27 | |
|---|
| 28 | /* SOAP_Server_Email */ |
|---|
| 29 | require_once 'SOAP/Server/Email.php'; |
|---|
| 30 | $server = new SOAP_Server_Email; |
|---|
| 31 | |
|---|
| 32 | /* Tell the server to translate to classes we provide if possible. */ |
|---|
| 33 | $server->_auto_translation = true; |
|---|
| 34 | |
|---|
| 35 | require_once './example_server.php'; |
|---|
| 36 | $soapclass = new SOAP_Example_Server(); |
|---|
| 37 | $server->addObjectMap($soapclass,'urn:SOAP_Example_Server'); |
|---|
| 38 | |
|---|
| 39 | /* Read stdin. */ |
|---|
| 40 | $fin = fopen('php://stdin', 'rb'); |
|---|
| 41 | if (!$fin) { |
|---|
| 42 | exit(1); |
|---|
| 43 | } |
|---|
| 44 | |
|---|
| 45 | $email = ''; |
|---|
| 46 | while (!feof($fin) && $data = fread($fin, 8096)) { |
|---|
| 47 | $email .= $data; |
|---|
| 48 | } |
|---|
| 49 | |
|---|
| 50 | fclose($fin); |
|---|
| 51 | |
|---|
| 52 | /* Do it! */ |
|---|
| 53 | $server->service($email); |
|---|