CT-Weather

Post by **SpiKe^^** » Fri Oct 08, 2021 11:56 am

|| Temperature:: 293.9?C ||

That's odd, very hot there???

ComputerTech · Post by **ComputerTech** » Fri Oct 08, 2021 2:54 pm

SpiKe^^ wrote:
|| Temperature:: 293.9?C ||
That's odd, very hot there???

lol, good job spotting that out Spike^^

The code seems back to front, i'll go fix this later.

ComputerTech · Post by **ComputerTech** » Fri Oct 08, 2021 8:00 pm

Code: Select all

#################################
# CTweather
###
# Version: v0.0.3
# Author : ComputerTech
# GitHub : https://GitHub.com/computertech312
###
namespace eval CTweather {
	## Triggers.
	# Current weather.
	variable trig "!w"
	##

	## Flags.
	# n = Owner.
	# m = master
	# o = Op.
	# h = Halfop.
	# v = Voice.
	# f = Friend.
	# - = Nothing.
	variable flag "-|-"
	##

	## OpenWeatherMap API Key.
	variable api "8c2a600d5d63d7fb13432fd58dcc419b"

	## Metric type.
	# 0 = Metric
	# 1 = Imperial
	variable type "0"

	###

	package require json
	package require tls
	package require http

	bind PUB $flag $trig [namespace current]::current:weather

	proc current:weather {nick host hand chan text} {
		variable api ; variable type
		if {![llength [split $text]]} {
			putserv "privmsg $chan :Syntax: !w \[zip code | Location \]"
			return 0
		}
		switch -exact $type {
			"1" {variable tempy "C" ; variable windy "KPH" ; variable typex "metric"}
			"0" {variable tempy "F" ; variable windy "MPH" ; variable typex "imperial"}
		}
		variable url "https://nominatim.openstreetmap.org/search/"
		variable params [::http::formatQuery q $text format jsonv2 ]
		variable jsonx [getdata $url $params]
		variable name [dict get [lindex $jsonx 0] "display_name"]
		variable lati [dict get [lindex $jsonx 0] "lat"]
		variable long [dict get [lindex $jsonx 0]  "lon"]
		variable url "https://api.openweathermap.org/data/2.5/weather"
		variable params [::http::formatQuery lat $lati lon $long appid $api units $typex]
		variable jsonx [getdata $url $params]
		variable temp [dict get [dict get $jsonx "main"] "temp"]
		variable speed [dict get [dict get $jsonx "wind"] "speed"]
		variable degre [dict get [dict get $jsonx "wind"] "deg"]
		variable humid [dict get [dict get $jsonx "main"] "humidity"]
		variable cover [dict get [dict get $jsonx "clouds"] "all"]
		variable desc [dict get [lindex [dict get $jsonx weather] 0] "description"]
		putserv "PRIVMSG $chan :\[\00309Weather\003\] Location: $name || Longitutde: $long  || Latitude: $lati || Temperature:: ${temp}$tempy"
		putserv "PRIVMSG $chan :Humidity: ${humid}% Wind:: ${speed}$windy  Degree: $degre || Description:: $desc  || Clouds: ${cover}%"
	}

	proc getdata {url params} {
		::http::register https 443 [list ::tls::socket]
		::http::config -useragent "Mozilla/5.0 (X11; Fedora; Linux x86_64; rv:87.0) Gecko/20100101 Firefox/87.0"
		putlog "$url?$params"
		variable data [http::data [http::geturl "$url?$params" -timeout 10000]]
		::http::cleanup $data
		variable jsonx [json::json2dict $data]
		return $jsonx
	}
}

Results:

Code: Select all

<ComputerTech> !w london uk
<CX> [Weather] Location: London, Greater London, England, United Kingdom || Longitutde: -0.1276474  || Latitude: 51.5073219 || Temperature:: 51.94F
<CX> Humidity: 93% Wind:: 3.44MPH  Degree: 110 || Description:: haze  || Clouds: 25%

