2018.11.12. / official release

 - initial release

Author: phpoc

README.md

@@ -0,0 +1,14 @@
+## PHPoC Shield
+PHPoC source codes to use [PHPoC (WiFi) Shield for Arduino](http://www.phpoc.com/phpoc_shield_for_arduino.php).
+
+## Available Web Applications
+* Setup
+* Web Serial Monitor
+* Web Serial Plotter
+* Web Remote Push
+* Web Remote Slide
+* Web Remote Pad
+
+## References
+* [PHPoC Shield for Arduino](https://www.phpoc.com/support/manual/p4s-348-r2_user_manual/)
+* [PHPoC WiFi Shield for Arduino](https://www.phpoc.com/support/manual/p4s-347-r2_user_manual/)

cmd_smtp.php

@@ -0,0 +1,183 @@
+<?php
+
+define("MAX_DATA_LEN", 1024);
+
+$smtp_to_email = "";
+$smtp_to_name = "";
+$smtp_subject = "";
+$smtp_data = "";
+
+function cmd_smtp_server($cmd)
+{
+	if(count($cmd) < 4)
+	{
+		esmtp_msa("", 0);
+		return 0;
+	}
+
+	echo "cmd_smtp_server: ", $cmd[2], " ", $cmd[3], "\r\n";
+
+	esmtp_msa($cmd[2], (int)$cmd[3]);
+
+	return 0;
+}
+
+function cmd_smtp_login($cmd)
+{
+	if(count($cmd) < 4)
+		return 0;
+
+	echo "cmd_smtp_login: ", $cmd[2], " ", $cmd[3], "\r\n";
+
+	esmtp_auth($cmd[2], $cmd[3]);
+
+	return 0;
+}
+
+function cmd_smtp_from($cmd)
+{
+	global $pid_pipe_data;
+
+	if(count($cmd) < 3)
+		return 0;
+
+	$email = $cmd[2];
+	$name = "";
+
+	pid_read($pid_pipe_data, $name);
+
+	echo "cmd_smtp_from: \"$name\" <$email>\r\n";
+
+	esmtp_account($email, $name);
+
+	return 0;
+}
+
+function cmd_smtp_to($cmd)
+{
+	global $smtp_to_email, $smtp_to_name;
+	global $pid_pipe_data;
+
+	if(count($cmd) < 3)
+		return 0;
+
+	$email = $cmd[2];
+	$name = "";
+
+	pid_read($pid_pipe_data, $name);
+
+	echo "cmd_smtp_to: \"$name\" <$email>\r\n";
+
+	$smtp_to_email = $email;
+	$smtp_to_name = $name;
+
+	return 0;
+}
+
+function cmd_smtp_subject($cmd)
+{
+	global $smtp_subject;
+	global $pid_pipe_data;
+
+	pid_read($pid_pipe_data, $smtp_subject);
+
+	echo "cmd_smtp_subject: $smtp_subject\r\n";
+
+	return 0;
+}
+
+function cmd_smtp_data($cmd)
+{
+	global $smtp_data;
+	global $pid_pipe_data;
+
+	if(count($cmd) > 2)
+	{
+		if($cmd[2] == "begin")
+		{
+			echo "cmd_smtp_data: begin\r\n";
+			$smtp_data = "";
+			return 0;
+		}
+		else
+			return -EINVAL;
+	}
+
+	$rbuf = "";
+	$rlen = pid_read($pid_pipe_data, $rbuf);
+
+	echo "$rbuf";
+
+	if((strlen($smtp_data) + $rlen) <= MAX_DATA_LEN)
+		$smtp_data .= $rbuf;
+
+	return 0;
+}
+
+function cmd_smtp_send($cmd)
+{
+	global $smtp_to_email, $smtp_to_name;
+	global $smtp_subject, $smtp_data;
+
+	if(count($cmd) > 2)
+	{
+		if($cmd[2] == "ip6")
+			$ip6 = true;
+		else
+			return -EINVAL;
+	}
+	else
+		$ip6 = false;
+
+	esmtp_setup(UDP_ID_DNS, TCP_ID_SMTP, "", $ip6);
+	esmtp_start($smtp_to_email, $smtp_to_name, $smtp_subject, $smtp_data);
+
+	return 0;
+}
+
+function cmd_smtp_status($cmd)
+{
+	global $pid_pipe_data;
+
+	$msg = esmtp_loop();
+
+	if($msg === false)
+		return 0;
+	else
+	{
+		if(!$msg)
+			return 999;
+		else
+			return (int)$msg;
+	}
+}
+
+function cmd_smtp($cmd)
+{
+	if(count($cmd) < 2)
+		return -EINVAL;
+
+	switch($cmd[1])
+	{
+		case "server":
+			return cmd_smtp_server($cmd);
+		case "login":
+			return cmd_smtp_login($cmd);
+		case "from":
+			return cmd_smtp_from($cmd);
+		case "to":
+			return cmd_smtp_to($cmd);
+		case "subject":
+			return cmd_smtp_subject($cmd);
+		case "data":
+			return cmd_smtp_data($cmd);
+		case "send":
+			return cmd_smtp_send($cmd);
+		case "status":
+			return cmd_smtp_status($cmd);
+		default:
+			return -EINVAL;
+	}
+}
+
+?>