#!/bin/sh
# the next line restarts using wish \
exec wish "$0" "$@"

#
# tkntpdate		by Yoichi Imai <yoichi@silver-forest.com>
wm title . "Tcl/Tk ntpdate"
# Servers
set serv(1) "ntp.tut.ac.jp"
set serv(2) "clock.nc.fukuoka-u.ac.jp"
set serv(3) "clock.tl.fukuoka-u.ac.jp"
set serv(4) "cesium.mtk.nao.ac.jp"
set serv(5) "eagle.center.osakafu-u.ac.jp"
set serv(6) "ntp.sut.ac.jp"
set serv(7) "ntp.hiroshima-u.ac.jp"
set serv(8) "ntp1.jst.mfeed.ad.jp"
set serv(9) "ntp2.jst.mfeed.ad.jp"
set serv(10) "ntp3.jst.mfeed.ad.jp"

# Warning procedure
proc Message {} {
    set tmp [ tk_messageBox -parent . \
	    -title "This action shuold be done by root." \
	    -icon warning \
	    -type ok \
	    -message \
	    "ϡɥ򹹿ˤ root ¤ɬפǤ" ]
}

# GUI section
label .lb0 -text "Ф򤷤³򲡤Ƥ" -justify center
label .lb1 -text "¹Ԥˤroot¤ɬפǤ" -justify center
tk_optionMenu .server opt(server) \
 $serv(1) $serv(2) $serv(3) $serv(4) $serv(5) $serv(6) \
 $serv(7) $serv(8) $serv(9) $serv(10)
checkbutton .clockw -text "ϡɥϹʤ" \
-variable cw -onvalue "y" -offvalue "n" 
button .connect -text "³" -command {
	set exemsg [ exec /usr/sbin/ntpdate $opt(server) ]
	if { $cw == "n" } {
	    set current_uid [ exec id -u ]
	    if { $current_uid == "0" } {
		exec /sbin/clock -w
	    } else {
		Message
	    }
	}
}
button .exit -text "Exit" -command exit
label .last -text "¹Է"
message .me1 -textvariable exemsg -width 200
pack .lb0 .lb1 .server .clockw .last .me1
pack .connect .exit -side left -expand yes