Post by **SpiKe^^** » Mon Jan 24, 2022 12:49 pm

Just a small code correction...

##################################
### +variable-adjusted Notes ###
# Corrected the usage of [variable] inside procs.
# Corrected the "Metric type" setting explanation.
##################################

Code: Select all

#################################
# CTweather
###
# Version: v0.0.3 (+variable-adjusted)
# Author : ComputerTech
# GitHub : https://GitHub.com/computertech312
###

##################################
###  +variable-adjusted Notes  ###
# Corrected the usage of [variable] inside procs.
# Corrected the "Metric type" setting explanation.
##################################

namespace eval CTweather {
	## Triggers.
	# Current weather.
	variable trig "!w"
	##

	## Flags.
	# n = Owner.
	# m = master
	# o = Op.
	# h = Halfop.
	# v = Voice.
	# f = Friend.
	# - = Nothing.
	variable flag "-|-"
	##

	## OpenWeatherMap API Key.
	variable api "8c2a600d5d63d7fb13432fd58dcc419b"

	## Metric type.
	# 0 = Imperial
	# 1 = Metric
	variable type "0"

	###

	package require json
	package require tls
	package require http

	bind PUB $flag $trig [namespace current]::current:weather

	proc current:weather {nick host hand chan text} {
		variable api ; variable type
		if {![llength [split $text]]} {
			putserv "privmsg $chan :Syntax: !w \[zip code | Location \]"
			return 0
		}
		switch -exact $type {
			"0" {set tempy "F" ; set windy "MPH" ; set typex "imperial"}
			"1" {set tempy "C" ; set windy "KPH" ; set typex "metric"}
		}

		set url "https://nominatim.openstreetmap.org/search/"
		set params [::http::formatQuery q $text format jsonv2 ]
		set jsonx [getdata $url $params]
		set name [dict get [lindex $jsonx 0] "display_name"]
		set lati [dict get [lindex $jsonx 0] "lat"]
		set long [dict get [lindex $jsonx 0]  "lon"]

		set url "https://api.openweathermap.org/data/2.5/weather"
		set params [::http::formatQuery lat $lati lon $long appid $api units $typex]
		set jsonx [getdata $url $params]
		set temp [dict get [dict get $jsonx "main"] "temp"]
		set speed [dict get [dict get $jsonx "wind"] "speed"]
		set degre [dict get [dict get $jsonx "wind"] "deg"]
		set humid [dict get [dict get $jsonx "main"] "humidity"]
		set cover [dict get [dict get $jsonx "clouds"] "all"]
		set desc [dict get [lindex [dict get $jsonx weather] 0] "description"]

		putserv "PRIVMSG $chan :\[\00309Weather\003\] Location: $name || Longitutde: $long  || Latitude: $lati || Temperature:: ${temp}$tempy"
		putserv "PRIVMSG $chan :Humidity: ${humid}% || Wind:: ${speed}$windy  Degree: $degre || Description:: $desc  || Clouds: ${cover}%"
	}

	proc getdata {url params} {
		::http::register https 443 [list ::tls::socket]
		::http::config -useragent "Mozilla/5.0 (X11; Fedora; Linux x86_64; rv:87.0) Gecko/20100101 Firefox/87.0"

		putlog "$url?$params"

		set data [http::data [http::geturl "$url?$params" -timeout 10000]]
		::http::cleanup $data
		set jsonx [json::json2dict $data]
		return $jsonx
	}
}

ComputerTech · Post by **ComputerTech** » Mon Jan 24, 2022 1:20 pm

Cheers for the code fixes Spike^^ !!

simo · Post by **simo** » Mon Jan 24, 2022 10:58 pm

i was wondering why UTF-8 isnt working for this tcl
for example :

(+Simo) : !w ryadh

