description = [[
Discovers Versant object databases using the srvloc protocol.
]]

---
-- @usage
-- nmap --script broadcast-versant-locate
--
-- @output
-- Pre-scan script results:
-- | broadcast-versant-locate: 
-- |_  vod://192.168.200.222:5019
--


author = "Patrik Karlsson"
license = "Same as Nmap--See http://nmap.org/book/man-legal.html"
categories = {"broadcast", "safe"}

require 'srvloc'

prerule = function() return true end

action = function()
	local helper = srvloc.Helper:new()
	local status, result = helper:ServiceRequest("service:odbms.versant:vod", "default")
	helper:close()
	
	if ( not(status) ) then return end
	local output = {}
	for _, v in ipairs(result) do		
		table.insert(output, v:match("^service:odbms.versant:vod://(.*)$"))
	end
	return stdnse.format_output(true, output)
end