egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2023-04-25T09:45:11-04:00 https://forum.eggheads.org/app.php/feed/topic/20546 2023-04-25T09:45:11-04:00 2023-04-25T09:45:11-04:00 https://forum.eggheads.org/viewtopic.php?p=111878#p111878 <![CDATA[Do anyone has the working !fml tcl for the eggdrop?]]>

Code: 

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 -ssl3 0 -tls1 1]     }     ::http::config -useragent "Lynx/2.8.5rel.1 libwww-FM/2.14 SSL-MM/1.4.1 OpenSSL/0.9.7e" -urlencoding "utf-8"     if {[catch {set token [http::geturl https://www.fmylife.com/random -binary 0 -timeout 15000]} err]} {        putlog "FML Error: $err"     }     if {[http::status $token] eq "ok" && [http::ncode $token] == "200"} {        set html [http::data $token]        ::http::cleanup $token        set out [list ]        foreach {null data} [regexp -all -inline {<a href="/article/.+?.html".+?>(.*?)</a>} $html] {           regsub -all -- {(<[^<>]+/>)} $data "" data           regsub -all {FML} $data \00304\002\\0\003 data           lappend out [split [string trim $data]]        }        set fmlout [lindex $out [expr {int(rand()*[llength $out])}]]     } else {        set fmlout "FML Error: [http::status $token] - [http::code $token]"        ::http::cleanup $token     }     ::http::unregister https     return [string trimleft [regsub -all -- {(</h2>.+?my\-4.+?>)} $fmlout {}] \}] }  bind pub -|- !fml fml_pubin  proc fml_pubin {nick uhost hand chan text} {     if {![channel get $chan FML]} { return 0 }     puthelp "PRIVMSG $chan :[join [htmlparse::mapEscapes [do_fml]]]"  }  setudef flag FML

Statistics: Posted by heartbroken — Tue Apr 25, 2023 9:45 am

]]> 2023-04-24T05:10:49-04:00 2023-04-24T05:10:49-04:00 https://forum.eggheads.org/viewtopic.php?p=111861#p111861 <![CDATA[Do anyone has the working !fml tcl for the eggdrop?]]> It does not happen consistantly. Only sometimes as below.

[17:05:36] <Bot> </h2> <div class="flex justify-between"> <p class="text-blue-300 dark:text-white text-sm mt-2"> By kay-z <i class="fa fa-female" aria-hidden="true"></i> - 21/06/2014 20:32 - United States </p> </div> </div> </div> <a href="/article/miscommunication_136227.html" class="block text-blue-500 dark:text-white my-4 "> Today, my dad heard that the guy who bullied me at school died recently of a drug overdose. For some reason, he thinks we wer
[17:05:47] <@me> !fml
[17:05:48] <bot> Today, while I was in the break room at work, one of my coworkers walked in on me playing with my animal crackers, complete with animal noises. Now, the entire department won't stop teasing me and calling me Tarzan. FML
[17:05:55] <@me> !fml
[17:05:58] <bot> Today, my college basketball team Florida Atlantic University was winning 71-70 against San Diego State University. San Diego State scored a 2 pointer at the very last second of the second half of the game making us lose 71-72. FML
[17:06:00] <@me> !fml
[17:06:02] <bot> </h2> <div class="flex justify-between"> <p class="text-blue-300 dark:text-white text-sm mt-2"> By Olivia23 <i class="fa fa-female" aria-hidden="true"></i> - 08/07/2021 11:00 </p> </div> </div> </div> <a href="/article/dick_357500.html" class="block text-blue-500 dark:text-white my-4 spicy-hidden"> Today, my husband threw an epic temper tantrum because I wouldn’t have sex with him. I recently suffered from a miscarriage and the th

Statistics: Posted by vam2u — Mon Apr 24, 2023 5:10 am

]]> 2023-04-23T14:32:28-04:00 2023-04-23T14:32:28-04:00 https://forum.eggheads.org/viewtopic.php?p=111859#p111859 <![CDATA[Do anyone has the working !fml tcl for the eggdrop?]]>
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.

Statistics: Posted by heartbroken — Sun Apr 23, 2023 2:32 pm

]]> 2023-04-23T11:39:59-04:00 2023-04-23T11:39:59-04:00 https://forum.eggheads.org/viewtopic.php?p=111857#p111857 <![CDATA[Do anyone has the working !fml tcl for the eggdrop?]]>
[09:39:17] Tcl error [fml_pubin]: invalid command name " "

Statistics: Posted by vam2u — Sun Apr 23, 2023 11:39 am

]]> 2022-12-26T13:33:13-04:00 2022-12-26T13:33:13-04:00 https://forum.eggheads.org/viewtopic.php?p=111578#p111578 <![CDATA[Do anyone has the working !fml tcl for the eggdrop?]]>

Statistics: Posted by TimeRider — Mon Dec 26, 2022 1:33 pm

]]> 2022-12-26T12:41:45-04:00 2022-12-26T12:41:45-04:00 https://forum.eggheads.org/viewtopic.php?p=111577#p111577 <![CDATA[Do anyone has the working !fml tcl for the eggdrop?]]>

Code: 

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

Code: 

foreach {null data} [regexp -all -inline {hidden="true">.+?<a href="/article/.+?.html".+?>(.*?)</a>} $html] {

Statistics: Posted by heartbroken — Mon Dec 26, 2022 12:41 pm

]]> 2022-12-26T11:24:32-04:00 2022-12-26T11:24:32-04:00 https://forum.eggheads.org/viewtopic.php?p=111576#p111576 <![CDATA[Do anyone has the working !fml tcl for the eggdrop?]]> Statistics: Posted by TimeRider — Mon Dec 26, 2022 11:24 am

]]> 2020-05-24T17:36:57-04:00 2020-05-24T17:36:57-04:00 https://forum.eggheads.org/viewtopic.php?p=108457#p108457 <![CDATA[Do anyone has the working !fml tcl for the eggdrop?]]>
Yep. That's a ZERO.

