#!/usr/bin/dpwish -f
set zircon(lib) [pwd]
#
#	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
}
#
wm withdraw .
#
InitGlobals
Control .ctl0
set mainInfo [Info .@info]
setNickname $nickname
#
# save some space!!!
#
rename InitGlobals {}
if ![string match {nil} $zircon(host)] {
    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
    }
}
