egghelp/eggheads community

Re: TVMaze Script That lists tonights shows

2023-12-13T09:12:54-04:00

With my tests, it works with https, peharps your tls package version is too old.

And I'm sorry but I haven't enough time to help you more with other parts, but I think you have all elements to improve the script.

Good luck !

Maybe it's outdated, will have a check on that. Thanks once again and i'm going to try to get that stream as extra and will share my results

Edit: got 1.67 package (on windrop) anyone has the 1.7 compiled?
Also added !yesterday trigger as well, thx that was easy hahaha
Only that stream page, for some reason no results

changed to webchannel and airdate
https://api.tvmaze.com/schedule/web?dat ... country=US

Code:

 # Filter the TV shows by time and network   set shows {}   foreach item $json_data {      set airdate [dict get $item airdate]      set season [dict get $item season]      set number [dict get $item number]      set webChannel [dict get [dict get $item show] webChannel name]      set name [dict get [dict get $item show] name]      if {[lsearch -exact $::tvmaze_streamnetworks $network] != -1} {         lappend shows [format "%s %s (S%sE%s) - %s" $airdate $name $season $number $webChannel]      }   }

Statistics: Posted by Henkie2 — Wed Dec 13, 2023 9:12 am

Re: TVMaze Script That lists tonights shows

2023-12-13T09:05:03-04:00

With my tests, it works with https, peharps your tls package version is too old.

And I'm sorry but I haven't enough time to help you more with other parts, but I think you have all elements to improve the script.

Good luck !

Statistics: Posted by CrazyCat — Wed Dec 13, 2023 9:05 am

Re: TVMaze Script That lists tonights shows

2023-12-13T08:48:53-04:00

I made some corrections to your code:
Now, you have 3 procedures, tvmazetoday and tvmazetomorrow just format the good date and send it to tvmazeget which is the main proc.

All variables are out of the proc, it's simplest to change the configuration.
script script

# -----------------------------------# TVMaze TV !today API Announce# -----------------------------------set tvmaze_chan "#test"set tvmaze_api_key "YOUR_KEY_HERE"# Define the networks we're interested inset tvmaze_networks {"AMC" "FOX" "FX" "SyFy" "Travel" "HBOMAX" "CW" "Starz" "TLC" "Showtime" "KTLA" "NBC" "CBS" "ABC"}set tvmaze_tz +2# Define the !today/!tonight commandbind pub - "!today" tvmazetodaybind pub - "!tonight" tvmazetodaybind time - "* 00 * * *" tvmazetodaybind pub - "!tomorrow" tvmazetomorrowpackage require httppackage require tlspackage require json# Today procproc tvmazetoday {nick uhost hand chan text} {   if {$chan ne $::tvmaze_chan} { return }   tvmazeget "Today" [clock format [clock add [clock seconds] $::tvmaze_tz hours] -format "%Y-%m-%d"]}# Tomorrow proc: add 1 dayproc tvmazetomorrow {nick uhost hand chan text} {   if {$chan ne $::tvmaze_chan} { return }   tvmazeget "Tomorrow" [clock format [clock add [clock seconds] +1 day $::tvmaze_tz hours] -format "%Y-%m-%d"]}# Global procproc tvmazeget {fday day} {   http::register https 443 [list ::tls::socket -autoservername true]   set url "https://api.tvmaze.com/schedule"   set response [http::geturl $url?date=${day}&country=US -headers [list "X-TVMaze-API-Key" $::tvmaze_api_key] -timeout 10000]   putserv "PRIVMSG $::tvmaze_chan :$url?date=${day}&country=US"   upvar 0 $response state   if {$state(status) ne "ok"} {      putlog "HTTP Error : $state(url) made $state(status) error"      return   }   set json_data [::json::json2dict [http::data $response]]   ::http::cleanup $response   ::http::unregister https   # Filter the TV shows by time and network   set shows {}   foreach item $json_data {      set airtime [dict get $item airtime]      set season [dict get $item season]      set number [dict get $item number]      set network [dict get [dict get $item show] network name]      set name [dict get [dict get $item show] name]      if {[lsearch -exact $::tvmaze_networks $network] != -1} {         lappend shows [format "%s %s (S%sE%s) - %s" $airtime $name $season $number $network]      }   }   # If no shows were found, display a message   if {[llength $shows] == 0} {      putquick "PRIVMSG $::tvmaze_chan :TVMAZE: ${fday}'s TV Shows:"      putquick "PRIVMSG $::tvmaze_chan :00:00 No TV shows found for tonight"      return   }   # List the TV shows in the channel   putquick "PRIVMSG $::tvmaze_chan :TVMAZE: ${fday}'s TV Shows:"   foreach show $shows {      putquick "PRIVMSG $::tvmaze_chan :$show"   }}

