egghelp/eggheads community

Re: Need some help on announce data

2023-12-27T08:16:40-04:00

@CrazyCat thanks for all your useful info en support. Much appreciated, thanks once more.

Statistics: Posted by Henkie2 — Wed Dec 27, 2023 8:16 am

Re: Need some help on announce data

2023-12-27T07:37:28-04:00

You have set a variable with the chan you want to announce and to create a new proc, called by your bind time, which will call your main proc itself:
script script

set gichan "#mychan"proc gameinformertimed {min hour day month dow} {   ::gameinformerprocp $::botnick * "$::botnick@127.0.0.1" $::gichan ""}bind time - "00 00 * * *" gameinformertimed

script

Statistics: Posted by CrazyCat — Wed Dec 27, 2023 7:37 am

Re: Need some help on announce data

2023-12-27T07:14:40-04:00

I didn't modify your binds, but the bind time won't work, because the proc is done for binds pub.

And actually, https://www.gameinformer.com/this-week is empty, so the script can't display anything.

Ohw but how can i combine the bind time on the proc? Because i got other scripts with bind times and bind pubs and they are using same proc.
Need to set the $chan? or add min hour etc on proc? or make a extra proc?
And added extra line on if {[llength $blocks] to get a msg about empy list

Statistics: Posted by Henkie2 — Wed Dec 27, 2023 7:14 am

Re: Need some help on announce data

2023-12-26T12:26:00-04:00

I didn't modify your binds, but the bind time won't work, because the proc is done for binds pub.

And actually, https://www.gameinformer.com/this-week is empty, so the script can't display anything.

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

Re: Need some help on announce data

2023-12-26T08:15:09-04:00

This is due to the -all flag in combination with the -inline:
When using -inline, match variables may not be specified. If used with -all, the list will be concatenated at each iteration, such that a flat list is always returned. For each match iteration, the command will append the overall match data, plus one element for each subexpression in the regular expression.
I think you may not work like that, because you'll have 3 arrays of datas which are independant.
You can probably do something like: script script
package require httppackage require tlsproc gameinformerprocp {nick host hand chan txt} {   ::http::register https 443 [list ::tls::socket -servername gameinformer.com]    # Get page data   set url "https://www.gameinformer.com/this-week"    set token [::http::geturl $url -timeout 1000]   set page [::http::data $token]   upvar 0 $token state   if {$state(status) ne "ok"} {      putserv "PRIVMSG $chan :\00303GAMEINFORMER:\003 $state(url) made $state(status) error"      return   }   ::http::cleanup $token   ::http::unregister https      set blocks [regexp -all -inline -- {.+?<\/time>} $page]   if {[llength $blocks]>0} {      putserv "PRIVMSG $chan :\00303GAMES:\003 This week's Game releases:"      foreach block $blocks {         regexp {hreflang="en">(.+?)<\/a>.+class="field__item">(.+?)<\/div>.+? title item date         set date [clock format [clock scan $date] -format {%d-%m-%Y}]         putserv "PRIVMSG $chan :$date $title (Rating: n/a) - Platform: $platform"      }   }}bind pub - !newgames gameinformerprocpbind pub - !thisweek gameinformerprocpbind time - "00 00 * * *" gameinformerprocp
script I extract all interesting blocks (begins which
) and for each, I use a regexp to extract the 3 interesting fields.

Ah that explains a lot, i tried to to start with "while {[regexp and use extra regsubs" is that also works like some kind of block than as well right?
And tried your one, it's not showing any data. Thx again CrazyCat, best wishes ^^

Statistics: Posted by Henkie2 — Tue Dec 26, 2023 8:15 am

Re: Need some help on announce data

2023-12-24T11:05:48-04:00

This is due to the -all flag in combination with the -inline:

When using -inline, match variables may not be specified. If used with -all, the list will be concatenated at each iteration, such that a flat list is always returned. For each match iteration, the command will append the overall match data, plus one element for each subexpression in the regular expression.

I think you may not work like that, because you'll have 3 arrays of datas which are independant.
You can probably do something like: script script

package require httppackage require tlsproc gameinformerprocp {nick host hand chan txt} {   ::http::register https 443 [list ::tls::socket -servername gameinformer.com]    # Get page data   set url "https://www.gameinformer.com/this-week"    set token [::http::geturl $url -timeout 1000]   set page [::http::data $token]   upvar 0 $token state   if {$state(status) ne "ok"} {      putserv "PRIVMSG $chan :\00303GAMEINFORMER:\003 $state(url) made $state(status) error"      return   }   ::http::cleanup $token   ::http::unregister https      set blocks [regexp -all -inline -- {.+?<\/time>} $page]   if {[llength $blocks]>0} {      putserv "PRIVMSG $chan :\00303GAMES:\003 This week's Game releases:"      foreach block $blocks {         regexp {hreflang="en">(.+?)<\/a>.+class="field__item">(.+?)<\/div>.+? title item date         set date [clock format [clock scan $date] -format {%d-%m-%Y}]         putserv "PRIVMSG $chan :$date $title (Rating: n/a) - Platform: $platform"      }   }}bind pub - !newgames gameinformerprocpbind pub - !thisweek gameinformerprocpbind time - "00 00 * * *" gameinformerprocp

script I extract all interesting blocks (begins which

) and for each, I use a regexp to extract the 3 interesting fields.
Statistics: Posted by CrazyCat — Sun Dec 24, 2023 11:05 am

Need some help on announce data

2023-12-23T20:58:29-04:00

Hi all, i'm learning some basic tcl/regexp /json and right now i'm trying to get some data from web site and it all works.
Only it announce everything to 2times., One good and one include the regexp lines.

What i'm doing wrong? (trying to get data and announce that as list to chan)
And the bind time is also not working, how can i fix that?

Can anyone help or give me some advice. Thx

Code:

# -----------------------------------# This week games from gameinformer.com# -----------------------------------bind pub - !newgames gameinformerprocpbind pub - !thisweek gameinformerprocpbind time - "00 00 * * *" gameinformerprocppackage require httppackage require tlsproc gameinformerprocp {nick host hand chan txt} { ::http::register https 443 [list ::tls::socket -servername gameinformer.com]  # Get page data set url "https://www.gameinformer.com/this-week"  set token [::http::geturl $url -timeout 1000] set page [::http::data $token] upvar 0 $token state if {$state(status) ne "ok"} { putserv "PRIVMSG $chan :\00303GAMEINFORMER:\003 $state(url) made $state(status) error"  return } ::http::cleanup $token ::http::unregister https  # REGEXP page set regex_title {hreflang="en">(.*?)}  set titles [regexp -all -line -inline $regex_title $page]  set regex_platform {class="field__item">(.+?)<\/div>} set platforms [regexp -all -line $regex_platform $page]  set regex_date {class="datetime">(.*?)}    set dates [regexp -all -line $regex_date $page]  # Change date lay-out set date [clock format [clock scan $dates] -format {%d-%m-%Y}] # Announce to Chan putserv "PRIVMSG $chan :\00303GAMES:\003 This week's Game releases:" foreach (date $dates regex_title $titles regex_platform $platforms) {  putserv "PRIVMSG $chan :$date $regex_title (Rating: n/a) - Platform: $regex_platform"   }}

Statistics: Posted by Henkie2 — Sat Dec 23, 2023 8:58 pm

egghelp/eggheads community

Re: Need some help on announce data

Re: Need some help on announce data

Re: Need some help on announce data

Re: Need some help on announce data

Re: Need some help on announce data

) and for each, I use a regexp to extract the 3 interesting fields.

Re: Need some help on announce data

) and for each, I use a regexp to extract the 3 interesting fields.Statistics: Posted by CrazyCat — Sun Dec 24, 2023 11:05 am

Need some help on announce data

) and for each, I use a regexp to extract the 3 interesting fields.
Statistics: Posted by CrazyCat — Sun Dec 24, 2023 11:05 am