/// if host=0, creates a server otherwise creates a client (and automatically connects). Returns >=0 on success
int net_wiznet_createsocket(JsNetwork *net, unsigned long host, unsigned short port) {
NOT_USED(net);
int sckt = -1;
if (host!=0) { // ------------------------------------------------- host (=client)
//mgg1010 - added random source port - seems to solve problem of repeated GET failing
sckt = socket(net_wiznet_getFreeSocket(), Sn_MR_TCP, (uint16_t)((rand() & 32767) + 2000), 0); // we set nonblocking later
if (sckt<0) return sckt; // error
int res = connect((uint8_t)sckt,(uint8_t*)&host, port);
// now we set nonblocking - so that connect waited for the connection
uint8_t ctl = SOCK_IO_NONBLOCK;
ctlsocket((uint8_t)sckt, CS_SET_IOMODE, &ctl);
if (res == SOCKET_ERROR) {
jsError("Connect failed (err %d)\n", res );
}
} else { // ------------------------------------------------- no host (=server)
sckt = socket(net_wiznet_getFreeSocket(), Sn_MR_TCP, port, SF_IO_NONBLOCK);
listen((uint8_t)sckt);
}
wiznetSocketPorts[sckt&7] = port;
//jsiConsolePrintf("Created socket %d\n", sckt);
return sckt;
}
/*JSON{ "type":"method",
"class" : "Ethernet", "name" : "setIP",
"generate" : "jswrap_ethernet_setIP",
"description" : "Set the current IP address for get an IP from DHCP (if no options object is specified)",
"params" : [ [ "options", "JsVar", "Object containing IP address options `{ ip : '1,2,3,4', subnet, gateway, dns }`, or do not supply an object in otder to force DHCP."] ],
"return" : ["bool", "True on success"]
}*/
bool jswrap_ethernet_setIP(JsVar *wlanObj, JsVar *options) {
NOT_USED(wlanObj);
if (networkState != NETWORKSTATE_ONLINE) {
jsError("Not connected to the internet");
return false;
}
bool success = false;
wiz_NetInfo gWIZNETINFO;
ctlnetwork(CN_GET_NETINFO, (void*)&gWIZNETINFO);
if (jsvIsObject(options)) {
_eth_getIP_set_address(options, "ip", &gWIZNETINFO.ip[0]);
_eth_getIP_set_address(options, "subnet", &gWIZNETINFO.sn[0]);
_eth_getIP_set_address(options, "gateway", &gWIZNETINFO.gw[0]);
_eth_getIP_set_address(options, "dns", &gWIZNETINFO.dns[0]);
gWIZNETINFO.dhcp = NETINFO_STATIC;
success = true;
} else {
// DHCP
uint8_t DHCPisSuccess = getIP_DHCPS(net_wiznet_getFreeSocket(), &gWIZNETINFO);
if (DHCPisSuccess == 1) {
// info in lease_time.lVal
success = true;
} else {
jsWarn("DHCP failed");
success = false;
}
}
ctlnetwork(CN_SET_NETINFO, (void*)&gWIZNETINFO);
return success;
}
/*JSON{
"type" : "method",
"class" : "Ethernet",
"name" : "setIP",
"generate" : "jswrap_ethernet_setIP",
"params" : [
["options","JsVar","Object containing IP address options `{ ip : '1,2,3,4', subnet, gateway, dns, mac }`, or do not supply an object in order to force DHCP."],
["options","JsVar","An optional `callback(err)` function to invoke when ip is set. `err==null` on success, or a string on failure."]
],
"return" : ["bool","True on success"]
}
Set the current IP address or get an IP from DHCP (if no options object is specified)
If 'mac' is specified as an option, it must be a string of the form `"00:01:02:03:04:05"`
*/
bool jswrap_ethernet_setIP(JsVar *wlanObj, JsVar *options, JsVar *callback) {
NOT_USED(wlanObj);
if (networkState != NETWORKSTATE_ONLINE) {
jsExceptionHere(JSET_ERROR, "Not connected to the internet");
return false;
}
JsNetwork net;
if (!networkGetFromVar(&net)) return false;
const char *errorMessage = 0;
wiz_NetInfo gWIZNETINFO;
ctlnetwork(CN_GET_NETINFO, (void*)&gWIZNETINFO);
if (!gWIZNETINFO.mac[0] && !gWIZNETINFO.mac[1] &&
!gWIZNETINFO.mac[2] && !gWIZNETINFO.mac[3] &&
!gWIZNETINFO.mac[4] && !gWIZNETINFO.mac[5]) {
// wow - no mac address - WIZ550BoB? Set up a simple one
// in WIZnet's range of addresses
gWIZNETINFO.mac[0]=0x00;
gWIZNETINFO.mac[1]=0x08;
gWIZNETINFO.mac[2]=0xDC;
gWIZNETINFO.mac[3]=0x01;
gWIZNETINFO.mac[4]=0x02;
gWIZNETINFO.mac[5]=0x03;
}
if (jsvIsObject(options)) {
_eth_getIP_set_address(options, "ip", &gWIZNETINFO.ip[0]);
_eth_getIP_set_address(options, "subnet", &gWIZNETINFO.sn[0]);
_eth_getIP_set_address(options, "gateway", &gWIZNETINFO.gw[0]);
_eth_getIP_set_address(options, "dns", &gWIZNETINFO.dns[0]);
JsVar *info = jsvObjectGetChild(options, "mac", 0);
if (info) {
char buf[64];
jsvGetString(info, buf, sizeof(buf));
networkParseMACAddress(&gWIZNETINFO.mac[0], buf);
// TODO: check failure?
jsvUnLock(info);
}
gWIZNETINFO.dhcp = NETINFO_STATIC;
errorMessage = 0; // all ok
} else {
// DHCP
uint8_t DHCPisSuccess = getIP_DHCPS(net_wiznet_getFreeSocket(), &gWIZNETINFO);
if (DHCPisSuccess == 1) {
// info in lease_time.lVal
errorMessage = 0; // all ok
} else {
errorMessage = "DHCP failed";
jsWarn(errorMessage);
}
}
ctlnetwork(CN_SET_NETINFO, (void*)&gWIZNETINFO);
networkFree(&net);
// Schedule callback if a function was provided
if (jsvIsFunction(callback)) {
JsVar *params[1];
params[0] = errorMessage ? jsvNewFromString(errorMessage) : jsvNewWithFlags(JSV_NULL);
jsiQueueEvents(NULL, callback, params, 1);
jsvUnLock(params[0]);
}
return errorMessage==0;
}
/// Get an IP address from a name. Sets out_ip_addr to 0 on failure
void net_wiznet_gethostbyname(JsNetwork *net, char * hostName, unsigned long* out_ip_addr) {
NOT_USED(net);
if (dns_query(0, net_wiznet_getFreeSocket(), (uint8_t*)hostName) == 1) {
*out_ip_addr = *(unsigned long*)&Server_IP_Addr[0];
}
}
/*JSON{
"type" : "method",
"class" : "Ethernet",
"name" : "setIP",
"generate" : "jswrap_ethernet_setIP",
"params" : [
["options","JsVar","Object containing IP address options `{ ip : '1,2,3,4', subnet, gateway, dns, mac }`, or do not supply an object in order to force DHCP."]
],
"return" : ["bool","True on success"]
}
Set the current IP address or get an IP from DHCP (if no options object is specified)
If 'mac' is specified as an option, it must be a string of the form `"00:01:02:03:04:05"`
*/
bool jswrap_ethernet_setIP(JsVar *wlanObj, JsVar *options) {
NOT_USED(wlanObj);
if (networkState != NETWORKSTATE_ONLINE) {
jsError("Not connected to the internet");
return false;
}
JsNetwork net;
if (!networkGetFromVar(&net)) return false;
bool success = false;
wiz_NetInfo gWIZNETINFO;
ctlnetwork(CN_GET_NETINFO, (void*)&gWIZNETINFO);
if (!gWIZNETINFO.mac[0] && !gWIZNETINFO.mac[1] &&
!gWIZNETINFO.mac[2] && !gWIZNETINFO.mac[3] &&
!gWIZNETINFO.mac[4] && !gWIZNETINFO.mac[5]) {
// wow - no mac address - WIZ550BoB? Set up a simple one
// in WIZnet's range of addresses
gWIZNETINFO.mac[0]=0x00;
gWIZNETINFO.mac[1]=0x08;
gWIZNETINFO.mac[2]=0xDC;
gWIZNETINFO.mac[3]=0x01;
gWIZNETINFO.mac[4]=0x02;
gWIZNETINFO.mac[5]=0x03;
}
if (jsvIsObject(options)) {
_eth_getIP_set_address(options, "ip", &gWIZNETINFO.ip[0]);
_eth_getIP_set_address(options, "subnet", &gWIZNETINFO.sn[0]);
_eth_getIP_set_address(options, "gateway", &gWIZNETINFO.gw[0]);
_eth_getIP_set_address(options, "dns", &gWIZNETINFO.dns[0]);
JsVar *info = jsvObjectGetChild(options, "mac", 0);
if (info) {
char buf[64];
jsvGetString(info, buf, sizeof(buf));
networkParseMACAddress(&gWIZNETINFO.mac[0], buf);
// TODO: check failure?
jsvUnLock(info);
}
gWIZNETINFO.dhcp = NETINFO_STATIC;
success = true;
} else {
// DHCP
uint8_t DHCPisSuccess = getIP_DHCPS(net_wiznet_getFreeSocket(), &gWIZNETINFO);
if (DHCPisSuccess == 1) {
// info in lease_time.lVal
success = true;
} else {
jsWarn("DHCP failed");
success = false;
}
}
ctlnetwork(CN_SET_NETINFO, (void*)&gWIZNETINFO);
networkFree(&net);
return success;
}
