4f727340cd3669683d1f44b9c3f0f0b48f4f75da
[codereview/qtwebservice.git] / examples / webservice / official / root / examples / smtp.qml
1 /* Copyright (c) 2012 QtWebService Project.
2  * All rights reserved.
3  *
4  * Redistribution and use in source and binary forms, with or without
5  * modification, are permitted provided that the following conditions are met:
6  *     * Redistributions of source code must retain the above copyright
7  *       notice, this list of conditions and the following disclaimer.
8  *     * Redistributions in binary form must reproduce the above copyright
9  *       notice, this list of conditions and the following disclaimer in the
10  *       documentation and/or other materials provided with the distribution.
11  *     * Neither the name of the QtWebService nor the
12  *       names of its contributors may be used to endorse or promote products
13  *       derived from this software without specific prior written permission.
14  *
15  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
16  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
17  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
18  * DISCLAIMED. IN NO EVENT SHALL QTWEBSERVICE BE LIABLE FOR ANY
19  * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
20  * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
21  * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
22  * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
23  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
24  * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
25  */
26
27 import QtWebService.HTML 5.0
28 import QtWebService.Utils 1.0
29 import QtWebService.SMTP 1.0
30 import "./components"
31
32 Html {
33     UserInput {
34         id: input
35
36         property string action
37         property string email
38
39         onSubmit: {
40             switch(input.action) {
41             case 'send':
42                 if (smtp.validateAddress(input.email)) {
43                     http.loading = true;
44                     smtp.send({'to': [input.email], 'subject': 'smtp test mail', 'body': 'sent in http://silk.qtquick.me/examples/smtp.qml'});
45                 } else {
46                     msg.text = '%1 is not a valid e-mail address'.arg(QtWebService.escapeHTML(input.email))
47                 }
48
49                 break;
50             default:
51                 break;
52             }
53         }
54     }
55
56     WebServiceConfig {
57         id: config
58         property variant email: {'host': '', 'encrypt': '', 'port': 0, 'username': '', 'password': '', 'from': '' }
59     }
60
61     Smtp {
62         id: smtp
63         host: config.email.host
64         encrypt: config.email.encrypt
65         port: config.email.port
66         username: config.email.username
67         password: config.email.password
68         from: config.email.from
69         onSent: {
70             msg.text = 'Sent to %1'.arg(email.to);
71             form.enabled = false;
72             http.loading = false;
73         }
74         onError: {
75             msg.text = message;
76             http.loading = false;
77         }
78     }
79
80     Head {
81         Title { id: title; text: "Send email" }
82     }
83
84     Body {
85         H1 { text: title.text }
86         P {
87             enabled: smtp.host.length === 0
88             Text {
89                 text: 'to test smtp.qml you have to add email config to <a href="/config.qml">silkrc</a> like below.'
90             }
91             Pre {
92                 text: '{
93     "email": {
94         "host": "<em>smtp server address</em>"
95         , "encrypt": "<em>SSL</em>"
96         , "port": <em>465</em>
97         , "username": "<em>username</em>"
98         , "password": "<em>password</em>"
99         , "from": "<em>your mail address</em>"
100     }
101 }'
102             }
103         }
104         P {
105             Text { id: msg }
106         }
107         Form {
108             id: form
109             enabled: smtp.host.length > 0
110             method: 'POST'
111             Text { text: "e-mail address: " }
112             Input { type: 'text'; name: 'email'; value: QtWebService.escapeHTML(input.email) }
113             Input { type: 'submit'; value: 'Send' }
114             Input { type: 'hidden'; name: 'action'; value: 'send' }
115         }
116     }
117 }