#!/usr/bin/dpwish -f
set zircon(lib) .
#
#	ZIRCON - an X11 interface to the Internet Relay Chat
#
#	Written by
#		Lindsay (Lindsay F. Marshall)
#		Jimbles (Jon Harley)
#
#	Copyright (c) 1993
#
#	See the file COPYRIGHT for details
#
lappend auto_path $zircon(lib)/lib

if ![string match "7*" [info tclversion]] {
    puts stdout {*** Sorry, you need tcl 7.* in order to run Zircon}
    exit
}
#
InitGlobals
Control .
set mainInfo [Info .@info]
setNickname $nickname
#
# save some space!!!
#
rename InitGlobals {}
set s [Server :: list]
set v [lsearch $s $zircon(host)]
listdel s $v
while {![startIRC $zircon(host)]} {
    if [string match {} $s] { break }
    set zircon(host) [lindex $s 0]
    set s [lrange $s 1 end]
    update
}
