window:
	res:
		windowType	wstandard
	endres:
endwindow:
close:
	res:
		bitmapPath	$(bitmaps)
		bitmapFile	CLOSE::CBM
	endres:
endclose:
title:
	res:
		leftLabel	
		leftKanjiFont	$(kanjiFont)
		leftFont	$(kanaFont)
		switch $(COLOR)
			case MONO:
				bitmapPath	$(bitmaps)
				backgroundFile	GRAY3
				transparent	false
				break
		endswitch
	endres:
endtitle:
dialog: dialogs
	res:
		defaultDistance		#(fWidth)
		dialogType		modeless
	endres:
	ditem: passwd
		res:
			itemType	bitmap
			label		'ѥݥ($(USER))'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			autoAdjust	true
		endres:
	endditem:
	ditem: passwd_stat
		res:
			itemType	bitmap
			fromHoriz	passwd
			autoAdjust	true
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
		endres:
	endditem:
	ditem: date
		res:
			itemType	bitmap
			label		'ջ'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	passwd
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			autoAdjust	true
		endres:
	endditem:
	ditem: date_stat
		res:
			itemType	bitmap
			fromVert	passwd
			fromHoriz	passwd
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			autoAdjust	true
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
		endres:
	endditem:
	ditem: net
		res:
			itemType	bitmap
			fromVert	date
			label		ͥåȥݥ
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			autoAdjust	true
		endres:
	endditem:
	ditem: net_stat
		res:
			itemType	text
			string		'ۥ̾$(HOST_NAME_LABEL)\nɥ쥹$(HOST_ADDR)'
			fromVert	net
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*3
			length		200
			width		#(fWidth)*36
			height		#(fHeight)*2
			sensitive	false
			shadowWidth	0
			borderWidth	2
		endres:
	endditem:
	ditem: timed
		res:
			itemType	bitmap
			fromVert	net_stat
			label		ͥåȥݥ
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			autoAdjust	true
		endres:
	endditem:
	ditem: timed_stat
		res:
			itemType	text
			string		'ѥס$(timed)\nޥݡ$(TIMED_MASTER)'
			fromVert	timed
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*3
			length		200
			width		#(fWidth)*36
			height		#(fHeight)*2
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			sensitive	false
			shadowWidth	0
			borderWidth	2
		endres:
	endditem:
	ditem: yp
		res:
			itemType	bitmap
			fromVert	timed_stat
			label		ΣɣӴ
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			autoAdjust	true
		endres:
	endditem:
	ditem: yp_stat
		res:
			itemType	text
			string		'ѥס$(YP_TYPE)\nɥᥤ̾$(YP_DOMAIN)'
			fromVert	yp
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*3
			length		200
			width		#(fWidth)*36
			height		#(fHeight)*2
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			sensitive	false
			shadowWidth	0
			borderWidth	2
		endres:
	endditem:
	ditem: ok
		res:
			itemType	button
			fromVert	yp_stat
			label		' ϡ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
		act:
			job off
			close
		endact:
	endditem:
	ditem: init
		res:
			itemType	button
			fromVert	yp_stat
			fromHoriz	ok
			label		Ϣ³
			sensitive	false
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
	endditem:
enddialog:
proc: pre
	global $(PASSWD)
	global $(TIMED_TYPE)
	global $(YP_KIND)
	global $(YP_TYPE)
	global $(YP_DOMAIN)
	global $(NEW_NAME)
	global $(NEW_ADDR)
	global $(NEW_ADDR1)
	global $(NEW_ADDR2)
	global $(NEW_ADDR3)
	global $(NEW_ADDR4)
	global $(NEW_NETMASK)
	global $(NEW_BROAD)
	global $(HOST_NAME)
	global $(HOST_ADDR)
	global $(HOST_ADDR1)
	global $(HOST_ADDR2)
	global $(HOST_ADDR3)
	global $(HOST_ADDR4)
	global $(HOST_NETMASK)
	global $(HOST_BROAD)
	$(TMP) = mktemp
	put /tmp/$(TMP) $(TMP_LIST1)
	$(TMP) = mktemp
	put /tmp/$(TMP) $(TMP_LIST2)
	job getinfo
endproc:
proc: close
	job off
	close
endproc:
proc: off
	rm -f $(TMP_LIST1) $(TMP_LIST2)
	local $(PASSWD)
	local $(TIMED_TYPE)
	local $(YP_TYPE)
	local $(YP_DOMAIN)
	local $(NEW_NAME)
	local $(NEW_ADDR)
	local $(NEW_ADDR1)
	local $(NEW_ADDR2)
	local $(NEW_ADDR3)
	local $(NEW_ADDR4)
	local $(NEW_NETMASK)
	local $(NEW_BROAD)
	local $(HOST_NAME)
	local $(HOST_ADDR)
	local $(HOST_ADDR1)
	local $(HOST_ADDR2)
	local $(HOST_ADDR3)
	local $(HOST_ADDR4)
	local $(HOST_NETMASK)
	local $(HOST_BROAD)
