Sub Wsw_BeforeCheck(Handle)
' disable optimizations and always perform a download to compare content
Bookmark_SetProperty(Handle, "checkmethod", "content")
End Sub
'*******************************************************************************
Sub Wsw_CompareVersions(Handle, ByRef sMemWeb, ByRef sMemLocal, ByRef sStatusMessage, ByRef iStatusCode)
' Apply the defined filter definitions
sMemWeb = Bookmark_ApplyFilter(Handle, sMemWeb)
sMemLocal = Bookmark_ApplyFilter(Handle, sMemLocal)
' Compare the filtered content
If sMemWeb <> sMemLocal Then
' Page is updated -> don't mark as changed
iStatusCode = 0
ElseIf sMemWeb = sMemLocal Then
' Page has not been updated -> mark as changed
iStatusCode = 1
End If
End Sub
|