EggWiki - User contributions [en]

EggWiki

2024-05-04T21:01:33Z

Mortmann: /* Tcl Examples */

<strong>Welcome to EggWiki!</strong>

== Setting Up Eggdrop ==
[https://docs.eggheads.org/setup Installation Tutorial]

[[Do I have Tcl installed?]]

[[Installing Tcl Locally]]

[[Running_Multiple_Eggdrops_From_One_Directory|Running Multiple Eggdrops From One Directory]]

[[Upgrading]]

* [[Config_Changes|Config file changes, by version]]

[[Compiling|Compiling FAQs]]

== Using Eggdrop ==
[[Partyline]]

[[DCC]]

[[Channel_Administration|Channel Administration]]

[[Loading Tcl Scripts]]

[[CAP|Enabling CAP (IRCv3) Extensions]]

[[Account Tracking]]

== Common Errors ==

[[Tcl Not Installed]]

[[No Telnet Port Set]]

[[Known Eggdrop Errors]]

[[Matchattr Tcl Command Issues]]

[[Not Sharing Userfile | User file rejected by <bot>: Not sharing userfile]]

[[Cert Val Failed| certificate validation failed: unable to get local issuer certificate ]]

== FAQ ==

[[Eggdrop_Startup_Errors| Why won't my Eggdrop start?]]

[[NickServ| How do I authenticate to NickServ?]]

[[Bot Auto Op| How do I make my Eggdrops securely op each other?]]

[[Dynamic_Bans| How do I stop Eggdrop from removing bans?]]

[[Connect To Partyline with TLS| How do I connect to the partyline using TLS?]]

[[Hostmasks]]

[[UTF-8]]

[[Threaded DNS]]

[[Timer_Drift| What does "timer drift - spun X minutes" mean?]]

[[Tcl| What is Tcl?]]

[[TermSignal| Eggdrop quit, and the last entry says "Received Terminal Signal"]]

[[PBKDF2_transition| How should I upgrade to PBKDF2 hashing from Blowfish? (1.9.0+)]]

[[Inline| When compiling ancient versions of Eggdrop, I get "undefined reference to `cron_matchfld'" and other similar errors]]

== Tcl Examples ==
[[Setudef| Writing scripts that work only on selected channels]]

[[MinutelyWho| Write a script that performs a /who on all channels]]

[[EndOfWho| Writing a bind that triggers at the end of a 315 message (WHO listing)]]

[[TclHTTPS| Writing a Tcl that can access https websites]]

[[Http_async| Writing a Tcl that can access http websites asynchronous and gets the title of it]]

== Eggdrop Mechanics ==
This is a really technical section dedicated to what is happening under the covers... you probably will never need this information, but its good to have it documented somewhere!

[[EggdropRecords|How Eggdrop tracks users]]

[[EggModules|What is the difference between the IRC, Server, and Channel modules?]]

Http async

2024-05-04T20:58:53Z

Mortmann: Created page with "The ::http::geturl command blocks until the operation completes, unless the -command option specifies a callback that is invoked when the HTTP transaction completes. <pre> package require http proc httpCallback {token} { regexp {(?i)<title>([^<>]+)} [http::data $token] -> title http::cleanup $token puts "Title was \"$title\"" } set token [::http::geturl http://netbsd.org -timeout 10000 -command httpCallback] <pre>"

The ::http::geturl command blocks until the operation completes, unless the -command option specifies a callback that is invoked when the HTTP transaction completes.

<pre>
package require http

proc httpCallback {token} {
regexp {(?i)<title>([^<>]+)} [http::data $token] -> title
http::cleanup $token
puts "Title was \"$title\""
}

set token [::http::geturl http://netbsd.org -timeout 10000 -command httpCallback]
<pre>

TclHTTPS

2024-05-04T20:38:17Z

Mortmann:

The http package is a common package required by Tcl scripts that need to connect to websites. However, the "default" commands don't make it easy to understand how to connect to an https website instead of an http website, and will often generate an error if the user tries to do so. Below is an example of how to do so.

NOTE: You have to install both the http AND tls Tcl libraries on the host for this to work- on Debian-based systems, this is done by an administrator running <code>sudo apt-get install tcl-tls</code>. The http package comes standard with Tcl; you shouldn't need to install it separately.

To connect to a webpage and display its contents, you can use the following code example:

<pre>
package require http
package require tls

http::register https 443 [list ::tls::socket -autoservername true]
catch {set req [http::geturl https://my.secure.site/ -timeout 10000]} error
set status [http::status $req]
if {$status != "ok"} {
putlog "HTTP request error: $error"
return
}
putlog [http::data $req]
</pre>

see also https://tcl.tk/man/tcl8.6/TclCmd/http.htm#M50