Meldung, falls kein Update

Top  Previous  Next

Dieses Beispiel meldet nur dann ein Update, falls kein Update gefunden wurde.

 

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