(@Hawk) : [Weather] Location: Ø§Ù„Ø±ÙŠØ§Ø¶, Ù…Ø¯ÙŠØ±ÙŠØ© ØªØ±ÙŠÙ…, Ù…ØØ§ÙØ¸Ø© ØØ¶Ø±Ù…ÙˆØª, Ø§Ù„ÙŠÙ…Ù† || Longitutde: 49.224962 || Latitude: 16.1146368 || Temperature:: 13.54C

(@Hawk) : Humidity: 44% Wind:: 1.26KPH Degree: 26 || Description:: clear sky || Clouds: 1%

UTF-8 works for me for other tcls like youtube so that cant be it

ComputerTech · Post by **ComputerTech** » Tue Feb 28, 2023 11:00 pm

I am currently working on version 0.0.4 of this script, which will boast a more streamlined codebase and improved functionality. Specifically, it will incorporate the following features:

- Location saving for enhanced convenience.
- Usage throttling to optimize performance and efficiency.
- Option for users to choose either Metric or Imperial units, according to their preferences.
- Forecast option for up to X number of days, to provide extended information.

I am open to additional feature requests, but for now, these are the key upgrades that I am focused on implementing.

Post by **willyw** » Wed Mar 01, 2023 12:11 am

ComputerTech wrote: ...
- Option for users to choose either Metric or Imperial units, according to their preferences.
...

I am open to additional feature requests, but for now, these are the key upgrades that I am focused on implementing.

"either" Metric or Imperial...

How about a third option? Both.

Maybe so that the display is like: 77F (25C)

You would have to play with it, to see if it looks too cluttered. To see if you can get it so that it is ok to the eye.

You asked, and this came to mind.

It's just a thought. No big deal.

p.s.
Another thought came to mind:
How about ALWAYS both, just the option is to pick which one comes first?

Bosco · Post by **Bosco** » Wed Mar 01, 2023 11:47 am

u mean like this ....

FmX · Post by **FmX** » Mon Oct 02, 2023 4:10 pm

Hi. Script stop working.
Error i see is this:

Code: Select all

[23:09:53] <ATAS> [20:09:53] https://nominatim.openstreetmap.org/search/?q=%D1%81%D0%BE%D1%84%D0%B8%D1%8F%20&format=jsonv2
[23:09:53] <ATAS> [20:09:54] Tcl error [::CTweather::current:weather]: missing value to go with key

Post by **CrazyCat** » Mon Oct 02, 2023 6:00 pm

FmX wrote:Hi. Script stop working.
Error i see is this:

Code: Select all

[23:09:53] <ATAS> [20:09:53] https://nominatim.openstreetmap.org/search/?q=%D1%81%D0%BE%D1%84%D0%B8%D1%8F%20&format=jsonv2
[23:09:53] <ATAS> [20:09:54] Tcl error [::CTweather::current:weather]: missing value to go with key

Just try the url in a browser and you'll have a self-explanatory message:

File not found: API no longer accessible via this URL

Using the URL /search/ and /reverse/ (with slashes) is no longer supported. Please use URLs as given in the documentation.

Examples how to change the URL:

You use: https://nominatim.openstreetmap.org/search/?q=Berlin
Change to: https://nominatim.openstreetmap.org/search?q=Berlin

You use: https://nominatim.openstreetmap.org/sea ... xas/Huston
Change to: https://nominatim.openstreetmap.org/search?q=Huston, Texas, US

See github issue #3134 for more details.

ComputerTech · Post by **ComputerTech** » Tue Oct 03, 2023 9:23 am

I'm working on a new updated/working version, will hopefully release today/tomorrow.

FmX · Post by **FmX** » Tue Oct 03, 2023 1:43 pm

I thought the problem was in the script something. I waved / and went again. thanks

Henkie2 · Post by **Henkie2** » Thu Jul 11, 2024 8:58 am

ComputerTech wrote: ↑Tue Oct 03, 2023 9:23 am I'm working on a new updated/working version, will hopefully release today/tomorrow.

Hi any news on updated version? Or how can i edit the correct lines? Thx

egghelp/eggheads community

CT-Weather

Ver 0.0.3 (+variable-adjusted)

Re: