gs fan / GSwifi_old

GainSpan Wi-Fi library see: http://mbed.org/users/gsfan/notebook/gainspan_wifi/

Fork of GSwifi_old by gs fan

GainSpan Wi-Fi library

The GS1011 is an ultra low power 802.11b wireless module from GainSpan.

see: http://mbed.org/users/gsfan/notebook/gainspan_wifi/

Information

Please change the baud rate in advance.

  • ATB=115200
  • AT&W0

It may be better and sometimes faster.
GSwifi gs(p13, p14, baud);

Heavily modified new library: http://mbed.org/users/gsfan/code/GSwifi

ゲインスパン Wi-Fi モジュール ライブラリ

ゲインスパン社の低電力 Wi-Fiモジュール（無線LAN） GS1011 シリーズ用のライブラリです。

解説: http://mbed.org/users/gsfan/notebook/gainspan_wifi/

Information

モジュールはあらかじめ次のコマンドでボーレートを変更しておく。

  • ATB=115200
  • AT&W0

場合によってはもっと高速の方がいいかもしれない。クラス宣言時にレート設定をする。
GSwifi gs(p13, p14, baud);

大幅に更新された新しいライブラリ: http://mbed.org/users/gsfan/code/GSwifi

GSwifi_smtp.cpp@19:cad912f5a6ba, 2012-11-06 (annotated)

Committer:
gsfan
Date:
Tue Nov 06 08:54:19 2012 +0000
Revision:
19:cad912f5a6ba
Parent:
18:4b97804c37d1
Child:
20:151b5a4fdd29
fix

Who changed what in which revision?

