Edit File by line

<!doctype html>

[0] Fix | Delete

[1] Fix | Delete

<title>CodeMirror: Tcl mode</title>

[2] Fix | Delete

[3] Fix | Delete

[4] Fix | Delete

[5] Fix | Delete

[6] Fix | Delete

[7] Fix | Delete

[8] Fix | Delete

[9] Fix | Delete

[10] Fix | Delete

[11] Fix | Delete

<a href="http://codemirror.net"><h1>CodeMirror</h1><img id=logo src="../../doc/logo.png"></a>

[12] Fix | Delete

[13] Fix | Delete

<ul>

[14] Fix | Delete

[15] Fix | Delete

<li><a href="../../doc/manual.html">Manual</a>

[16] Fix | Delete

[17] Fix | Delete

</ul>

[18] Fix | Delete

<ul>

[19] Fix | Delete

<li><a href="../index.html">Language modes</a>

[20] Fix | Delete

[21] Fix | Delete

</ul>

[22] Fix | Delete

</div>

[23] Fix | Delete

[24] Fix | Delete

[25] Fix | Delete

[26] Fix | Delete

[27] Fix | Delete

##############################################################################################

[28] Fix | Delete

## ## whois.tcl for eggdrop by Ford_Lawnmower irc.geekshed.net #Script-Help ## ##

[29] Fix | Delete

##############################################################################################

[30] Fix | Delete

## To use this script you must set channel flag +whois (ie .chanset #chan +whois) ##

[31] Fix | Delete

##############################################################################################

[32] Fix | Delete

## ____ __ ########################################### ##

[33] Fix | Delete

## / __/___ _ ___ _ ___/ /____ ___ ___ ########################################### ##

[34] Fix | Delete

## / _/ / _ `// _ `// _ // __// _ \ / _ \ ########################################### ##

[35] Fix | Delete

## /___/ \_, / \_, / \_,_//_/ \___// .__/ ########################################### ##

[36] Fix | Delete

## /___/ /___/ /_/ ########################################### ##

[37] Fix | Delete

## ########################################### ##

[38] Fix | Delete

##############################################################################################

[39] Fix | Delete

## ## Start Setup. ## ##

[40] Fix | Delete

##############################################################################################

[41] Fix | Delete

namespace eval whois {

[42] Fix | Delete

## change cmdchar to the trigger you want to use ## ##

[43] Fix | Delete

variable cmdchar "!"

[44] Fix | Delete

## change command to the word trigger you would like to use. ## ##

[45] Fix | Delete

## Keep in mind, This will also change the .chanset +/-command ## ##

[46] Fix | Delete

variable command "whois"

[47] Fix | Delete

## change textf to the colors you want for the text. ## ##

[48] Fix | Delete

variable textf "\017\00304"

[49] Fix | Delete

## change tagf to the colors you want for tags: ## ##

[50] Fix | Delete

variable tagf "\017\002"

[51] Fix | Delete

## Change logo to the logo you want at the start of the line. ## ##

[52] Fix | Delete

variable logo "\017\00304\002\[\00306W\003hois\00304\]\017"

[53] Fix | Delete

## Change lineout to the results you want. Valid results are channel users modes topic ## ##

[54] Fix | Delete

variable lineout "channel users modes topic"

[55] Fix | Delete

##############################################################################################

[56] Fix | Delete

## ## End Setup. ## ##

[57] Fix | Delete

##############################################################################################

[58] Fix | Delete

variable channel ""

[59] Fix | Delete

setudef flag $whois::command

[60] Fix | Delete

bind pub -|- [string trimleft $whois::cmdchar]${whois::command} whois::list

[61] Fix | Delete

bind raw -|- "311" whois::311

[62] Fix | Delete

bind raw -|- "312" whois::312

[63] Fix | Delete

bind raw -|- "319" whois::319

[64] Fix | Delete

bind raw -|- "317" whois::317

[65] Fix | Delete

bind raw -|- "313" whois::multi

[66] Fix | Delete

bind raw -|- "310" whois::multi

[67] Fix | Delete

bind raw -|- "335" whois::multi

[68] Fix | Delete

bind raw -|- "301" whois::301

[69] Fix | Delete

bind raw -|- "671" whois::multi

[70] Fix | Delete

bind raw -|- "320" whois::multi

[71] Fix | Delete

bind raw -|- "401" whois::multi

[72] Fix | Delete

bind raw -|- "318" whois::318

[73] Fix | Delete

bind raw -|- "307" whois::307

[74] Fix | Delete

}