endproc:
proc: getinfo
	job getinfo_pwd
	job getinfo_net
	job getinfo_timed
	job getinfo_yp
endproc:
proc: getinfo_pwd
	$(bin)/Spwd_check -u $(USER)
	switch #(status)
		case 0:
			put ꤵƤޤ $(passwd)
			break
		default:
			put ꤵƤޤ $(passwd)
			break
	endswitch
endproc:
proc: getinfo_net
	ifdef $(HOSTNAME)
	switch $(status)
		case 0:
			put $(HOSTNAME) $(HOST_NAME)
			break
		default:
			hostname
			put $(stdout) $(HOST_NAME)
			break
	endswitch
	put --- $(HOST_ADDR1)
	switch $(HOST_NAME)
		case '':
			put off $(network)
			put -------- $(HOST_NAME_LABEL)
			put ---.---.---.--- $(HOST_ADDR)
			break
		default:
			$(bin)/Snet_check -s -h $(HOST_NAME)
			put $(stdout)@0 $(HOST_ADDR1)
			put $(stdout)@1 $(HOST_ADDR2)
			put $(stdout)@2 $(HOST_ADDR3)
			put $(stdout)@3 $(HOST_ADDR4)
			put $(HOST_ADDR1).$(HOST_ADDR2).$(HOST_ADDR3).$(HOST_ADDR4) $(HOST_ADDR)
			switch $(HOST_NAME)
				case '':
					put off $(network)
					put -------- $(HOST_NAME_LABEL)
					put ---.---.---.--- $(HOST_ADDR)
					break
				case localhost:
					put off $(network)
					put ݥ(localhost) $(HOST_NAME_LABEL)
					put 127.000.000.001 $(HOST_ADDR)
					put 127 $(HOST_ADDR1)
					put 000 $(HOST_ADDR2)
					put 000 $(HOST_ADDR3)
					put 001 $(HOST_ADDR4)
					break
				default:
					put $(HOST_NAME) $(HOST_NAME_LABEL)
					put on $(network)
					break
			endswitch
	endswitch
	ifdef $(NETMASK)
	switch #(status)
		case 0:
			put $(NETMASK) $(HOST_NETMASK)
			break
		default:
			put '' $(NETMASK)
			break
	endswitch
	ifdef $(BROADCAST)
	switch #(status)
		case 0:
			put $(BROADCAST) $(HOST_BROAD)
			break
		default:
			put '' $(BROADCAST)
			break
	endswitch
endproc:
proc: getinfo_timed
	put 'ѤƤޤ' $(timed)
	put 0 $(TIMED_TYPE)
	ifdef $(TIMED)
	switch #(status)
		case 0:
			switch $(TIMED)
				case MASTER:
					put ޥݸ $(timed)
					put 1 $(TIMED_TYPE)
					break
				case SLAVE:
					put ݥ $(timed)
					put 2 $(TIMED_TYPE)
					break
			endswitch
			break
		default:
			put '' $(TIMED)
			break
	endswitch
	switch $(TIMED)
		case MASTER:
		case SLAVE:
			$(etc)/Basic/Stimed.sh msite
			switch $(status)
				case 0:
					put $(stdout) $(TIMED_MASTER)
					break
				default:
					put -------- $(TIMED_MASTER)
					break
			endswitch
			break
		default:
			put -------- $(TIMED_MASTER)
			break
	endswitch
endproc:
proc: getinfo_yp
	put 'ѤƤޤ' $(YP_TYPE)
	put 0 $(YP_KIND)
	ifdef $(YP)
	switch #(status)
		case 0:
			switch $(YP)
				case m.server:
					put 1 $(YP_KIND)
					put 'ޥݥݥС' $(YP_TYPE)
					break
				case server:
					put 2 $(YP_KIND)
					put 'ݥ֥ݥС' $(YP_TYPE)
					break
				case client:
					put 3 $(YP_KIND)
					put '饤' $(YP_TYPE)
					break
			endswitch
	endswitch
	put '------' $(YP_DOMAIN)
	ifdef $(DOMAINNAME)
	switch #(status)
		case 0:
			switch $(DOMAINNAME)@0
				case '':
					break
				default:
					put $(DOMAINNAME) $(YP_DOMAIN)
					break
			endswitch
			break
	endswitch
endproc:
proc: open
	setval ok label ' ϡ '
	setval init label Ϣ³
	setval passwd_stat leftLabel '$(passwd)'
	setval net_stat string 'ۥ̾$(HOST_NAME_LABEL)\nɥ쥹$(HOST_ADDR)'
	setval timed_stat string 'ѥס$(timed)\nޥݡ$(TIMED_MASTER)'
	setval yp_stat string 'ѥס$(YP_TYPE)\nɥᥤ̾$(YP_DOMAIN)'
	put '' $(pre_date)
	job alarm
endproc:
proc: alarm
	$(bin)/Snet_time -g -h -m
	switch $(stdout)
		case $(pre_date):
			break
		default:
			setval date_stat leftLabel '$(stdout)'
			put $(stdout) $(pre_date)
			break
	endswitch
	alarm 5000 alarm
endproc:
