ulx.motdmenu_exists = true

local isUrl
local url

function ulx.showMotdMenu( steamid )
	local window = vgui.Create( "DFrame" )
	if ScrW() > 640 then -- Make it larger if we can.
		window:SetSize( ScrW()*0.9, ScrH()*0.9 )
	else
		window:SetSize( 640, 480 )
	end
	window:Center()
	window:SetTitle( "Das MOTD of der server" )
	window:SetVisible( true )
	window:SetDraggable( false )
	window:ShowCloseButton( false )
	window:MakePopup()

	local html = vgui.Create( "HTML", window )

	button = vgui.Create( "DButton", window )
	button:SetSize( 100, 40 )
   	button:SetPos( (window:GetWide() - button:GetWide()) / 2, window:GetTall() - button:GetTall() - 10 )
	button:SetText( "Wait - " )
	button:SetDisabled( true )

	timersec = 14											--this is how long your motd will stay open, I reccomend
															--adding about 5 to your desired value to compensate for lag
	timer.Create( "countDown", 1, 14, function()			--change 14 to the same value as timersec
		timersec = timersec - 1
		button:SetText( "Wait - " .. timersec )
		if timersec == 0 then
			button:SetText( "Close" )
			button:SetDisabled( false )
			button.DoClick = function() window:Close() end
		end
	end)

	if timersec == 0 then									--all this crap may be useless, I left it in because everything was working
		button:SetText( "Close" )
		button:SetDisabled( false )
		button.DoClick = function() window:Close() end
	end

--[[
	local button = vgui.Create( "DButton", window )  		--original button close, above adds timer.
	button:SetText( "Close" )
	button.DoClick = function() window:Close() end
	button:SetSize( 100, 40 )
	button:SetPos( (window:GetWide() - button:GetWide()) / 2, window:GetTall() - button:GetTall() - 10 ) 
--]]

	html:SetSize( window:GetWide() - 20, window:GetTall() - button:GetTall() - 50 )
	html:SetPos( 10, 30 )
	if not isUrl then
		html:SetHTML( ULib.fileRead( "data/ulx_motd.txt" ) )
	else
		url = string.gsub( url, "%%curmap%%", game.GetMap() )
		url = string.gsub( url, "%%steamid%%", steamid )
		html:OpenURL( url )
	end
end

function ulx.rcvMotd( isUrl_, text )
	isUrl = isUrl_
	if not isUrl then
		ULib.fileWrite( "data/ulx_motd.txt", text )
	else
		if text:find( "://", 1, true ) then
			url = text
		else
			url = "http://" .. text
		end
	end
end