egghelp/eggheads community

Re: [SOLVED] Date | time | Unix time

2025-04-29T02:04:17-04:00

Google's API works fine but localtimes.mobi is now a parked domain, so it can't return you the localtime of countries.

Statistics: Posted by CrazyCat — Tue Apr 29, 2025 2:04 am

Re: [SOLVED] Date | time | Unix time

2025-04-28T23:04:44-04:00

This TCL has stopped working, when I request it, it only shows me this
.t japan
No any information found for "japan"
It worked fine before, the data I requested came out, please someone help me

Code:

package require httppackage require tls 1.6.4bind pub - .t worldntimeproc worldntime {nick uhost hand chan text} {if {![channel get $chan wtime]} { return 0 }if {![llength $text]} { puthelp "privmsg $chan :Usage: $::lastbind "; return 0 }set TxT [YouGotTheSource https://translate.googleapis.com/translate_a/single?[http::formatQuery client gtx sl auto tl en dt t q $text]]if {[regexp -- {\"([^\"]+)\"} $TxT - transout]} { set query $transout } { set query $text }set data [YouGotTheSource http://localtimes.mobi/search/?[http::formatQuery s $query x 0 y 0]]if {[regexp -- {Home(.+?).+?(.+?)
.+?(.+?)} $data - loc t1 t2]} {puthelp "privmsg $chan :\00304[cleanup $loc]\003: [cleanup $t1]"puthelp "privmsg $chan :[cleanup $t2]"} else { puthelp "privmsg $chan :No any information found for \"$text\". Please be more specific!"; return }return 0}proc cleanup str {regsub -all -- {(?:|)} $str \002 strregsub -all -- "<.+?>" $str " " strregsub -all -- {»} $str \003\u00bb\00304 strregsub -all -- { } $str { } strregsub -all -- {\s+} $str { } strset str [string map {"»" "\003\u00bb\00304"} $str]return $str}proc YouGotTheSource URL {if {[catch {set token [http::geturl $URL -timeout 9000]} error]} {set err "Connection failor! [string map {\n " "} $error]"} elseif {[http::status $token] ne "ok" || [http::ncode $token] != "200"} {set err "[http::status $token] - [http::code $token]"::http::cleanup $token} else {set data [http::data $token]::http::cleanup $token}if {[info exists data] && [string length $data]} {return $data}if {[info exists err] && [string length $err]} {foreach _ [channels] { if {[channel get $_ wtime]} { puthelp "privmsg $_ :$err" }}}}::http::register https 443 [list ::tls::socket -ssl2 0 -ssl3 0 -tls1 1]setudef flag wtime

Apparently Google updated something internally, which is why the TCL no longer provides the requested information.

Statistics: Posted by Arnold_X-P — Mon Apr 28, 2025 11:04 pm

Re: [SOLVED] Date | time | Unix time

2024-09-18T02:41:02-04:00

Probably the site now uses html entities rather than direct chars.
Find the line: script script

regsub -all -- {»} $str \003\u00bb\00304 str

script Just after, add: script script

set str [string map {"»" "\003\u00bb\00304"} $str]

script I use string map because there are potentialy others chars which will need to be replaced, I think it's better to not have one regexp per char.

Statistics: Posted by CrazyCat — Wed Sep 18, 2024 2:41 am

Re: [SOLVED] Date | time | Unix time

2024-09-17T18:46:43-04:00

.t Karachi
15(@Caro15): 04 » Asia » Pakistan » Karachi : Current local time: 3:31:39 am Date: Wednesday 18 September 2024 Time zone: PKT (Pakistan Time) Current time zone offset: +05:00 hours
15(@Caro15): PKT Pakistan Time has been in effect since 2009 Offset: UTC +5:00

it gave me this %araquo

Statistics: Posted by aut — Tue Sep 17, 2024 6:46 pm

[SOLVED] Date | time | Unix time

2023-03-02T04:22:52-04:00

This is probably because the register https is started only when the script is loaded, and peharps you have another script which unregister it.

Statistics: Posted by CrazyCat — Thu Mar 02, 2023 4:22 am

[SOLVED] Date | time | Unix time

2023-03-01T20:55:46-04:00

<03@Freebsd> Connection failor! Unsupported URL type "https" <--- work but this thing spawn every time check .t

