I created a little tool for myself to check if my posts on Notes.Net got responses, because the automatic e-mail notification overhere doesn’t seem to work. If you want it also, you can get it here: http://www.bizzybee.be/2007/10/28/notesnet-watchdog-a-quick-n-dirty-tool/
Martin Vereecken
http://www.bizzybee.be (Notes blog)
Subject: Notes.Net Watchdog - a handy tool to check your posts here
Thanks for the tool.
I changed the function CheckUrl as follows (and defined the global OldPosts as integer:
Dim fetcher As New UrlFetcher
htmlfile = fetcher.getUrlAsString(doc.Url(0))
’ if we successfully got the URL,
If (htmlfile <> “”) Then
Posts = Find(htmlfile,“threadmap_active.gif”) + Find(htmlfile,“threadmap_inactive.gif”)
If doc.PostsOld(0) = “” Then
OldPosts = 0
Else
OldPosts = Cint(doc.PostsOld(0))
End If
If Posts > OldPosts Then
doc.PostsNew = Posts
doc.PostsDelta = Posts - OldPosts
End If
doc.Error = “”
Call doc.Save(True,False)
Else
doc.Error = "Error " + fetcher.getLastError()
Call doc.Save(True,False)
Print "There was an error: " + fetcher.getLastError()
End If
Subject: Notes.Net Watchdog - a handy tool to check your posts here
Updated version of checkUrl:
Dim fetcher As New UrlFetcher
Dim item As NotesItem
htmlfile = fetcher.getUrlAsString(doc.Url(0))
’ if we successfully got the URL,
If (htmlfile <> “”) Then
Posts = Find(htmlfile,“threadmap_active.gif”) + Find(htmlfile,“threadmap_inactive.gif”)
Set item = doc.GetFirstItem(“PostsOld”)
If item.Type = TEXT Then
OldPosts = 0
Else
OldPosts = Cint(doc.PostsOld(0))
End If
If Posts > OldPosts Then
doc.PostsNew = Posts
doc.PostsDelta = Posts - OldPosts
End If
doc.Error = “”
Call doc.Save(True,False)
Else
doc.Error = "Error " + fetcher.getLastError()
Call doc.Save(True,False)
Print "There was an error: " + fetcher.getLastError()
End If
Subject: RE: Notes.Net Watchdog - a handy tool to check your posts here
Hi Rob,
You’re right, there was a little problem with that code. Thanks for the adjustments, I’ll adjust it.
Martin Vereecken
http://www.bizzybee.be (Notes blog)
Subject: RE: Notes.Net Watchdog - a handy tool to check your posts here
Hi Martin,
I also added this to the window title for the WatchUrl form:
@If(Title=“”; “-new-”; Title)
Of course it is not essential, but it helps when there are more tabs open.
I still like the tool very much. Great work!
PS.: Don’t be afraid: I will not add any more nice to have stuff. I fully understand how you came to this tool.
Subject: RE: Notes.Net Watchdog - a handy tool to check your posts here
Great tool, and also great web site
JYR
Subject: RE: Notes.Net Watchdog - a handy tool to check your posts here
Thanks! Makes me go on with it!
Subject: RE: Notes.Net Watchdog - a handy tool to check your posts here
One of these days (every) I will change this :-). My “dream” is to make it a web application, should be easier and more widely usable.
Martin Vereecken
http://www.bizzybee.be (Notes blog)
P.S. the irony of it: I cannot use the tool myself in the company I work, due to firewall restrictions, so it’s not useful to me like it is now :-S.
Subject: RE: Notes.Net Watchdog - a handy tool to check your posts here
I prefer the tool as a Notes-db.
One reason is that it does not open a new window each time you browse through the replies (of the replies). I know I can set some preferrences in my browser, but that gives me unwanted results for other sites.
Subject: Notes.Net Watchdog - a handy tool to check your posts here
I promised not to come with more improvements of this great tool, but…
I have to react, because I found a problem with large threads. In the function Find of the agent CheckUrls the index is defined as an integer, and the value return by Instr is larger. So please change it into a long.
This gives me the change to suggest another thing: i added an Exit button on the view. So I can close the application with a button, which is more friendly.