This example generates an error if not all Ignore filter definitions find a match.


Sub Wsw_CompareVersions(ByRef $sMemWeb, ByRef $sMemLocal, ByRef $sStatusMessage, ByRef $iStatusCode)
   
   'Apply the defined filter definitions
   $sMemWeb = Bookmark_ApplyFilter($sMemWeb)
   $sMemLocal = Bookmark_ApplyFilter($sMemLocal)
   
   Dim $sUnused = Bookmark_GetProperty("ignore_filter_unused")
   
   If Len($sUnused) > 0 Then
      $iStatusCode = 2 'error
      $sStatusMessage = "Filters broken"
      Bookmark_AddLog("Unused filters: " + $sUnused)
   ElseIf $sMemWeb <> $sMemLocal Then
      $iStatusCode = 1 'updates detected
   Else
      $iStatusCode = 0 'no updates available
   End If
End Sub