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: 11164

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: 11164

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: 2895

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: 11164

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: 25042

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: 25042

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: 13956

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: 13956

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: 25042

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: 25042

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: 25042

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: 6124

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: 16179

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: 16179

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: 14761

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!