Gammon Forum

<form action ="post">
	<input name = "character" type = "text" value = "" /> <input name = "questNum" type = "text" value = "" /> <input name = "time" type = "text" value = "" /> 
</form>

Microsoft Windows [Version 10.0.17134.191]
(c) 2018 Microsoft Corporation. All rights reserved.

C:\Windows\System32>cd c:\luasocket

c:\luasocket>lua
Lua 5.0.2  Copyright (C) 1994-2004 Tecgraf, PUC-Rio
> dofile("lua.lua")
> http = require "http"
> a, b, c = http.request("http://localhost/mm/abby.php")
> print(a, b, c)
Hello World
        200     table: 00A3F930
>

Me: What is your name?
You: My name is Areadien

You: My name is Areadien

url = "http://10.0.0.2/hms/dates.php",

request_body = fixrequest { StartDate = '1 Jan 2018', Range = '20' }

http = require "socket.http" 

-- converts characters that are not alphanumeric
-- into the form %xx (for use in cookies, forms etc.)
function urlencode (s)
 return (string.gsub (s, "%W", 
        function (str)
          return string.format ("%%%02X", string.byte (str))
        end  ))
end -- function urlencode

-- turn a table of POST values into a url-encoded string
function fixrequest (req)
  local t = { }
  for k, v in pairs (req) do
    table.insert (t, urlencode(k) .. '=' .. urlencode(v))
  end -- for
  return table.concat (t, "&")
end -- fixrequest 

request_body = fixrequest { StartDate = '1 Jan 2018', Range = '20' }
response_body = {}

socket.http.request {
                    url = "http://10.0.0.2/hms/dates.php",
                    method = "POST",
                    headers = {
                              ["Content-Length"] = string.len(request_body),
                              ["Content-Type"] =  "application/x-www-form-urlencoded"
                              },   -- end of headers
                    source = ltn12.source.string(request_body),
                    sink = ltn12.sink.table(response_body)
                    }  -- end of request table

require "tprint"
tprint (response_body)

<form METHOD="post" ACTION=/hms/dates.php>
Starting date: <input type=text Name="StartDate" size=20 maxlength=20 value="" autofocus>
+/- days or end date: <input type=text Name="Range" size=20 maxlength=20 value="">
<input Type=submit Name=Submit Value="Calculate">
</form>

function questUpload (name, line, wildcards)

-- put stuff here

end -- questUpload

<aliases>
	<alias enabled="y" match="^upload$" regexp="y" send_to="12" sequence="100">
		<send>testUpload()</send>
	</alias>
</aliases>

function urlencode (s)
	return string.gsub(s, "%W", string.format("%%%02X", string.byte(str)))
end -- function urlencode

function fixrequest(req)
	local t = {}
	for k, v in pairs (req) do
		table.insert(t, urlencode(k) .. '=' .. urlencode(v))
	end -- for
	return table.concat(t, "&")
end -- fixrequest 

function testUpload()
	http = require "socket.http" 
	request_body = fixrequest {character = "Aberdeen", qnum = 43, time = 1534372981}
	response_body = {}
	socket.http.request {
    	url = "http://localhost/mm/abby.php",
		method = "POST",
		headers = {
			["Content-Length"] = string.len(request_body),
			["Content-Type"] =  "application/x-www-form-urlencoded"
		},   -- end of headers
		source = ltn12.source.string(request_body),
		sink = ltn12.sink.table(response_body)
	}  -- end of request table
	cNote("done")
end --function testUpload

<form action = "" method = "post">
	<input name = "character" type = "text" value = "" /> <input name = "qnum" type = "text" value = "" /> <input name = "completed" type = "text" value = "" />
	<input type = "submit" value = "Submit" />
</form>

<?php
print_r($_POST);
if(!empty($_POST))
{
    $connect = @mysqli_connect('localhost', 'mm_i', 'password', 'mm');
    if($connect === false)
    {
        bn('<p>');
        bn('<span>Error: Unable to connect to MySQL on line 6 in mm/abby.php: ' . mysqli_connect_error() . '</span>');
        bn('</p>');
        bn('<p>');
        exit;
    }
    else
    {
        $result = mysqli_query($connect, "INSERT INTO myquests VALUES(NULL, '{$_POST['character']}', {$_POST['qnum']}, {$_POST['completed']});")
            or die("Could not execute sql query <b>" . htmlentities($query) . "</b> on line $line in mm/abby.php: " . mysqli_error($connect));
        mysqli_close($connect) or die("Could not close server connection on line " . __LINE__ . " in mm/abby.php because: " . mysqli_error());
    }
}?>
<form action = "" method = "post">'
    <input name = "character" type = "text" value = "" /> <input name = "qnum" type = "text" value = "" /> <input name = "completed" type = "text" value = "" /><br />
    <input type = "submit" value = "Submit" />
</form>

CREATE TABLE IF NOT EXISTS `myquests` (
  `entry` int(15) NOT NULL AUTO_INCREMENT,
  `charName` varchar(12) NOT NULL,
  `qnum` int(5) NOT NULL,
  `completion` int(10) NOT NULL,
  PRIMARY KEY (`entry`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1 AUTO_INCREMENT=1 ;

Immediate execution
[string "Script file"]:799: bad argument #1 to 'byte' (string expected, got nil)
stack traceback:
        [C]: in function 'byte'
        [string "Script file"]:799: in function 'urlencode'
        [string "Script file"]:805: in function 'fixrequest'
        [string "Script file"]:812: in function 'testUpload'
        [string "Alias: "]:1: in main chunk
Error context in script:
 795 : 
 796 : 
 797 : 
 798 : function urlencode (s)
 799*:  return string.gsub(s, "%W", string.format("%%%02X", string.byte(str)))
 800 : end -- function urlencode
 801 : 
 802 : function fixrequest(req)
 803 :  local t = {}