Sun and Moon script

[SpiKe^^]

Code: Select all

https://weather.visualcrossing.com/VisualCrossingWebServices/rest/services/timeline/${arg}/next5days?key=YOUR_API_KEY

[bayo]

Hi. It doesn't work. Says

Tcl error [::Visualcrossing::forecast_weather]: missing value to go with key

Code: Select all

### The Third Proc for 3 days Forecast 
proc ::Visualcrossing::forecast_weather {nick uhost hand chan arg} {
	set forecast_data [::Visualcrossing::download_weather https://weather.visualcrossing.com/VisualCrossingWebServices/rest/services/timeline/${arg}/next3days?[http::formatQuery unitGroup metric key $::Visualcrossing::key]]
	if {$arg == ""} { putserv "PRIVMSG $chan :Sintax: !3 location" ; return }
	set forecast_dict [::json::json2dict $forecast_data]
	
	set desc [dict get $forecast_data description]
	
	putserv "PRIVMSG $chan :TEST $desc" 
}

[CrazyCat]

When error occures, use .set errorInfo to let us know if the trouble is with formatQuery or with json2dict.
I guess it's json2dict, so dump forecast_data then we can understand the trouble

[SpiKe^^]

Maybe this is the code it's bitching about:

Code: Select all

?[http::formatQuery unitGroup metric key $::Visualcrossing::key]

...but to me that chunk seems ok, though I might call http::formatQuery more correctly

Code: Select all

?[::http::formatQuery unitGroup metric key $::Visualcrossing::key]

It does fit the syntax from the manual

::http::formatQuery key value ?key value ...?

as it seems to have an equal number of keys and values.



If that doesn't work, try:

Code: Select all

set forecast_data [::Visualcrossing::download_weather https://weather.visualcrossing.com/VisualCrossingWebServices/rest/services/timeline/${arg}/next3days?unitGroup=metric&key=$::Visualcrossing::key]