| [5167] | 1 | # irkservers.tcl: |
|---|
| 2 | # |
|---|
| 3 | # This file defines the servers that are known to the Tcl IRK library. |
|---|
| 4 | # It is actually a Tcl script and is source'd by the irk.tcl file. |
|---|
| 5 | |
|---|
| 6 | namespace eval ::irk { |
|---|
| 7 | |
|---|
| 8 | # This procedure helps define a new server: |
|---|
| 9 | |
|---|
| 10 | proc defineserver {symname host ports} { |
|---|
| 11 | variable state |
|---|
| 12 | variable symsrv |
|---|
| 13 | |
|---|
| 14 | # Auto initialize the list of known (symbolic names for) servers: |
|---|
| 15 | |
|---|
| 16 | if {![info exists state(servers)]} { |
|---|
| 17 | set state(servers) {} |
|---|
| 18 | } |
|---|
| 19 | |
|---|
| 20 | # Add an entry in the list of (symbolic names for) servers: |
|---|
| 21 | |
|---|
| 22 | lappend state(servers) $symname |
|---|
| 23 | |
|---|
| 24 | # Add an entry for the contact information of this symbolic server: |
|---|
| 25 | |
|---|
| 26 | set symsrv($symname) [list $host $ports] |
|---|
| 27 | } |
|---|
| 28 | |
|---|
| 29 | # OK, now define a bunch of servers. This is where you can add your |
|---|
| 30 | # own, or edit if things change: |
|---|
| 31 | |
|---|
| 32 | defineserver twisted twisted.ma.us.dal.net {6660 6661 6662 6663} |
|---|
| 33 | defineserver dalnet irc.dal.net 6667 |
|---|
| 34 | defineserver undernet McLean.VA.us.undernet.org {6667 6668} |
|---|
| 35 | defineserver efnet irc.Prison.NET 6666 |
|---|
| 36 | defineserver ircnet irc.stealth.net {6663 6664} |
|---|
| 37 | defineserver powersurf irc.powersurfr.com 6667 |
|---|
| 38 | defineserver coins coins.dal.net {6667 6668 6669 7000} |
|---|
| 39 | defineserver sodre sodre.on.ca.dal.net {6667 6668 6669 7000} |
|---|
| 40 | defineserver austnet au.austnet.org 6667 |
|---|
| 41 | defineserver nznet nz.austnet.org 6667 |
|---|
| 42 | defineserver sgnet sg.austnet.org 6667 |
|---|
| 43 | defineserver us.efnet us.rr.efnet.net 6667 |
|---|
| 44 | defineserver eu.efnet eu.rr.efnet.net 6667 |
|---|
| 45 | defineserver ca.efnet ca.rr.efnet.net 6667 |
|---|
| 46 | defineserver au.efnet au.rr.efnet.net 6667 |
|---|
| 47 | defineserver us.ircnet us.ircnet.org {6665 6666 6667 6668} |
|---|
| 48 | defineserver eu.ircnet eu.ircnet.org {6665 6666 6667 6668} |
|---|
| 49 | defineserver ca.ircnet ca.ircnet.org {6665 6666 6667 6668} |
|---|
| 50 | defineserver au.ircnet au.ircnet.org {6665 6666 6667 6668} |
|---|
| 51 | defineserver us.undernet us.undernet.org 6667 |
|---|
| 52 | defineserver eu.undernet eu.undernet.org 6667 |
|---|
| 53 | defineserver othernet irc.othernet.org 6667 |
|---|
| 54 | defineserver de.quakenet de.quakenet.org 6667 |
|---|
| 55 | defineserver datacore irc.datacore.ch 6667 |
|---|
| 56 | } |
|---|
