This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Search found 110 matches

by heartbroken
Tue Apr 25, 2023 9:45 am
Forum: Script Requests
Topic: Do anyone has the working !fml tcl for the eggdrop?
Replies: 14
Views: 11739

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...
by heartbroken
Sun Apr 23, 2023 2:32 pm
Forum: Script Requests
Topic: Do anyone has the working !fml tcl for the eggdrop?
Replies: 14
Views: 11739

I've just tested and :

Image
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.
by heartbroken
Wed Feb 15, 2023 8:16 am
Forum: Script Requests
Topic: "get-egg" shortcut command to install eggdrop bot
Replies: 2
Views: 3001

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 ...
by heartbroken
Mon Dec 26, 2022 12:41 pm
Forum: Script Requests
Topic: Do anyone has the working !fml tcl for the eggdrop?
Replies: 14
Views: 11739

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]...
by heartbroken
Thu Jun 30, 2022 2:12 am
Forum: Scripting Help
Topic: GoogleNews
Replies: 47
Views: 27553

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.
by heartbroken
Wed Jun 29, 2022 2:40 pm
Forum: Scripting Help
Topic: GoogleNews
Replies: 47
Views: 27553

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=...
by heartbroken
Mon Nov 15, 2021 5:09 am
Forum: Script Requests
Topic: [SOLVED] Date | time | Unix time
Replies: 19
Views: 14614

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

Image
by heartbroken
Sun Nov 14, 2021 10:28 am
Forum: Script Requests
Topic: [SOLVED] Date | time | Unix time
Replies: 19
Views: 14614

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...
by heartbroken
Tue Nov 09, 2021 12:24 pm
Forum: Scripting Help
Topic: GoogleNews
Replies: 47
Views: 27553

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....
by heartbroken
Tue Nov 09, 2021 8:17 am
Forum: Scripting Help
Topic: GoogleNews
Replies: 47
Views: 27553

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...
by heartbroken
Mon Nov 08, 2021 12:53 pm
Forum: Scripting Help
Topic: GoogleNews
Replies: 47
Views: 27553

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...
by heartbroken
Tue Apr 27, 2021 6:46 am
Forum: Script Requests
Topic: privmsg nickname on a timer
Replies: 14
Views: 6545

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


if .tcl commands enabled @ partyline .

Code: Select all

.tcl package require cron; cron::every Msg2User [expr {60*80}] {putserv "privmsg Nickname :Hey!"}
by heartbroken
Mon Aug 31, 2020 4:32 am
Forum: Script Requests
Topic: raw on connect
Replies: 30
Views: 16550

Image

You could change :

Code: Select all

\002Nick\002: $nick 
to

Code: Select all

\002Nick\002: [regsub -all {([^:]+:)} $nick ""]
by heartbroken
Sun Aug 30, 2020 4:50 pm
Forum: Script Requests
Topic: raw on connect
Replies: 30
Views: 16550

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 %\[^\:\]\:%\[^(\](%\[^@\]@%\[^\)\]...
by heartbroken
Mon Oct 28, 2019 6:20 pm
Forum: Script Support & Releases
Topic: googlenews
Replies: 16
Views: 15196

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!