UserRevisionLine numberNew contents of line
gsfan 18:4b97804c37d1 1 #include "dbg.h"
gsfan 18:4b97804c37d1 2 #include "mbed.h"
gsfan 18:4b97804c37d1 3 #include "GSwifi.h"
gsfan 18:4b97804c37d1 4
gsfan 19:cad912f5a6ba 5 int GSwifi::mail (Host &host, const char *to, const char *from, const char *subject, const char *mesg, const char *user, const char *pwd) {
gsfan 18:4b97804c37d1 6 int ret = -1;
gsfan 18:4b97804c37d1 7 int cid;
gsfan 18:4b97804c37d1 8
gsfan 18:4b97804c37d1 9 if (! _connect || _status != GSSTAT_READY) return -1;
gsfan 18:4b97804c37d1 10
gsfan 18:4b97804c37d1 11 if (host.getIp().isNull()) {
gsfan 18:4b97804c37d1 12 if (getHostByName(host)) {
gsfan 18:4b97804c37d1 13 if (getHostByName(host)) return -1;
gsfan 18:4b97804c37d1 14 }
gsfan 18:4b97804c37d1 15 }
gsfan 18:4b97804c37d1 16 if (host.getPort() == 0) {
gsfan 18:4b97804c37d1 17 host.setPort(25);
gsfan 18:4b97804c37d1 18 }
gsfan 18:4b97804c37d1 19
gsfan 18:4b97804c37d1 20 cid = open(host, GSPROT_TCP);
gsfan 18:4b97804c37d1 21 if (cid < 0) return -1;
gsfan 18:4b97804c37d1 22 DBG("cid %d\r\n", cid);
gsfan 18:4b97804c37d1 23
gsfan 18:4b97804c37d1 24 if (wait_smtp(cid ,220)) goto exit;
gsfan 18:4b97804c37d1 25
gsfan 18:4b97804c37d1 26 // send request
gsfan 18:4b97804c37d1 27 send(cid, "EHLO gainspan\r\n", 15);
gsfan 18:4b97804c37d1 28 wait_ms(100);
gsfan 18:4b97804c37d1 29 if (wait_smtp(cid ,250)) goto exit;
gsfan 18:4b97804c37d1 30
gsfan 18:4b97804c37d1 31 if (user && pwd) {
gsfan 18:4b97804c37d1 32 // smtp auth
gsfan 18:4b97804c37d1 33 char tmp[80], buf[100];
gsfan 18:4b97804c37d1 34 int len;
gsfan 18:4b97804c37d1 35 snprintf(tmp, sizeof(tmp), "%s%c%s%c%s", user, 0, user, 0, pwd);
gsfan 18:4b97804c37d1 36 len = strlen(user) * 2 + strlen(pwd) + 2;
gsfan 18:4b97804c37d1 37 base64encode(tmp, len, buf, sizeof(buf));
gsfan 18:4b97804c37d1 38 send(cid, "AUTH PLAIN ", 11);
gsfan 18:4b97804c37d1 39 send(cid, buf, strlen(buf));
gsfan 18:4b97804c37d1 40 send(cid, "\r\n", 2);
gsfan 18:4b97804c37d1 41 if (wait_smtp(cid ,235)) goto quit;
gsfan 18:4b97804c37d1 42 }
gsfan 18:4b97804c37d1 43
gsfan 18:4b97804c37d1 44 send(cid, "MAIL FROM: ", 11);
gsfan 18:4b97804c37d1 45 send(cid, from, strlen(from));
gsfan 18:4b97804c37d1 46 send(cid, "\r\n", 2);
gsfan 18:4b97804c37d1 47 if (wait_smtp(cid ,250)) goto quit;
gsfan 18:4b97804c37d1 48
gsfan 18:4b97804c37d1 49 send(cid, "RCPT TO: ", 9);
gsfan 18:4b97804c37d1 50 send(cid, to, strlen(to));
gsfan 18:4b97804c37d1 51 send(cid, "\r\n", 2);
gsfan 18:4b97804c37d1 52 if (wait_smtp(cid ,250)) goto quit;
gsfan 18:4b97804c37d1 53
gsfan 18:4b97804c37d1 54 send(cid, "DATA\r\n", 6);
gsfan 18:4b97804c37d1 55 if (wait_smtp(cid ,354)) goto quit;
gsfan 18:4b97804c37d1 56
gsfan 18:4b97804c37d1 57 // mail data
gsfan 18:4b97804c37d1 58 send(cid, mesg, strlen(mesg));
gsfan 18:4b97804c37d1 59 send(cid, "\r\n.\r\n", 5);
gsfan 18:4b97804c37d1 60 if (wait_smtp(cid ,250)) goto quit;
gsfan 18:4b97804c37d1 61 ret = 0;
gsfan 18:4b97804c37d1 62
gsfan 18:4b97804c37d1 63 quit:
gsfan 18:4b97804c37d1 64 send(cid, "QUIT\r\n", 6);
gsfan 18:4b97804c37d1 65 if (wait_smtp(cid ,221)) goto exit;
gsfan 18:4b97804c37d1 66
gsfan 18:4b97804c37d1 67 exit:
gsfan 18:4b97804c37d1 68 close(cid);
gsfan 18:4b97804c37d1 69 return ret;
gsfan 18:4b97804c37d1 70 }
gsfan 18:4b97804c37d1 71
gsfan 18:4b97804c37d1 72 int GSwifi::wait_smtp (int cid, int code) {
gsfan 18:4b97804c37d1 73 Timer timeout;
gsfan 18:4b97804c37d1 74 int i, n, len = 0;
gsfan 18:4b97804c37d1 75 char buf[500], data[100];
gsfan 18:4b97804c37d1 76
gsfan 18:4b97804c37d1 77 // wait responce
gsfan 18:4b97804c37d1 78 timeout.start();
gsfan 18:4b97804c37d1 79 while (timeout.read_ms() < SMTP_TIMEOUT) {
gsfan 18:4b97804c37d1 80 wait_ms(100);
gsfan 18:4b97804c37d1 81 poll();
gsfan 18:4b97804c37d1 82 n = recv(cid, buf, sizeof(buf));
gsfan 18:4b97804c37d1 83 for (i = 0; i < n; i ++) {
gsfan 18:4b97804c37d1 84 if (buf[i] == '\r') continue;
gsfan 18:4b97804c37d1 85 if (buf[i] == '\n') {
gsfan 18:4b97804c37d1 86 if (len == 0) continue;
gsfan 18:4b97804c37d1 87 goto next;
gsfan 18:4b97804c37d1 88 } else
gsfan 18:4b97804c37d1 89 if (len < sizeof(data) - 1) {
gsfan 18:4b97804c37d1 90 data[len] = buf[i];
gsfan 18:4b97804c37d1 91 len ++;
gsfan 18:4b97804c37d1 92 }
gsfan 18:4b97804c37d1 93 }
gsfan 18:4b97804c37d1 94 }
gsfan 18:4b97804c37d1 95 next:
gsfan 18:4b97804c37d1 96 data[len] = 0;
gsfan 18:4b97804c37d1 97 len = 0;
gsfan 18:4b97804c37d1 98 DBG("smtp: %s\r\n", data);
gsfan 18:4b97804c37d1 99 timeout.stop();
gsfan 18:4b97804c37d1 100
gsfan 18:4b97804c37d1 101 // check return code
gsfan 18:4b97804c37d1 102 i = atoi(data);
gsfan 18:4b97804c37d1 103 DBG("smtp status %d\r\n", i);
gsfan 18:4b97804c37d1 104 if (i == code) return 0;
gsfan 18:4b97804c37d1 105
gsfan 18:4b97804c37d1 106 return -1;
gsfan 18:4b97804c37d1 107 }