script

Ohw wow that's awesome going to test now. (edit: tested only still no luck on https on http url it works) Thx for this much appreciated also comparing about https thx going to use it for getting experienced with it.

Also can you help on getting extra proc to collect data of that web/stream page so we can show that streams to
Like: Hulu/netflix etc. It's needs to be a new proc because of json regex is diff on this page.

Statistics: Posted by Henkie2 — Wed Dec 13, 2023 8:48 am

Re: TVMaze Script That lists tonights shows

2023-12-13T05:24:20-04:00

# -----------------------------------# TVMaze TV !today API Announce# -----------------------------------set tvmaze_chan "#test"set tvmaze_api_key "YOUR_KEY_HERE"# Define the networks we're interested inset tvmaze_networks {"AMC" "FOX" "FX" "SyFy" "Travel" "HBOMAX" "CW" "Starz" "TLC" "Showtime" "KTLA" "NBC" "CBS" "ABC"}set tvmaze_tz +2# Define the !today/!tonight commandbind pub - "!today" tvmazetodaybind pub - "!tonight" tvmazetodaybind time - "* 00 * * *" tvmazetodaybind pub - "!tomorrow" tvmazetomorrowpackage require httppackage require tlspackage require json# Today procproc tvmazetoday {nick uhost hand chan text} {   if {$chan ne $::tvmaze_chan} { return }   tvmazeget "Today" [clock format [clock add [clock seconds] $::tvmaze_tz hours] -format "%Y-%m-%d"]}# Tomorrow proc: add 1 dayproc tvmazetomorrow {nick uhost hand chan text} {   if {$chan ne $::tvmaze_chan} { return }   tvmazeget "Tomorrow" [clock format [clock add [clock seconds] +1 day $::tvmaze_tz hours] -format "%Y-%m-%d"]}# Global procproc tvmazeget {fday day} {   http::register https 443 [list ::tls::socket -autoservername true]   set url "https://api.tvmaze.com/schedule"   set response [http::geturl $url?date=${day}&country=US -headers [list "X-TVMaze-API-Key" $::tvmaze_api_key] -timeout 10000]   putserv "PRIVMSG $::tvmaze_chan :$url?date=${day}&country=US"   upvar 0 $response state   if {$state(status) ne "ok"} {      putlog "HTTP Error : $state(url) made $state(status) error"      return   }   set json_data [::json::json2dict [http::data $response]]   ::http::cleanup $response   ::http::unregister https   # Filter the TV shows by time and network   set shows {}   foreach item $json_data {      set airtime [dict get $item airtime]      set season [dict get $item season]      set number [dict get $item number]      set network [dict get [dict get $item show] network name]      set name [dict get [dict get $item show] name]      if {[lsearch -exact $::tvmaze_networks $network] != -1} {         lappend shows [format "%s %s (S%sE%s) - %s" $airtime $name $season $number $network]      }   }   # If no shows were found, display a message   if {[llength $shows] == 0} {      putquick "PRIVMSG $::tvmaze_chan :TVMAZE: ${fday}'s TV Shows:"      putquick "PRIVMSG $::tvmaze_chan :00:00 No TV shows found for tonight"      return   }   # List the TV shows in the channel   putquick "PRIVMSG $::tvmaze_chan :TVMAZE: ${fday}'s TV Shows:"   foreach show $shows {      putquick "PRIVMSG $::tvmaze_chan :$show"   }}

script

Statistics: Posted by CrazyCat — Wed Dec 13, 2023 5:24 am

Re: TVMaze Script That lists tonights shows

2023-12-13T00:04:18-04:00

Quick solution for https: use this kind of register: script script
http::register https 443 [list ::tls::socket -autoservername true]
script Paste your script and I'll have a try soon

