Weather and Caller Id download??
-
- Member
- Posts: 81
- Joined: Thu Sep 01, 2005 7:56 am
- Location: UK
Weather and Caller Id download??
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 ??)
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 ??)
-
- HouseBot Special Member
- Posts: 409
- Joined: Tue Jul 13, 2004 9:13 am
- Location: Tigard, OR
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
-
- Member
- Posts: 81
- Joined: Thu Sep 01, 2005 7:56 am
- Location: UK
-
- HouseBot Guru
- Posts: 757
- Joined: Wed Apr 02, 2003 8:10 pm
- Location: Pelham AL
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.
Steve
-
- HouseBot Guru
- Posts: 757
- Joined: Wed Apr 02, 2003 8:10 pm
- Location: Pelham AL
-
- Member
- Posts: 81
- Joined: Thu Sep 01, 2005 7:56 am
- Location: UK
-
- Member
- Posts: 81
- Joined: Thu Sep 01, 2005 7:56 am
- Location: UK
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
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
-
- HouseBot Guru
- Posts: 757
- Joined: Wed Apr 02, 2003 8:10 pm
- Location: Pelham AL
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.
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.
Scott
-
- Advanced Member
- Posts: 206
- Joined: Tue Oct 07, 2003 10:01 am
- Location: Columbus, OH
- Contact:
Here is Allan's original VB script
' 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
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