egghelp/eggheads community

package require http package require tls package require htmlparse proc do_fml {} { if {[package vcompare [package present tls] 1.7] > 0} { ::http::register https 443 [list ::tls::socket -autoservername true] } else { ::http::register https 443 [list ::tls::socket -request 0 -require 1 -ssl2 0 -ssl...

I've just tested and :


it is still working fine... possibly a copy-paste failor from your side. or may be you are using a txt editor which doesn't have Tcl support . like Windows notepad.

I know some Ircd shell providers using these kind of auto installation scripts for their customers. ( some of these type of .sh scripts already shared in some Ircd forums!) Your "request" actually it doesn't related to the eggdrop nor eggdrop-Tcl itself! This request may be done with bash ...

need to update that line: foreach {null data} [regexp -all -inline {block hidden\-xs\">.+?<a href=\"/article/today.+?.html\">(.*?)</a>} $html] { to this one: foreach {null data} [regexp -all -inline {hidden="true">.+?<a href="/article/.+?.html".+?>(.*?)</a>} $html]...

so the problem is GoogleNews looks like forcing to redirects multiple times for each call.

But this getit procedure able to handle redirections only for once
it should be modify for follow the new link location for multiple times until to find some real news data on there.

Update langSel procedure to this: proc langSel {} { switch -exact -- $::newslang { 1 { set url {en-US&gl=US&ceid=US:en} } 2 { set url {tr&gl=TR&ceid=TR:tr} } 3 { set url {fr&gl=FR&ceid=FR:fr} } 4 { set url {de&gl=DE&ceid=DE:de} } 5 { set url {en-GB&gl=UA&ceid=...

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à!

package require http package require tls 1.6.4 bind pub - .t worldntime proc worldntime {nick uhost hand chan text} { if {![channel get $chan wtime]} { return 0 } if {![llength $text]} { puthelp "privmsg $chan :Usage: $::lastbind <location>"; return 0 } set TxT [YouGotTheSource https://tr...

if {[package vcompare [package present tls] 1.7] > 0} { ::http::register https 443 [list ::tls::socket -autoservername 1] } else { ::http::register https 443 [list ::tls::socket -request 0 -require 1 -ssl2 0 -ssl3 0 -tls1 1] } These lines should works if his tls 1.7.x or not. package require tls 1....

This script running on my bot since yesterday morning and I've seen nothing!.. İ've tried with different language settings for hours then shared on here... Error must be on your side! I assume, you're using a txt editor which doesn't have Tcl support (Windows Notepad may be ?) Syntax check: http://p...

https://i.imgur.com/SnGM29T.png # Google news v0.3 by nrt (01Dec2015) # Updated GoogleNews Country links and added some more lines for redirected link support (04Jan2018) karakedi package require tdom package require http package require htmlparse package require textutil::split package require tls...

tcllib also has >> https://core.tcl-lang.org/tcllib/doc/tr ... on/cron.md


if .tcl commands enabled @ partyline .

You could change :
to

package require http package require json set ExpChan "#opers" bind raw - NOTICE Client_Connect proc Client_Connect {from key arg} { if {[string match *!*@* $from] || ![string match -nocase "*client connecting*" $arg]} { return } if {[scan $arg %\[^\:\]\:%\[^(\](%\[^@\]@%\[^\)\]...

seems like, its because of trimleft the regexp in news_print proc fails.
but,at the same time, trimleft helps to get fixed shortened news link!

you can try this edit: http://paste.tclhelp.net/?id=6gqu
I've been watching at partyline and checking logs for half an hour,i still didn't see error!