<03@Freebsd> 04 »04 North America »04 Canada »04 Ontario »04 London : Current local time: 7:53:53 pm Date: Wednesday 1 March 2023 Time zone: EST (Eastern Standard Time) Current time zone offset: -05:00 hours
<03@Freebsd> NOW: EST Eastern Standard Time 06 Nov 2022 Sunday 06 Nov 2022 at 1:00:00 am local time to 12 Mar 2023 Sunday 12 Mar 2023 at 2:00:00 am local time, the time changes to 3:00:00 am Offset: UTC -5:00 DST ended on 06 Nov 2022, clocks moved back 1 hour; from 2:00:00 am to 1:00:00 am

Statistics: Posted by Bosco — Wed Mar 01, 2023 8:55 pm

[SOLVED] Date | time | Unix time

2022-02-02T18:46:53-04:00

Which of the scripts in the thread do you try ?
The functionnal one is from heartbroken @ 14/11/2021 16:28

Statistics: Posted by CrazyCat — Wed Feb 02, 2022 6:46 pm

[SOLVED] Date | time | Unix time

2022-02-02T14:29:07-04:00

Hi, when I try to add it to my bot and chanset it it shows:

[18:27:25] .chanset #Forbidden +wtime
[18:27:25] Error trying to set +wtime for #Forbidden, invalid mode.

Any help?

Statistics: Posted by bayo — Wed Feb 02, 2022 2:29 pm

[SOLVED] Date | time | Unix time

2021-12-02T17:01:31-04:00

thanks heartbroken, thank you again

Statistics: Posted by Arnold_X-P — Thu Dec 02, 2021 5:01 pm

[SOLVED] Date | time | Unix time

2021-11-15T05:45:03-04:00

Job Done!!
Thanks you too heartbroken & CrazyCat

Statistics: Posted by Goga — Mon Nov 15, 2021 5:45 am

[SOLVED] Date | time | Unix time

2021-11-15T07:22:11-04:00

I don't know what to say..
You only need to have TclTLS (I know you already have one.)
Source it into your .conf , connect to your bot + ( .rehash / .restart )
.chanset #channel +wtime (as CrazyCat said above.)
and voilà!

Statistics: Posted by heartbroken — Mon Nov 15, 2021 5:09 am

[SOLVED] Date | time | Unix time

2021-11-15T03:15:58-04:00

Did you do a .chanset #yourchannel +wtime ?

Statistics: Posted by CrazyCat — Mon Nov 15, 2021 3:15 am

Nothing compares to what I have endured

2021-11-15T01:21:05-04:00

Mr. heartbroken, I don't know why this TCL Didn't work for me. It didn't show me any error .
Please suggest me anything to make it working.

Statistics: Posted by Goga — Mon Nov 15, 2021 1:21 am

[SOLVED] Date | time | Unix time

2021-11-14T10:28:06-04:00

Code:

package require httppackage require tls 1.6.4bind pub - .t worldntimeproc worldntime {nick uhost hand chan text} {if {![channel get $chan wtime]} { return 0 }if {![llength $text]} { puthelp "privmsg $chan :Usage: $::lastbind "; return 0 }set TxT [YouGotTheSource https://translate.googleapis.com/translate_a/single?[http::formatQuery client gtx sl auto tl en dt t q $text]]if {[regexp -- {\"([^\"]+)\"} $TxT - transout]} { set query $transout } { set query $text }set data [YouGotTheSource http://localtimes.mobi/search/?[http::formatQuery s $query x 0 y 0]]if {[regexp -- {Home(.+?).+?(.+?)
.+?(.+?)} $data - loc t1 t2]} {puthelp "privmsg $chan :\00304[cleanup $loc]\003: [cleanup $t1]"puthelp "privmsg $chan :[cleanup $t2]"} else { puthelp "privmsg $chan :No any information found for \"$text\". Please be more specific!"; return }return 0}proc cleanup str {regsub -all -- {(?:|)} $str \002 strregsub -all -- "<.+?>" $str " " strregsub -all -- {»} $str \003\u00bb\00304 strregsub -all -- { } $str { } strregsub -all -- {\s+} $str { } strreturn $str}proc YouGotTheSource URL {if {[catch {set token [http::geturl $URL -timeout 9000]} error]} {set err "Connection failor! [string map {\n " "} $error]"} elseif {[http::status $token] ne "ok" || [http::ncode $token] != "200"} {set err "[http::status $token] - [http::code $token]"::http::cleanup $token} else {set data [http::data $token]::http::cleanup $token}if {[info exists data] && [string length $data]} {return $data}if {[info exists err] && [string length $err]} {foreach _ [channels] { if {[channel get $_ wtime]} { puthelp "privmsg $_ :$err" }}}}::http::register https 443 [list ::tls::socket -ssl2 0 -ssl3 0 -tls1 1]setudef flag wtime

