dany/luasocket
1
0
Fork 0
mirror of https://github.com/lunarmodules/luasocket.git synced 2024-12-25 12:08:21 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fixed stupid bugs.

Browse Source
This commit is contained in:
Diego Nehab 2004-07-02 23:47:52 +00:00
parent c3e0063b43
commit 471334c3d0
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
etc/lp.lua
View File

@ -26,10 +26,11 @@ local function connect(localhost, option)
if option.localbind then
-- bind to a local port (if we can)
local localport = 721
local done, err
repeat
skt = test(socket.tcp())
try(skt:settimeout(30))
local done, err = skt:bind(localhost, localport)
done, err = skt:bind(localhost, localport)
if not done then
localport = localport + 1
skt:close()
@ -38,6 +39,7 @@ local function connect(localhost, option)
until localport > 731
test(skt, err)
else skt = test(socket.tcp()) end
print("'" .. host .. "'")
try(skt:connect(host, port))
return { skt = skt, try = try }
end

10
samples/lpr.lua
View File

@ -27,16 +27,14 @@ if not arg or not arg[1] then
end
do
local s="opt = {"
for i = 2 , table.getn(arg), 1 do
s = s .. string.gsub(arg[i],"[%s%c%p]*([%w]*)=([\"]?[%w%s_!@#$%%^&*()<>:;]+[\"]\?\.?)","%1%=\"%2\",\n")
local opt = {}
local pat = "[%s%c%p]*([%w]*)=([\"]?[%w%s_!@#$%%^&*()<>:;]+[\"]\?\.?)"
for i = 2, table.getn(arg), 1 do
string.gsub(arg[i], pat, function(name, value) opt[name] = value end)
end
s = s .. "};\n"
assert(loadstring(s))();
if not arg[2] then
return usage()
end
if arg[1] ~= "query" then
r,e=lp.send(arg[1],opt)
io.stdout:write(tostring(r or e),'\n')