Remove redirect code from http-title.

Use the implicit redirects inside http.lua.

scripts/http-title.nse

@@ -46,21 +46,16 @@ end
 
 action = function(host, port)
 
-  local data, result, redir, title, loc
+  local data, result, redir, title
 
   data = http.get( host, port, '/' )
 
   -- check for a redirect
-  if data and data.status and tostring( data.status ):match( "30%d" ) and data.header and data.header.location then
-    redir = ("Did not follow redirect to %s"):format( data.header.location )
-    local url = url.parse( data.header.location )
-    local loc = redirect_ok( url, host, port )
-    if loc then
-      -- follow redirect
-      redir = ("Requested resource was %s://%s%s%s"):format( url.scheme or port.service, loc.host, (url.port and (":%s"):format(url.port)) or "", loc.path )
-      data = http.get( loc.host, loc.port, loc.path )
+  if data.location then
+    if data.status and tostring( data.status ):match( "30%d" ) then
+      redir = ("Did not follow redirect to %s"):format( data.location[#data.location] )
     else
-      loc = nil -- killed so we know we didn't follow a redirect
+      redir = ("Requested resource was %s"):format( data.location[#data.location] )
     end
   end
 
@@ -70,7 +65,7 @@ action = function(host, port)
   else
     -- debug msg and no output; or no debug msg and some output if we were redirected.
     if not redir then stdnse.print_debug( "http-title.nse: %s did not respond with any data.", host.targetname or host.ip ) end
-    return (redir and ("%s %s no page was returned."):format( redir, (loc and ", but") or "and" )) or nil
+    return (redir and ("%s and no page was returned."):format( redir )) or nil
   end
 
   -- try and match title tags
@@ -89,106 +84,3 @@ action = function(host, port)
   return (redir and ("%s\n%s"):format( result, redir )) or result
 
 end
-
-
--- Check if the given URL is okay to redirect to. Return a table with keys
--- "host", "port", and "path" if okay, nil otherwise.
-function redirect_ok(url, host, port)
-  -- A battery of tests a URL is subjected to in order to decide if it may be
-  -- redirected to. They incrementally fill in loc.host, loc.port, and loc.path.
-  local rules = {
-    function (loc, url, host, port)
-      -- bail if userinfo is present
-      return ( url.userinfo and false ) or true
-    end,
-
-    function (loc, url, host, port)
-      -- if present, url.host must be the same scanned target
-      -- loc.host must be set if returning true
-      if not url.host then
-        loc.host = ( host.targetname or host.ip )
-        return true
-      end
-      if url.host and
-      url.host == host.ip or
-      url.host == host.targetname or
-      url.host == ( host.name ~= '' and host.name ) or
-      is_vhost( url.host, host ) then -- dns lookup as last resort
-        loc.host = url.host
-        return true
-      end
-      return false
-    end,
-
-    function (loc, url, host, port)
-      -- if present, url.port must be the same as the scanned port
-      -- loc.port must be set if returning true
-      if (not url.port) or tonumber(url.port) == port.number then
-        loc.port = port
-        return true
-      end
-      return false
-    end,
-
-    function (loc, url, host, port)
-      -- if url.scheme is present then it must match the scanned port
-      if url.scheme and url.port then return true end
-      if url.scheme and url.scheme ~= port.service then return false end
-      return true
-    end,
-
-    function (loc, url, host, port)
-      -- path cannot be unchanged unless host has changed
-      -- loc.path must be set if returning true
-      if ( not url.path or url.path == "/" ) and url.host == ( host.targetname or host.ip) then return false end
-      if not url.path then loc.path = "/"; return true end
-      loc.path = ( ( url.path:sub(1,1) == "/" and "" ) or "/" ) .. url.path -- ensuring leading slash
-      return true
-    end,
-
-    function (loc, url, host, port)
-      -- always true - jut add the query to loc.path
-      if url.query then loc.path = ("%s?%s"):format( loc.path, url.query ) end
-      return true
-    end
-  }
-
-  local loc = {}
-  for i, rule in ipairs( rules ) do
-    if not rule( loc, url, host, port ) then return nil end
-  end
-
-  if loc.host and loc.port and loc.path then
-    return loc
-  else
-    return nil
-  end
-end
-
-function is_vhost( rhost, host )
-
-  -- query is sane?
-  if rhost:match( ":" ) or rhost:match( "^[%d%.]+$" ) then
-    return false
-  end
-
-  local opts = {}
-  opts.dtype = "A"
-  opts.retAll = true
-  if host.ip:match( ":" ) then opts.dtype = "AAAA" end
-
-  local status, answer = dns.query( rhost, opts )
-
-  if not status then
-    stdnse.print_debug( "http-title.nse: DNS query failed for target %s.  Query was: %s. Error: %s", host.targetname or host.ip, rhost, answer or "nil" )
-    return false
-  end
-
-  for i, ip_rec in ipairs( answer ) do
-    if ipOps.compare_ip( ip_rec, "eq", host.ip ) then
-      return true
-    end
-  end
-
-  return false
-end