[75] Fix | Delete

proc whois::311 {from key text} {

[76] Fix | Delete

if {[regexp -- {^[^\s]+\s(.+?)\s(.+?)\s(.+?)\s\*\s\:(.+)$} $text wholematch nick ident host realname]} {

[77] Fix | Delete

putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Host:${whois::textf} \

[78] Fix | Delete

$nick $${ident}@${host}$ ${whois::tagf}Realname:${whois::textf} $realname"

[79] Fix | Delete

}

[80] Fix | Delete

}

[81] Fix | Delete

proc whois::multi {from key text} {

[82] Fix | Delete

if {[regexp {\:(.*)$} $text match $key]} {

[83] Fix | Delete

putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Note:${whois::textf} [subst $$key]"

[84] Fix | Delete

return 1

[85] Fix | Delete

}

[86] Fix | Delete

}

[87] Fix | Delete

proc whois::312 {from key text} {

[88] Fix | Delete

regexp {([^\s]+)\s\:} $text match server

[89] Fix | Delete

putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Server:${whois::textf} $server"

[90] Fix | Delete

}

[91] Fix | Delete

proc whois::319 {from key text} {

[92] Fix | Delete

if {[regexp {.+\:(.+)$} $text match channels]} {

[93] Fix | Delete

putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Channels:${whois::textf} $channels"

[94] Fix | Delete

}

[95] Fix | Delete

}

[96] Fix | Delete

proc whois::317 {from key text} {

[97] Fix | Delete

if {[regexp -- {.*\s(\d+)\s(\d+)\s\:} $text wholematch idle signon]} {

[98] Fix | Delete

putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Connected:${whois::textf} \

[99] Fix | Delete

[ctime $signon] ${whois::tagf}Idle:${whois::textf} [duration $idle]"

[100] Fix | Delete

}

[101] Fix | Delete

}

[102] Fix | Delete

proc whois::301 {from key text} {

[103] Fix | Delete

if {[regexp {^.+\s[^\s]+\s\:(.*)$} $text match awaymsg]} {

[104] Fix | Delete

putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Away:${whois::textf} $awaymsg"

[105] Fix | Delete

}

[106] Fix | Delete

}

[107] Fix | Delete

proc whois::318 {from key text} {

[108] Fix | Delete

namespace eval whois {

[109] Fix | Delete

variable channel ""

[110] Fix | Delete

}

[111] Fix | Delete

variable whois::channel ""

[112] Fix | Delete

}

[113] Fix | Delete

proc whois::307 {from key text} {

[114] Fix | Delete

putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Services:${whois::textf} Registered Nick"

[115] Fix | Delete

}

[116] Fix | Delete

proc whois::list {nick host hand chan text} {

[117] Fix | Delete

if {[lsearch -exact [channel info $chan] "+${whois::command}"] != -1} {

[118] Fix | Delete

namespace eval whois {

[119] Fix | Delete

variable channel ""

[120] Fix | Delete

}

[121] Fix | Delete

variable whois::channel $chan

[122] Fix | Delete

putserv "WHOIS $text"

[123] Fix | Delete

}

[124] Fix | Delete

}

[125] Fix | Delete

putlog "\002*Loaded* \017\00304\002\[\00306W\003hois\00304\]\017 \002by \

[126] Fix | Delete

Ford_Lawnmower irc.GeekShed.net #Script-Help"

[127] Fix | Delete

</textarea></form>

[128] Fix | Delete

[129] Fix | Delete

var editor = CodeMirror.fromTextArea(document.getElementById("code"), {

[130] Fix | Delete

theme: "night",

[131] Fix | Delete

lineNumbers: true,

[132] Fix | Delete

indentUnit: 2,

[133] Fix | Delete

scrollPastEnd: true,

[134] Fix | Delete

mode: "text/x-tcl"

[135] Fix | Delete

});

[136] Fix | Delete

</script>

[137] Fix | Delete

[138] Fix | Delete

<p><strong>MIME types defined:</strong> <code>text/x-tcl</code>.</p>

[139] Fix | Delete

[140] Fix | Delete

</article>

[141] Fix | Delete

[142] Fix | Delete