Not sure what the issue is.

Just noticed inside the eggdrop when i logged in, that it is spitting this out.

FML Error: error flushing "sock2bf05e0": connection reset by peer

UPDATE : Ok Now. Updating To 19.10 Linux has cured whatever issue it had.

Statistics: Posted by Dominatez — Sun May 24, 2020 5:36 pm

]]> 2019-05-31T05:50:06-04:00 2019-05-31T05:50:06-04:00 https://forum.eggheads.org/viewtopic.php?p=107675#p107675 <![CDATA[Do anyone has the working !fml tcl for the eggdrop?]]>
Works like a charm.

Statistics: Posted by Dominatez — Fri May 31, 2019 5:50 am

]]> 2019-05-27T18:29:07-04:00 2019-05-27T18:29:07-04:00 https://forum.eggheads.org/viewtopic.php?p=107672#p107672 <![CDATA[Do anyone has the working !fml tcl for the eggdrop?]]>

Code: 

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

Code: 

foreach {null data} [regexp -all -inline {article\-topbar\">.+?<a href=\"/article/today.+?.html\">(.*?)</a>} $html] {

Statistics: Posted by heartbroken — Mon May 27, 2019 6:29 pm

]]> 2019-05-27T16:49:06-04:00 2019-05-27T16:49:06-04:00 https://forum.eggheads.org/viewtopic.php?p=107669#p107669 <![CDATA[Do anyone has the working !fml tcl for the eggdrop?]]>
Keeps with the error :

FML Error: timeout -

Any ideas ?

Statistics: Posted by Dominatez — Mon May 27, 2019 4:49 pm

]]> 2018-11-21T08:05:30-04:00 2018-11-21T08:05:30-04:00 https://forum.eggheads.org/viewtopic.php?p=107231#p107231 <![CDATA[Do anyone has the working !fml tcl for the eggdrop?]]> Statistics: Posted by heartbroken — Wed Nov 21, 2018 8:05 am

]]> 2018-11-20T16:57:09-04:00 2018-11-20T16:57:09-04:00 https://forum.eggheads.org/viewtopic.php?p=107226#p107226 <![CDATA[Do anyone has the working !fml tcl for the eggdrop?]]>

The script worked just great at the very first trigger but after that, it didn't give the results instead returned 0.

PS

@_niCK ¦ !fml
+Twitler ¦ Today, after moving in with a couple of vegan zoologists a few weeks ago, I discover that they don't believe that we have the right to kill cockroaches, and will not allow me to do so. The house is infested, and it's spread to my bedroom. FML
@_niCk ¦ !fml
+Twitler ¦ 0
@_niCk ¦ !fml
+Twitler ¦ 0

In the bot party line, I am getting this error!

FML Error: Unsupported URL type "https"
FML Error: Unsupported URL type "https"


Please advise.

Thnx,
_niCk

Statistics: Posted by _niCk — Tue Nov 20, 2018 4:57 pm

]]> 2018-11-21T08:08:33-04:00 2018-11-20T07:37:23-04:00 https://forum.eggheads.org/viewtopic.php?p=107224#p107224 <![CDATA[Do anyone has the working !fml tcl for the eggdrop?]]>
TclTLS : https://core.tcl.tk/tcltls/wiki/Download (tls package)
tcllib : https://github.com/tcltk/tcllib (htmlparse package)

Code: 

package require httppackage require tlspackage require htmlparseproc 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 -ssl3 0 -tls1 1]}::http::config -useragent "Lynx/2.8.5rel.1 libwww-FM/2.14 SSL-MM/1.4.1 OpenSSL/0.9.7e" -urlencoding "utf-8"if {[catch {set token [http::geturl https://www.fmylife.com/random -binary 0 -timeout 15000]} err]} {putlog "FML Error: $err"return 0}if {[http::status $token] eq "ok" && [http::ncode $token] == "200"} {set html [http::data $token]::http::cleanup $tokenset out [list ]foreach {null data} [regexp -all -inline {block hidden\-xs\">.+?<a href=\"/article/today.+?.html\">(.*?)</a>} $html] {regsub -all -- {(<[^<>]+/>)} $data "" dataregsub -all {FML} $data \00304\002\\0\003 datalappend out [split [string trim $data]]}set fmlout [lindex $out [expr {int(rand()*[llength $out])}]]} else {set fmlout "FML Error: [http::status $token] - [http::code $token]"::http::cleanup $token}::http::unregister httpsreturn $fmlout}bind pub -|- !fml fml_pubinproc fml_pubin {nick uhost hand chan text} {if {![channel get $chan FML]} { return 0 }puthelp "PRIVMSG $chan :[join [htmlparse::mapEscapes [do_fml]]]"}setudef flag FML
Edited: ::http::register https … lines moved inside of the proc.

Statistics: Posted by heartbroken — Tue Nov 20, 2018 7:37 am

]]> 2018-11-19T17:33:35-04:00 2018-11-19T17:33:35-04:00 https://forum.eggheads.org/viewtopic.php?p=107218#p107218 <![CDATA[Do anyone has the working !fml tcl for the eggdrop?]]>
It's been more than a month now, the !fml script has stopped giving a result while triggered.

Please help!


Best,
_niCk

Statistics: Posted by _niCk — Mon Nov 19, 2018 5:33 pm

]]>