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

Revision 16957, 2.5 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_pop_server.php,v 1.6 2005/03/10 23:16:40 yunosh Exp $
20//
21
22/* include the Email server class, which knows how to
23   parse a standard email as a soap message */
24
25require_once 'SOAP/Server/Email.php';
26
27/* include a class to access POP3 */
28
29require_once 'Net/POP3.php';
30
31/* create the SOAP Server object */
32
33$server = new SOAP_Server_Email;
34
35/* tell server to translate to classes we provide if possible */
36$server->_auto_translation = true;
37
38require_once 'example_server.php';
39
40$soapclass = new SOAP_Example_Server();
41$server->addObjectMap($soapclass,'urn:SOAP_Example_Server');
42
43
44/* Connect to a POP3 server and read the messages */
45
46$pop3 =& new Net_POP3();
47if ($pop3->connect('localhost', 110)) {
48    if ($pop3->login('username', 'password')) {
49        $listing = $pop3->getListing();
50
51    /* now loop through each message, and call the
52           SOAP server with that message */
53
54        foreach ($listing as $msg) {
55
56            $email = $pop3->getMsg($msg['msg_id']);
57
58            /* this is where we actually handle the SOAP
59               response.  The SOAP::Server::Email class we
60               are using will send the SOAP response to
61               the sender via email. */
62
63            if ($email) {
64                $server->client($email);
65
66                $pop3->deleteMsg($msg['msg_id']);
67            }
68        }
69    }
70    $pop3->disconnect();
71}
72?>
Note: See TracBrowser for help on using the repository browser.