david
28b02db2ea
git-svn-id: https://192.168.0.254/svn/Proyectos.Incam_SGD/tags/3.7.0.2_original@1 eb19766c-00d9-a042-a3a0-45cb8ec72764
71 lines
2.4 KiB
PHP
71 lines
2.4 KiB
PHP
<?php
|
|
//
|
|
// +----------------------------------------------------------------------+
|
|
// | PHP Version 4 |
|
|
// +----------------------------------------------------------------------+
|
|
// | Copyright (c) 1997-2003 The PHP Group |
|
|
// +----------------------------------------------------------------------+
|
|
// | This source file is subject to version 2.02 of the PHP license, |
|
|
// | that is bundled with this package in the file LICENSE, and is |
|
|
// | available at through the world-wide-web at |
|
|
// | http://www.php.net/license/2_02.txt. |
|
|
// | If you did not receive a copy of the PHP license and are unable to |
|
|
// | obtain it through the world-wide-web, please send a note to |
|
|
// | license@php.net so we can mail you a copy immediately. |
|
|
// +----------------------------------------------------------------------+
|
|
// | Authors: Shane Caraveo <Shane@Caraveo.com> Port to PEAR and more |
|
|
// +----------------------------------------------------------------------+
|
|
//
|
|
// $Id$
|
|
//
|
|
|
|
/* include the Email server class, which knows how to
|
|
parse a standard email as a soap message */
|
|
|
|
require_once 'SOAP/Server/Email_Gateway.php';
|
|
|
|
/* include a class to access POP3 */
|
|
|
|
require_once 'Net/POP3.php';
|
|
|
|
/* create the SOAP Server object */
|
|
|
|
$server = new SOAP_Server_Email_Gateway('http://localhost/soap_interop/server_round2.php');
|
|
|
|
/* tell server to translate to classes we provide if possible */
|
|
$server->_auto_translation = true;
|
|
|
|
require_once 'example_server.php';
|
|
|
|
$soapclass = new SOAP_Example_Server();
|
|
$server->addObjectMap($soapclass,'urn:SOAP_Example_Server');
|
|
|
|
|
|
/* Connect to a POP3 server and read the messages */
|
|
|
|
$pop3 =& new Net_POP3();
|
|
if ($pop3->connect('localhost', 110)) {
|
|
if ($pop3->login('username', 'password')) {
|
|
$listing = $pop3->getListing();
|
|
|
|
/* now loop through each message, and call the
|
|
SOAP server with that message */
|
|
|
|
foreach ($listing as $msg) {
|
|
|
|
$email = $pop3->getMsg($msg['msg_id']);
|
|
|
|
/* this is where we actually handle the SOAP
|
|
response. The SOAP::Server::Email class we
|
|
are using will send the SOAP response to
|
|
the sender via email. */
|
|
|
|
if ($email) $server->service($email);
|
|
|
|
#$pop3->deleteMsg($msg['msg_id']);
|
|
}
|
|
}
|
|
$pop3->disconnect();
|
|
}
|
|
?>
|