| User | Revision | Line number | New contents of line |
|---|
| mbed714 |
0:d616ece2d859
|
1
|
|
| mbed714 |
0:d616ece2d859
|
2
|
/*
|
| mbed714 |
0:d616ece2d859
|
3
|
Copyright (c) 2010 Donatien Garnier (donatiengar [at] gmail [dot] com)
|
| mbed714 |
0:d616ece2d859
|
4
|
|
| mbed714 |
0:d616ece2d859
|
5
|
Permission is hereby granted, free of charge, to any person obtaining a copy
|
| mbed714 |
0:d616ece2d859
|
6
|
of this software and associated documentation files (the "Software"), to deal
|
| mbed714 |
0:d616ece2d859
|
7
|
in the Software without restriction, including without limitation the rights
|
| mbed714 |
0:d616ece2d859
|
8
|
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
| mbed714 |
0:d616ece2d859
|
9
|
copies of the Software, and to permit persons to whom the Software is
|
| mbed714 |
0:d616ece2d859
|
10
|
furnished to do so, subject to the following conditions:
|
| mbed714 |
0:d616ece2d859
|
11
|
|
| mbed714 |
0:d616ece2d859
|
12
|
The above copyright notice and this permission notice shall be included in
|
| mbed714 |
0:d616ece2d859
|
13
|
all copies or substantial portions of the Software.
|
| mbed714 |
0:d616ece2d859
|
14
|
|
| mbed714 |
0:d616ece2d859
|
15
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
| mbed714 |
0:d616ece2d859
|
16
|
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
| mbed714 |
0:d616ece2d859
|
17
|
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
| mbed714 |
0:d616ece2d859
|
18
|
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
| mbed714 |
0:d616ece2d859
|
19
|
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
| mbed714 |
0:d616ece2d859
|
20
|
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
| mbed714 |
0:d616ece2d859
|
21
|
THE SOFTWARE.
|
| mbed714 |
0:d616ece2d859
|
22
|
*/
|
| mbed714 |
0:d616ece2d859
|
23
|
|
| mbed714 |
0:d616ece2d859
|
24
|
#include "netCfg.h"
|
| mbed714 |
0:d616ece2d859
|
25
|
#if NET_GPRS_MODULE
|
| mbed714 |
0:d616ece2d859
|
26
|
|
| mbed714 |
0:d616ece2d859
|
27
|
#include "GPRSModuleNetIf.h"
|
| mbed714 |
0:d616ece2d859
|
28
|
|
| mbed714 |
0:d616ece2d859
|
29
|
#define __DEBUG
|
| mbed714 |
0:d616ece2d859
|
30
|
#include "dbg/dbg.h"
|
| mbed714 |
0:d616ece2d859
|
31
|
|
| mbed714 |
0:d616ece2d859
|
32
|
GPRSModuleNetIf::GPRSModuleNetIf(PinName tx, PinName rx, int baud /*= 115200*/) : PPPNetIf(NULL), m_serial(tx, rx)
|
| mbed714 |
0:d616ece2d859
|
33
|
{
|
| mbed714 |
0:d616ece2d859
|
34
|
PPPNetIf::m_pIf = new GPRSModem();
|
| mbed714 |
0:d616ece2d859
|
35
|
m_serial.baud(baud);
|
| mbed714 |
0:d616ece2d859
|
36
|
}
|
| mbed714 |
0:d616ece2d859
|
37
|
|
| mbed714 |
0:d616ece2d859
|
38
|
GPRSModuleNetIf::~GPRSModuleNetIf()
|
| mbed714 |
0:d616ece2d859
|
39
|
{
|
| mbed714 |
0:d616ece2d859
|
40
|
delete PPPNetIf::m_pIf;
|
| mbed714 |
0:d616ece2d859
|
41
|
}
|
| mbed714 |
0:d616ece2d859
|
42
|
|
| mbed714 |
0:d616ece2d859
|
43
|
PPPErr GPRSModuleNetIf::connect(const char* apn /*= NULL*/, const char* userId /*= NULL*/, const char* password /*= NULL*/) //Connect using GPRS
|
| mbed714 |
0:d616ece2d859
|
44
|
{
|
| mbed714 |
0:d616ece2d859
|
45
|
|
| mbed714 |
0:d616ece2d859
|
46
|
DBG("Powering on module.\n")
|
| mbed714 |
0:d616ece2d859
|
47
|
if(!setOn()) //Could not power on module
|
| mbed714 |
0:d616ece2d859
|
48
|
{
|
| mbed714 |
0:d616ece2d859
|
49
|
DBG("Could not power on module.\n");
|
| mbed714 |
0:d616ece2d859
|
50
|
return PPP_MODEM;
|
| mbed714 |
0:d616ece2d859
|
51
|
}
|
| mbed714 |
0:d616ece2d859
|
52
|
|
| mbed714 |
0:d616ece2d859
|
53
|
//wait(10); //Wait for module to init.
|
| mbed714 |
0:d616ece2d859
|
54
|
|
| mbed714 |
0:d616ece2d859
|
55
|
ATErr atErr;
|
| mbed714 |
0:d616ece2d859
|
56
|
for(int i=0; i<3; i++)
|
| mbed714 |
0:d616ece2d859
|
57
|
{
|
| mbed714 |
0:d616ece2d859
|
58
|
atErr = m_pIf->open(&m_serial); //3 tries
|
| mbed714 |
0:d616ece2d859
|
59
|
if(!atErr)
|
| mbed714 |
0:d616ece2d859
|
60
|
break;
|
| mbed714 |
0:d616ece2d859
|
61
|
DBG("Could not open AT If, trying again.\n");
|
| mbed714 |
0:d616ece2d859
|
62
|
wait(4);
|
| mbed714 |
0:d616ece2d859
|
63
|
}
|
| mbed714 |
0:d616ece2d859
|
64
|
|
| mbed714 |
0:d616ece2d859
|
65
|
if(atErr)
|
| mbed714 |
0:d616ece2d859
|
66
|
{
|
| mbed714 |
0:d616ece2d859
|
67
|
setOff();
|
| mbed714 |
0:d616ece2d859
|
68
|
return PPP_MODEM;
|
| mbed714 |
0:d616ece2d859
|
69
|
}
|
| mbed714 |
0:d616ece2d859
|
70
|
|
| mbed714 |
0:d616ece2d859
|
71
|
DBG("AT If opened.\n");
|
| mbed714 |
0:d616ece2d859
|
72
|
|
| mbed714 |
0:d616ece2d859
|
73
|
PPPErr pppErr;
|
| mbed714 |
0:d616ece2d859
|
74
|
for(int i=0; i<3; i++)
|
| mbed714 |
0:d616ece2d859
|
75
|
{
|
| mbed714 |
0:d616ece2d859
|
76
|
DBG("Trying to connect.\n");
|
| mbed714 |
0:d616ece2d859
|
77
|
pppErr = PPPNetIf::GPRSConnect(apn, userId, password);
|
| mbed714 |
0:d616ece2d859
|
78
|
if(!pppErr)
|
| mbed714 |
0:d616ece2d859
|
79
|
break;
|
| mbed714 |
0:d616ece2d859
|
80
|
DBG("Could not connect.\n");
|
| mbed714 |
0:d616ece2d859
|
81
|
wait(4);
|
| mbed714 |
0:d616ece2d859
|
82
|
}
|
| mbed714 |
0:d616ece2d859
|
83
|
if(pppErr)
|
| mbed714 |
0:d616ece2d859
|
84
|
{
|
| mbed714 |
0:d616ece2d859
|
85
|
setOff();
|
| mbed714 |
0:d616ece2d859
|
86
|
return pppErr;
|
| mbed714 |
0:d616ece2d859
|
87
|
}
|
| mbed714 |
0:d616ece2d859
|
88
|
|
| mbed714 |
0:d616ece2d859
|
89
|
DBG("Connected.\n");
|
| mbed714 |
0:d616ece2d859
|
90
|
|
| mbed714 |
0:d616ece2d859
|
91
|
return PPP_OK;
|
| mbed714 |
0:d616ece2d859
|
92
|
}
|
| mbed714 |
0:d616ece2d859
|
93
|
|
| mbed714 |
0:d616ece2d859
|
94
|
PPPErr GPRSModuleNetIf::disconnect()
|
| mbed714 |
0:d616ece2d859
|
95
|
{
|
| mbed714 |
0:d616ece2d859
|
96
|
DBG("Disconnecting...\n");
|
| mbed714 |
0:d616ece2d859
|
97
|
PPPErr pppErr = PPPNetIf::disconnect();
|
| mbed714 |
0:d616ece2d859
|
98
|
if(pppErr)
|
| mbed714 |
0:d616ece2d859
|
99
|
return pppErr;
|
| mbed714 |
0:d616ece2d859
|
100
|
|
| mbed714 |
0:d616ece2d859
|
101
|
m_pIf->close();
|
| mbed714 |
0:d616ece2d859
|
102
|
|
| mbed714 |
0:d616ece2d859
|
103
|
DBG("Powering off module.\n")
|
| mbed714 |
0:d616ece2d859
|
104
|
setOff(); //Power off module
|
| mbed714 |
0:d616ece2d859
|
105
|
|
| mbed714 |
0:d616ece2d859
|
106
|
DBG("Off.\n")
|
| mbed714 |
0:d616ece2d859
|
107
|
|
| mbed714 |
0:d616ece2d859
|
108
|
return PPP_OK;
|
| mbed714 |
0:d616ece2d859
|
109
|
}
|
| mbed714 |
0:d616ece2d859
|
110
|
|
| mbed714 |
0:d616ece2d859
|
111
|
|
| mbed714 |
0:d616ece2d859
|
112
|
#endif
|
Daniel Peter