HouseBot

I have been looking throught some old posts and I see there is(was) a weather and a callerid plugin. Unfortunatly all download links no longer seem to work



Does anyone know if they are still available for download anywhere?



Thanks in advanced.



(Meedio guys? is there any news on Housebot being added to meedio.com/maid ??)

The weather plugin was written by Alan Cheslow but is not part of the official Meedio install. The Caller ID functionality only requires that you have a modem installed in your HouseBot server. If you do you can configure Caller ID by creating a hardware interface using the included "Modem/Phone Line Status" hardware module. The plugin help includes details on how to set this up.



-- Dave

Dave thanks for your reply, will take a look at the hardware interface tonight, should have read the plugin help a little more closely



I see Alan Cheslow works for Meedio - guess the weather plugin is no more i'm sure it would be in the Forum otherwise.



Cheers.

Weather plug-in: This came up a month or so ago. Someone (don't recall who and I am not anywhere near that PC) emailed me asking for info on the plug-in. I thought I had the original P-I file but apparently do not. So I looked at my installation, which is working fine, and emailed him what I could tell about making it work. It was more involved than I thought and involved among other things, subscribing to WEATHER.COM's notification service. If you don't get any better info than this - maybe someone else can supply you with the P-I - let me know and I'll send what I sent him to you. I have no idea why Alan chose not to make the P-I available once HB was bought by Meedio. Its not like HB is threatening sales of ME.

You can try and send Alan a private message and ask him. If he doesn't still have the plugin, I think I probably have a copy of the original install somewhere (but I'd need his permission to publish or distribute it).

Scott, I think that's worth pursuing. If the original poster doesn't PM Alan, I will. That a request for this has come up several times now indicates its popularity and usefulness to making HB more attractive to potential buyers.

Thanks for all your replys. Have PM Alan so fingers crossed.



Have registard with weather.com in anticipation. Althought only 5 degrees in london today, i feel this plugin may only depress me!!

Thanks for all your replys. Have PM Alan so fingers crossed.



Have registard with weather.com in anticipation. Althought only 5 degrees in london today, i feel this plugin may only depress me!!

Unfortunately I think I've lost the source but if anyone else has it please feel free to post/distribute it.



Also please note that this was written by me personally so Meedio may not be able to support it (I am actually no longer a Meedio employee). Unfortunately because of time constraints I probably won't be able to provide support either, but I believe there is a thread or two in the forum that provides basic instructions.



Good luck!



Alan

Alan, thanks for the clearance to post, and for your hard work in developing it. Maybe Scott or one of the hard-core original HBers still has the PI. Once installed, there is no maintenance required and need for support should be minimal. My install has been working well for years. Thanks.

I've been running it too for years without a hitch. I think this is the initial config import for it (attached).



There are several posts about some minor problems that folks had early on. I'm not sure if everything has been resolved, but you should be able to fumble through it. Here's a post with some of the setup info.



Just do "File/Import Config..." in HouseBot, or drag and drop the .hbx file onto HouseBot and restart to install it.

' Set folder location of Weather.com icons and downloaded images

DestFolder = "\\Shaggy\C\Program Files\HouseBot\Config\Themes\Common\weather\"



' Weather.com partner ID

WeatherComPar = ""



' Weather.com key

WeatherComKey = ""



' Get weather for this postal code

WeatherComZip = "30068"





Const adTypeBinary = 1

Const adSaveCreateOverWrite = 2

Const adSaveCreateNotExist = 1



Set xml = CreateObject("Microsoft.XMLHTTP")

set oStream = createobject("Adodb.Stream")

oStream.type = adTypeBinary



Set MSXML = CreateObject("MSXML.DOMDocument")

MSXML.Async = False

MSXML.preserveWhiteSpace = False

MSXML.validateOnParse = True

MSXML.resolveExternals = False

XMLURL = "http://xoap.weather.com/weather/local/" + WeatherComZip + "?cc=*&prod=xoap&par=" + WeatherComPar + "&key=" + WeatherComKey + "&dayf=5"







getImage "http://image.weather.com/web/radar/us_a ... e_usen.jpg", "W_radar"

getImage "http://image.weather.com/images/sat/reg ... 20x486.jpg", "W_sat"



set oStream = nothing

Set xml = Nothing





Loaded = MSXML.Load(XMLURL)

If (Loaded) Then

SetPropertyValue "Weather.W_cc_lsup", MSXML.SelectSingleNode("/weather/cc/lsup").text

SetPropertyValue "Weather.W_cc_tmp", MSXML.SelectSingleNode("/weather/cc/tmp").text + "°F"

SetPropertyValue "Weather.W_cc_flik", MSXML.SelectSingleNode("/weather/cc/flik").text + "°F"

