Allow redirect_ok to be a number of redirects to follow (http.lua)

nselib/http.lua

@@ -75,8 +75,8 @@
 -- * <code>bypass_cache</code>: Do not perform a lookup in the local HTTP cache.
 -- * <code>no_cache</code>: Do not save the result of this request to the local HTTP cache.
 -- * <code>no_cache_body</code>: Do not save the body of the response to the local HTTP cache.
--- * <code>redirect_ok</code>: Closure that overrides the default redirect_ok used to validate whether to follow HTTP redirects or not. False, if no HTTP redirects should be followed.
+-- * <code>redirect_ok</code>: Closure that overrides the default redirect_ok used to validate whether to follow HTTP redirects or not. False, if no HTTP redirects should be followed. Alternatively, a number may be passed to change the number of redirects to follow.
---   The following example shows how to write a custom closure that follows 5 consecutive redirects:
+--   The following example shows how to write a custom closure that follows 5 consecutive redirects, without the safety checks in the default redirect_ok:
 --   <code>
 --   redirect_ok = function(host,port)
 --     local c = 5
@@ -343,8 +343,8 @@ local function validate_options(options)
         bad = true
       end
     elseif(key == 'redirect_ok') then
-      if(type(value)~= 'function' and type(value)~='boolean') then
+      if(type(value)~= 'function' and type(value)~='boolean' and type(value) ~= 'number') then
-        stdnse.debug1("http: options.redirect_ok must be a function or boolean")
+        stdnse.debug1("http: options.redirect_ok must be a function or boolean or number")
         bad = true
       end
     else
@@ -1303,17 +1303,9 @@ function put(host, port, path, options, putdata)
   return generic_request(host, port, "PUT", path, mod_options)
 end
 
--- Check if the given URL is okay to redirect to. Return a table with keys
--- "host", "port", and "path" if okay, nil otherwise.
--- @param url table as returned by url.parse
--- @param host table as received by the action function
--- @param port table as received by the action function
--- @return loc table containing the new location
-function redirect_ok(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 = {
+local redirect_ok_rules = {
 
   -- Check if there's any credentials in the url
   function (url, host, port)
@@ -1371,7 +1363,21 @@ function redirect_ok(host, port)
   end,
 }
 
-  local counter = MAX_REDIRECT_COUNT
+--- Check if the given URL is okay to redirect to. Return a table with keys
+-- "host", "port", and "path" if okay, nil otherwise.
+--
+-- Redirects will be followed unless they:
+-- * contain credentials
+-- * are on a different domain or host
+-- * have a different port number or URI scheme
+-- * redirect to the same URI
+-- * exceed the maximum number of redirects specified
+-- @param url table as returned by url.parse
+-- @param host table as received by the action function
+-- @param port table as received by the action function
+-- @param counter number of redirects to follow.
+-- @return loc table containing the new location
+function redirect_ok(host, port, counter)
   -- convert a numeric port to a table
   if ( "number" == type(port) ) then
     port = { number = port }
@@ -1379,7 +1385,7 @@ function redirect_ok(host, port)
   return function(url)
     if ( counter == 0 ) then return false end
     counter = counter - 1
-    for i, rule in ipairs( rules ) do
+    for i, rule in ipairs( redirect_ok_rules ) do
       if ( not(rule( url, host, port )) ) then
         --stdnse.debug1("Rule failed: %d", i)
         return false
@@ -1435,11 +1441,13 @@ local function get_redirect_ok(host, port, options)
       return function() return false end
     elseif( "function" == type(options.redirect_ok) ) then
       return options.redirect_ok(host, port)
+    elseif( type(options.redirect_ok) == "number") then
+      return redirect_ok(host, port, options.redirect_ok)
     else
-      return redirect_ok(host, port)
+      return redirect_ok(host, port, MAX_REDIRECT_COUNT)
     end
   else
-    return redirect_ok(host, port)
+    return redirect_ok(host, port, MAX_REDIRECT_COUNT)
   end
 end