You don't need to add anything anymore. This script translating your queries itself!

Statistics: Posted by heartbroken — Sun Nov 14, 2021 10:28 am

[SOLVED] Date | time | Unix time

2021-11-14T00:29:05-04:00

heartbroken It is an excellent code but it needs to add words that link to other examples such as words from Spanish to English

I added to the tcl this route which will recognize a word in Spanish
example: (españa=spain) or (republica dominicana=Dominican Republic) in IRC: .t españa

Code:

set text [string map [list México mexico japon japan granada Grenada españa Spain Japón japon italia Italy francia France egipto egypt rusia russia alemania germany chipre cyprus {republica dominicana} {Dominican Republic}] $text]

Code:

bind pub - .t worldntimeproc worldntime {nick uhost hand chan text} {   if {![channel get $chan wtime]} { return 0 }if {![llength $text]} { puthelp "privmsg $chan :Usage: $::lastbind "; return 0 }set text [string map [list México mexico japon japan granada Grenada españa Spain Japón japon italia Italy francia France egipto egypt rusia russia alemania germany chipre cyprus {republica dominicana} {Dominican Republic}] $text]set token [http::geturl http://localtimes.mobi/search/?s=[join $text +]&x=0&y=0 -timeout 9000]set data [http::data $token]::http::cleanup $tokenif {[regexp -- {Home(.+?).+?(.+?)
.+?(.+?)} $data - loc t1 t2]} {puthelp "privmsg $chan :\00304[cleanup $loc]\003: [cleanup $t1]"puthelp "privmsg $chan :[cleanup $t2]"} else { puthelp "privmsg $chan :No any information found for \"$text\". Please be more specific!"; return }return 0}proc cleanup str {   regsub -all -- {(?:|)} $str \002 strregsub -all -- "<.+?>" $str " " strregsub -all -- {»} $str \003\u00bb\00304 strregsub -all -- { } $str { } strregsub -all -- {\s+} $str { } strreturn $str}setudef flag wtime

What I added works well for me but I don't know if it will be fine like that, I would like you to review it please

Code:

set text [string map [list México mexico japon japan granada Grenada españa Spain Japón japon italia Italy francia France egipto egypt rusia russia alemania germany chipre cyprus {republica dominicana} {Dominican Republic}] $text]

Code:

[00:37] <@Arnold_X-P> .t spain[00:37] <@Kantuta>  » Europe » Spain :  Current local time: 5:37:27 am Date: Sunday 14 November 2021 Time zone: CET (Central Europe Time) Current time zone offset: +01:00 hours [00:37] <@Kantuta>  Western Europe Time WET 31 Oct 2021 Sunday 31 Oct 2021 at 1:00:00 am local time to 27 Mar 2022 Sunday 27 Mar 2022 at 1:00:00 pm local time, the time changes to 2:00:00 am Offset: UTC +0:00 DST ended on 31 Oct 2021, clocks moved back 1 hour; from 2:00:00 am to 1:00:00 am

and the linked variant from Spanish to English (spain= españa)

Code:

[00:37] <@Arnold_X-P> .t españa[00:37] <@Kantuta>  » Europe » Spain :  Current local time: 5:37:30 am Date: Sunday 14 November 2021 Time zone: CET (Central Europe Time) Current time zone offset: +01:00 hours [00:37] <@Kantuta>  Western Europe Time WET 31 Oct 2021 Sunday 31 Oct 2021 at 1:00:00 am local time to 27 Mar 2022 Sunday 27 Mar 2022 at 1:00:00 pm local time, the time changes to 2:00:00 am Offset: UTC +0:00 DST ended on 31 Oct 2021, clocks moved back 1 hour; from 2:00:00 am to 1:00:00 am

Also if it is possible to add that when there is no internet connection the bot makes it known by means of a message to the channel.

Code:

if {[string match -nocase "*couldn't open socket*" $error]} {         puthelp "PRIVMSG $chan :Error: There is no internet connection .. Please try again later."

Statistics: Posted by Arnold_X-P — Sun Nov 14, 2021 12:29 am