SetPropertyValue "Weather.W_cc_t", MSXML.SelectSingleNode("/weather/cc/t").text

SetPropertyValue "Weather.W_cc_icon", DestFolder + MSXML.SelectSingleNode("/weather/cc/icon").text + ".png"

SetPropertyValue "Weather.W_cc_bar_r", MSXML.SelectSingleNode("/weather/cc/bar/r").text

SetPropertyValue "Weather.W_cc_bar_d", MSXML.SelectSingleNode("/weather/cc/bar/d").text

SetPropertyValue "Weather.W_cc_wind", "From the " + MSXML.SelectSingleNode("/weather/cc/wind/t").text + " at "+ MSXML.SelectSingleNode("/weather/cc/wind/s").text + " mph"

SetPropertyValue "Weather.W_cc_hmid", MSXML.SelectSingleNode("/weather/cc/hmid").text + "%"

SetPropertyValue "Weather.W_cc_vis", MSXML.SelectSingleNode("/weather/cc/vis").text

SetPropertyValue "Weather.W_cc_uv", MSXML.SelectSingleNode("/weather/cc/uv/i").text + " " + MSXML.SelectSingleNode("/weather/cc/uv/t").text

SetPropertyValue "Weather.W_cc_dewp", MSXML.SelectSingleNode("/weather/cc/dewp").text + "°F"

SetPropertyValue "Weather.W_dayf_lsup", MSXML.SelectSingleNode("/weather/dayf/lsup").text



Set NodeList = MSXML.documentElement.selectNodes("/weather/dayf/day")

For Each Node In NodeList

SetPropertyValue "Weather.W_dayf_day" + Node.attributes.getNamedItem("d").nodeValue + "_t", Node.attributes.getNamedItem("t").nodeValue

SetPropertyValue "Weather.W_dayf_day" + Node.attributes.getNamedItem("d").nodeValue + "_dt", Node.attributes.getNamedItem("dt").nodeValue

SetPropertyValue "Weather.W_dayf_day" + Node.attributes.getNamedItem("d").nodeValue + "_hi", Node.selectSingleNode("hi").text + "°F"

SetPropertyValue "Weather.W_dayf_day" + Node.attributes.getNamedItem("d").nodeValue + "_low", Node.selectSingleNode("low").text + "°F"



set PartList = Node.selectNodes("part")

For Each Part In PartList

SetPropertyValue "Weather.W_dayf_day" + Node.attributes.getNamedItem("d").nodeValue + "_part" + Part.attributes.getNamedItem("p").nodeValue + "_icon", DestFolder + Part.selectSingleNode("icon").text + ".png"

SetPropertyValue "Weather.W_dayf_day" + Node.attributes.getNamedItem("d").nodeValue + "_part" + Part.attributes.getNamedItem("p").nodeValue + "_t", Part.selectSingleNode("t").text

SetPropertyValue "Weather.W_dayf_day" + Node.attributes.getNamedItem("d").nodeValue + "_part" + Part.attributes.getNamedItem("p").nodeValue + "_wind_s", Part.selectSingleNode("wind/s").text + "mph"

SetPropertyValue "Weather.W_dayf_day" + Node.attributes.getNamedItem("d").nodeValue + "_part" + Part.attributes.getNamedItem("p").nodeValue + "_wind_gust", Part.selectSingleNode("wind/gust").text

SetPropertyValue "Weather.W_dayf_day" + Node.attributes.getNamedItem("d").nodeValue + "_part" + Part.attributes.getNamedItem("p").nodeValue + "_wind_d", Part.selectSingleNode("wind/d").text

SetPropertyValue "Weather.W_dayf_day" + Node.attributes.getNamedItem("d").nodeValue + "_part" + Part.attributes.getNamedItem("p").nodeValue + "_wind_t", Part.selectSingleNode("wind/t").text

SetPropertyValue "Weather.W_dayf_day" + Node.attributes.getNamedItem("d").nodeValue + "_part" + Part.attributes.getNamedItem("p").nodeValue + "_ppcp", Part.selectSingleNode("ppcp").text + "%"

SetPropertyValue "Weather.W_dayf_day" + Node.attributes.getNamedItem("d").nodeValue + "_part" + Part.attributes.getNamedItem("p").nodeValue + "_hmid", Part.selectSingleNode("hmid").text + "%"

Next

Next



End If





Sub getImage(URL, PropName)

DirArray = Split(URL, "/")

ImageFile = DirArray(UBound(DirArray))

xml.Open "GET", URL, False

xml.Send

oStream.open

oStream.write xml.responseBody

oStream.savetofile DestFolder & ImageFile, adSaveCreateOverWrite

oStream.close

SetPropertyValue "Weather." + PropName, DestFolder + ImageFile

End Sub