hget

--hget
local function printUsage()
    print( "Usages:" )
    print( "hget <code> <filename>" )
end

local tArgs = { ... }
if #tArgs ~= 2 then
    printUsage()
    return
end

if not http then
    print( "hget requires http API" )
    print( "Set enableAPI_http to 1 in mod_ComputerCraft.cfg" )
    return
end
local sCode
local l = #tArgs[1]
if l > 15 then
    sCode = string.sub(tArgs[1],25,34)
elseif l < 15 then
    sCode = tArgs[1]
else printUsage()
return
end


-- Determine file to download
local sFile = tArgs[2]
local sPath = shell.resolve( sFile )
if fs.exists( sPath ) then
    fs.delete( sPath )
end
-- GET the contents from pastebin
write( "Connecting" )
local response = http.get("http://www.hastebin.com/raw/"..textutils.urlEncode( sCode ))
if response then
    term.clear()
    term.setCursorPos(1,1)
    print( "Success." )

    local sResponse = response.readAll()
    response.close()

    local file = fs.open( sPath, "w" )
    file.write( sResponse )
    file.close()
else
    print( "Failed." )
end