1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
<?php
// Just an example of a PHP SOAP client for Sympa. You can change to another web service
// of Sympa without difficulty (look at the API of nusoap if you want to learn more).
//
// This need the SOAP library for PHP located at : http://dietrich.ganx4.com/nusoap
// You also need to customize the path to nusoap.php and the $soapServer variable
include('/home/httpd/test/nusoap.php');
require_once('nusoap.php');
$soapclient->debug_flag=true;
global $userEmail;
global $md5;
global $soapServer;
$soapServer = "http://demo.sympa.org/wws/wsdl";
// $parameters = array($list,$email);
$soapclient = new soapclient($soapServer,'wsdl');
ob_start();
if ($_GET['viewSource']) {
echo "<html> <body BGCOLOR=\"#ffffff\" TEXT=\"#cccccc\" LINK=\"#ff9933\" ALINK=\"#ff9933\" VLINK=\"#ff9933\"> \n";
// echo "<CODE>\n";
show_source ( __FILE__);
//echo "</CODE>\n";
}else {
echo "<html> <body BGCOLOR=\"#000099\" TEXT=\"#cccccc\" LINK=\"#ff9933\" ALINK=\"#ff9933\" VLINK=\"#ff9933\"> \n";
if ($_COOKIE['sympaEmail'] && $_COOKIE['sympaMd5']) {
// LOGOUT
if ($_GET['logout'] == 1) {
setcookie ("sympaEmail", "", time() - 3600);
setcookie ("sympaMd5", "", time() - 3600);
echo "<P ALIGN=\"center\"><FONT COLOR=\"#ff0000\">Logged out</FONT></P>\n";
}else {
$userEmail = $_COOKIE['sympaEmail'];
$md5 = $_COOKIE['sympaMd5'];
}
// LOGIN
}elseif ($_POST['email'] && $_POST['pwd']) {
$md5 = $soapclient->call('login',array($_POST['email'],$_POST['pwd']));
if (gettype($md5) == "string") {
$userEmail = $_POST['email'];
setcookie("sympaEmail",$userEmail);
setcookie("sympaMd5",$md5);
}else {
echo "<P ALIGN=\"center\"><FONT COLOR=\"#ff0000\">Authentication failed</FONT></P>\n";
}
}
if (isset($userEmail)) {
echo "<FONT COLOR=\"99ccff\">logged in as ".$userEmail."</FONT><BR>\n";
echo "[<A HREF=\"".$_SERVER['PHP_SELF']."?logout=1\">logout</A>]\n";
}else {
echo "This PHP script shows how you can easily provide access to a Sympa mailing list service from another server, using a different programming language using web services.<BR><BR>
This script does not access Sympa data, nor does it reinvent the mailing list server's job. It does remote high level procedure calls on Sympa server using <A HREF=\"http://www.w3.org/2002/ws/\">SOAP</A>. A Sympa SOAP server is running on the server ; it currently implements a subset of Sympa features including Login, Subscription, Signoff, Lists, Which,... The list of available remote procedures are published in a WSDL document that is fetched by the SOAP client.<BR><BR>
Read Sympa documentation about the SOAP server for more details.<BR><BR><HR>";
echo "You need to login first :<BR><BR>\n";
echo "<form action=\"".$_SERVER['PHP_SELF']."\" method=\"post\">
Email: <input type=\"text\" name=\"email\"><br>
Password: <input type=\"password\" name=\"pwd\">
<input type=\"submit\" name=\"submit\" value=\"Login\">
</form>
";
}
if (isset($userEmail)) {
// SIGNOFF
if ($_GET['signoff'] == 1) {
$res = $soapclient->call('authenticateAndRun',array($userEmail,$md5,'signoff',array($_GET['list'])));
if (gettype($res) == 'array') {
echo "<P ALIGN=\"center\"><FONT COLOR=\"#ff0000\">Unsubscription failed<BR>".$res['faultstring']." : ".$res['detail']."</FONT></P>\n";
}else {
echo "<P ALIGN=\"center\"><FONT COLOR=\"#99ccff\">Successfully unsubscribed</FONT></P>\n";
}
// SUBSCRIBE
}elseif ($_GET['subscribe'] == 1) {
$res = $soapclient->call('authenticateAndRun',array($userEmail,$md5,'subscribe',array($_GET['list'])));
if (gettype($res) == 'array') {
echo "<P ALIGN=\"center\"><FONT COLOR=\"#ff0000\">Subscription failed<BR>".$res['faultstring']." : ".$res['detail']."</FONT></P>\n";
}else {
echo "<P ALIGN=\"center\"><FONT COLOR=\"#99ccff\">Successfully subscribed</FONT></P>\n";
}
}
// WHICH
echo "<BR><BR>Mailing lists you are subscribed to :<DL>\n";
//$res = $soapclient->call('authenticateAndRun',array($userEmail,$md5,'which'));
$res = $soapclient->call('authenticateAndRun',array($userEmail,$md5,'complexWhich'));
if (isset($res) && gettype($res) == 'array') {
foreach ($res as $list) {
echo "<DD>";
list ($list['listName'],$list['listDomain']) = explode("@",$list['listAddress']);
$subscribed[$list['listAddress']] = True;
echo "<P>".$list['listAddress']." [<A HREF=\"".$_SERVER['PHP_SELF']."?signoff=1&list=".$list['listName']."\">signoff</A>] [<A HREF=\"".$list['homepage']."\">info</A>]<BR>".$list['subject']."</P>\n";
}
echo "</DL>\n";
}else {
echo "<DL><DD>No subscription</DL><BR>\n";
}
// LISTS
echo "Other mailing lists :<DL>\n";
$res = $soapclient->call('authenticateAndRun',array($userEmail,$md5,'complexLists'));
if (isset($res) && gettype($res) == 'array') {
foreach ($res as $list) {
echo "<DD>";
list ($list['listName'],$list['listDomain']) = explode("@",$list['listAddress']);
if (isset($subscribed[$list['listAddress']])) {
next;
}else {
echo "<P>".$list['listAddress']." [<A HREF=\"".$_SERVER['PHP_SELF']."?subscribe=1&list=".$list['listName']."\">subscribe</A>] [<A HREF=\"".$list['homepage']."\">info</A>]<BR>".$list['subject']." \n</P>";
}
}
echo "</DL>\n";
}else {
echo "<DL><DD>No subscription</DL><BR>\n";
}
}
}
ob_end_flush();
unset($soapclient);
echo "<P ALIGN=\"right\">
<TABLE WIDTH=\"100%\">
<TR><TD ALIGN=\"left\">
<I><center>This is a sample PHP interface for Sympa using SOAP (<A HREF=\"".$_SERVER['PHP_SELF']."?viewSource=1\">View source</A>)</center></I>
</TD><TD ALIGN=\"right\">
<A HREF=\"http://www.sympa.org\"><IMG BORDER=\"0\" SRC=\"http://www.sympa.org/logos/logo-sympa-150x49.gif\"></A></TD>
</TABLE>
</P>";
?>
</body>
</html>
|
