' (SS,01/09/25) send despatch days to CIRC WooCommerce website
'               called once per hour
AddLog ""


' following calculates the despatch days or gets from cache, checks the value in wc_settings and writes new value if changed
' cache is 10 mins, Woo site fetches once per hour
Call FetchURLAndLog("https://itp.castironradiatorcentre.co.uk/radiator-despatch-cache.asp")


Sub FetchURLAndLog(AURL)
  On Error Resume Next

  Dim objRequest

  Set objRequest = CreateObject("Microsoft.XMLHTTP")
  
  AddLog "1. Started:  " & AURL
  
  objRequest.open "GET", AURL, False
  objRequest.send
  
  AddLog "2. Finished: " & AURL

  Set objRequest = Nothing 
End Sub

Sub AddLog(AMessage)
	Dim fs, f
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set f = fs.OpenTextFile("D:\Logs\CIRC Send Despatch Days To Woo\CIRCSendDespatchDaysToWoo.txt", 8, True)
	f.WriteLine(Now & " - " & AMessage)
	f.Close
	Set f = Nothing
	Set fs = Nothing
End Sub