Robert Gilbert

#!/usr/bin/lua local socket = require("socket") -- this is only for sleep :| local io = require("io") local ltn12 = require("ltn12") local curl = require("curl") local par_url = require("socket.url") -- this is only to parse urls :| local work_dir = string.match(arg[0],[[^@?(.*[\/])[^\/]-$]]) if (work_dir == nil) then work_dir = "." end package.path = work_dir .. "?.lua;" .. work_dir .. "lib/?.lua;" .. package.path require ("getopt_alt") require ("string_fun") function getum(cur_url,red) if verbose >= 3 then verbosie=1 else verbosie=0 end local head_text = {} local body_text = {} local function WriteMemoryCallbackH(s) head_text[#head_text+1] = s return string.len(s) end local function WriteMemoryCallbackB(s) body_text[#body_text+1] = s return string.len(s) end local c = curl.easy_init() c:setopt(curl.OPT_COOKIEJAR, cookiejar) c:setopt(curl.OPT_COOKIEFILE, cookiejar) -- cookies from previous session if exist c:setopt(curl.OPT_VERBOSE, verbosie) c:setopt(curl.OPT_URL,cur_url) c:setopt(curl.OPT_FOLLOWLOCATION,1) --c:setopt(curl.OPT_HEADERFUNCTION,WriteMemoryCallbackH) c:setopt(curl.OPT_WRITEFUNCTION, WriteMemoryCallbackB) c:setopt(curl.OPT_USERAGENT, agent99) c:setopt(curl.OPT_MAXREDIRS,10) --max 10 to stop redirect loops c:setopt(curl.OPT_AUTOREFERER,1) c:setopt(curl.OPT_SSL_VERIFYHOST,0) --don't care about your certs c:setopt(curl.OPT_SSL_VERIFYPEER,0) code,h_err=c:perform() if curl.close then c:close() end if h_err then print("Error getting: ".. h_err .. "\n") return 0 end --print(table.concat(head_text,'')) -- see header note above return table.concat(body_text,'') end function fform(linkf) for forms in string.gmatch(page, "