He thx, will have a look. This is wat i did and for sure code can be better.
(need to define the sets outside the proc etc, only i'm not a coder as well)
Right now it's not working if i use the https like this. (set url to http and it works)

Todo: (Someone can help on this? thx)
- from http to https API call
- set defines outside proc tvmazetoday (for use on new triggers: !tomorrow, !todaystream etc)
- timezone not really working + or- not really give diff in results
- trigger: !tomorrow trigger add extra day to $currdate (How todo?)
- trigger: !todaystreams get webstreams page data (date from hulu,disney+, netflix etc)
url = http://api.tvmaze.com/schedule/web?date ... country=US
regex/json needs to be checked on this to get correct network etc (can anyone help me?)

Code:

# -----------------------------------# TVMaze TV !today API Announce# -----------------------------------   # Define the !today/!tonight command   bind pub - "!today" tvmazetoday   bind pub - "!tonight" tvmazetoday   bind time - "* 00 * * *" tvmazetoday   #bind pub - "!tomorrow" tvmazetomorrow (need to add extra day firts from $currdate)proc tvmazetoday {nick uhost hand chan text} {package require httppackage require tlshttp::register https 443 [list ::tls::socket -autoservername true]      # Channel to show upcoming tv shows   set chan "#channelhere"   # Get your tvmaze api key:    set tvmaze_api_key "YOUR_KEY_HERE"   # Define the networks we're interested in   set networks [list "AMC" "FOX" "FX" "SyFy" "Travel" "HBOMAX" "CW" "Starz" "TLC" "Showtime" "KTLA" "NBC" "CBS" "ABC"]       # Get the current date and time in Eastern time zone    set timezone +6    set currtime [clock add [clock seconds] $timezone minutes]    set currdate [clock format $currtime -format %Y-%m-%d]    set currtime [clock format $currtime -format %H:%M:%S]    # Fetch the TV shows for the current date    set url "https://api.tvmaze.com/schedule?$currdate&country=US"    set response [http::geturl $url -headers [list "X-TVMaze-API-Key" $tvmaze_api_key] -timeout 10000]    set json_data [json::json2dict [http::data $response]]    http::unregister https    http::cleanup $response    # Filter the TV shows by time and network    set shows {}    foreach item $json_data {        set airtime [dict get $item "airtime"]        set season [dict get $item "season"]        set number [dict get $item "number"]        set network [dict get [dict get $item "show"] "network" "name"]        set name [dict get [dict get $item "show"] "name"]        if {[lsearch -exact $networks $network] != -1} {            lappend shows [format "%s %s (S%sE%s) - %s" $airtime $name $season $number $network]        }    }    # If no shows were found, display a message    if {[llength $shows] == 0} {        putquick "PRIVMSG $chan :TVMAZE: Today's TV Shows:"        putquick "PRIVMSG $chan :00:00 No TV shows found for tonight"        return    }    # List the TV shows in the channel    putquick "PRIVMSG $chan :TVMAZE: Today's TV Shows:"    foreach show $shows {        putquick "PRIVMSG $chan :$show"    }}

Statistics: Posted by Henkie2 — Wed Dec 13, 2023 12:04 am

Re: TVMaze Script That lists tonights shows

2023-12-12T18:51:00-04:00

Quick solution for https: use this kind of register: script script

http::register https 443 [list ::tls::socket -autoservername true]

script Paste your script and I'll have a try soon

Statistics: Posted by CrazyCat — Tue Dec 12, 2023 6:51 pm

Re: TVMaze Script That lists tonights shows

2023-12-12T13:41:28-04:00

He nice one, was looking for this.
Got it working only i'm a retard how can i make it to call it as https?

I added this:

package require http
package require tls

proc tvmazetoday {nick uhost hand chan text} {
http::register https 443 [list ::tls::socket]

url as https://
http::unregister https

Only than it's not parsing the data
Any one can give me a advice? Thx

Edit: And how to add a extra day? To get trigger !tomorrow available?

Statistics: Posted by Henkie2 — Tue Dec 12, 2023 1:41 pm

TVMaze Script That lists tonights shows

2023-03-16T07:28:18-04:00

The 'window' in the above example is the 'global' thing that CrazyCat hinted about. Basically before the: "# Get the current date and time in Eastern time zone " line add:
Code:
global tvmaze_api_key
and rehash the bot.

My preference goes to not use global (too easy to forget a variable) and name the variable with its namespace:

Code:

set response [http::geturl $url -headers [list "X-TVMaze-API-Key" $::tvmaze_api_key]]

Statistics: Posted by CrazyCat — Thu Mar 16, 2023 7:28 am

Re: TVMaze Script That lists tonights shows

2023-03-15T22:30:54-04:00

... We can give you links to bookmark for quick reference.
That would be greatly appreciated Thx

TCL is a stand alone scripting language. Eggdrop just uses it. And, the Eggdrop people have thus created some Eggdrop specific stuff.

This the Eggdrop specific TCL page:
https://docs.eggheads.org/using/tcl-commands.html

This is the rest of TCL:
https://www.tcl.tk/man/tcl8.6/TclCmd/contents.html

For example, the thing that you have been discussing - the global command - can be found there.
https://www.tcl.tk/man/tcl8.6/TclCmd/global.html
I hope that your eyes don't glaze over, when you look at that page. Things can go way in depth on that site. But at times, that's necessary. Other times, you can get the info explained to you, right here - in simpler and shorter terms.

This is a course in TCL for Eggdrop. It is designed to help the beginner that knows nothing about it, to get started.
http://suninet.the-demon.de/
It is a very old page. So what?... the info is still good.
Start at the beginning, and go through it, section by section. It takes you by the hand, and guides you.
I suggest that at any time as you are going through it, that when you hit something that is not fully clear, or just looks to be fun, to stop and go write some code and load it in your bot, and play with it !

I suggest that if at all possible, you have a spare bot up and running, that is not performing any functions that you care about, such that you can use it to test code on. This way, when you crash it, it's no big deal. And you WILL crash it. Don't ask me how I know ...

With those three links, you can not only get started, but you can do a LOT !

Start with something so simple that it is almost silly. Like having the bot respond with something when you do:
!hello
Then perhaps move on to having the bot greet you when you join a channel with it.
These sort of things will get you used to the most very basic things. Then... you build your skill from there.

Write code ... and when you get stumped, you can post it on this forum under Scripting Help. Somebody will come along and point out the goof, and tell you what to read up on, so you can fix it.

Annnnnnd ... away you go !

Have fun!
I hope this helps.

Statistics: Posted by willyw — Wed Mar 15, 2023 10:30 pm

TVMaze Script That lists tonights shows

2023-03-15T21:56:43-04:00

Well then Caesar's "global tvmaze_api_key" line will clear that error...

Statistics: Posted by SpiKe^^ — Wed Mar 15, 2023 9:56 pm

Re: AI bots are far from smart

2023-03-15T21:54:09-04:00

You have all the same code repeated twice in your script!

I looked at my actual eggdrop script file and its not duped, must have just be a double paste on my part here

Statistics: Posted by BarGuy — Wed Mar 15, 2023 9:54 pm

AI bots are far from smart

2023-03-15T21:50:30-04:00

You have all the same code repeated twice in your script!

Remove all of the duplicate code, then apply the global fix as posted by CrazyCat & caesar to the remaining code.

That will clear the first error you posted above.

Statistics: Posted by SpiKe^^ — Wed Mar 15, 2023 9:50 pm

TVMaze Script That lists tonights shows

2023-03-15T21:12:19-04:00

. Basically before the: "# Get the current date and time in Eastern time zone " line add:
Code:
global tvmaze_api_key
and rehash the bot.

Tried.. got the same error. Thanks for taking a look

Statistics: Posted by BarGuy — Wed Mar 15, 2023 9:12 pm

Re: TVMaze Script That lists tonights shows

2023-03-15T21:11:18-04:00

... We can give you links to bookmark for quick reference.

That would be greatly appreciated Thx

Statistics: Posted by BarGuy — Wed Mar 15, 2023 9:11 pm

TVMaze Script That lists tonights shows

2023-03-15T12:21:10-04:00

In layman terms, the error states that the 'tvmaze_api_key' variable isn't 'available' for the 'tonight' function (meaning 'proc tonight').

To extrapolate and give a real life example is like you are in a room without any door or windows towards outside and you can't tell if it's day or night outside. Now, if you would have access to a window you could tell it's day, night or whatever.

The 'window' in the above example is the 'global' thing that CrazyCat hinted about. Basically before the: "# Get the current date and time in Eastern time zone " line add:

Code:

global tvmaze_api_key

and rehash the bot.

Statistics: Posted by caesar — Wed Mar 15, 2023 12:21 pm