Skip to content

Instantly share code, notes, and snippets.

@khobbits
khobbits / tcl.tcl
Last active August 29, 2015 14:12 — forked from chrisgward/tcl.tcl
proc khtcl {nick host hand chan arg} {
set khtclctx [getctx]
if { [getbncuser $khtclctx tag tclbot] != "1" } { return }
set lines 4
set first [lindex [split $arg " "] 0]
set skipempty 1
if {$first == "-v"} {
set arg [string range $arg 3 end]
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" dir="{S_CONTENT_DIRECTION}" lang="{S_USER_LANG}" xml:lang="{S_USER_LANG}">
<head>
<meta http-equiv="content-type" content="text/html; charset={S_CONTENT_ENCODING}" />
<meta http-equiv="content-style-type" content="text/css" />
<meta http-equiv="content-language" content="{S_USER_LANG}" />
<meta http-equiv="imagetoolbar" content="no" />
<meta name="resource-type" content="document" />
<meta name="distribution" content="global" />