\!/ KyuuKazami \!/

local srvloc = require "srvloc"
local stdnse = require "stdnse"
local table = require "table"

description = [[
Discovers Versant object databases using the broadcast 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"}


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