Vince's Dominolog  

About Lotus and other stuff






OpenNTF Version Checker Webservice

[Chris] came up with the [idea] and sample code for adding a version checker webservice.
This service will enable the projectchefs to add a simple agent to their template which allows users to check whether a newer version is availlable.

I created the webservice today and allthough it's not 100% finished yet, but feel free to check it out:
http://www.openntf.org/projects/pmt.nsf/CheckVersion?WSDL

Example codesnippet to consume this webservice below: 

sWSDL = "http://www.openntf.org/projects/pmt.nsf/CheckVersion?WSDL"

	Set Client = CreateObject("MSSOAP.SoapClient")

	Call Client.mssoapinit(sWSDL)

	wsTemplateBuildNumber = Client.getLatestBuildNumber(_

thisProject, thisTemplateBuildNumber, thisTemplateBuildName, thisURL)



	'=> check if we got a valid response

	If wsTemplateBuildNumber = 0 Then

		Msgbox "Unable to determine the latest version"

		Exit Sub

	End If

	

	'=> compare the buildnumbers

	If wsTemplateBuildNumber > thisTemplateBuildNumber Then

		wsTemplateBuildName = Client.GetLatestBuildName(thisProject)

		Messagebox "There is a newer version available: "_

 & wsTemplateBuildName, MB_OK, "Update check"



		'=> Open the new release document for download.

		projURL$ = Client.GetLatestURL(thisProject)

		w.URLOpen(projURL$)

	Else

		Messagebox "Your are using the latest version.", MB_OK, "Update check"

	End If




 

Note: thisProject is the OpenNTF projectname, theTemplateBuildNumber/name and thisURL are variables for request logging (not implemented yet) and should reflect the current buildname & number