window:
	res:
		windowType	wstandard
		menuLeft	true
	endres:
endwindow:
close:
	res:
		bitmapPath	$(bitmaps)
		bitmapFile	CLOSE::CBM
	endres:
endclose:
title:
	res:
		leftLabel	lbg|NǗ
		leftKanjiFont	$(kanjiFont)
		leftFont	$(kanaFont)
		rightLabel	/etc/hosts
		rightKanjiFont	$(kanjiFont)
		rightFont	$(kanaFont)
		switch $(COLOR)
			case MONO:
				bitmapPath	$(bitmaps)
				backgroundFile	GRAY3
				transparent	false
				break
		endswitch
	endres:
endtitle:
menu: net_menu
	mitem: sort
		res:
			label		Xg
			kanjiFont       $(kanjiFont)
			font		$(kanaFont)
		endres:
		pmitem: m_name
			res:
				leftLabel	OɃ\|g
				leftKanjiFont	$(kanjiFont)
				leftFont	$(kanaFont)
				bitmapPath	$(bitmaps)
				bitmapFile	null::CBM
			endres:
			act:
				switch $(sort)
					case name:
						quit
					case addr:
						setval m_addr bitmapFile null::CBM
						break
					case reg:
						setval m_reg bitmapFile null::CBM
						break
				endswitch
				put name $(sort)
				job init_list
			endact:
		endpmitem:
		pmitem: m_addr
			res:
				leftLabel	AhXɃ\|g
				leftKanjiFont	$(kanjiFont)
				leftFont	$(kanaFont)
				bitmapPath	$(bitmaps)
				bitmapFile	null::CBM
			endres:
			act:
				switch $(sort)
					case addr:
						quit
					case name:
						setval m_name bitmapFile null::CBM
						break
					case reg:
						setval m_reg bitmapFile null::CBM
						break
				endswitch
				put addr $(sort)
				job init_list
			endact:
		endpmitem:
		pmitem: m_reg
			res:
				leftLabel	o^ɕ\
				leftKanjiFont	$(kanjiFont)
				leftFont	$(kanaFont)
				bitmapPath	$(bitmaps)
				bitmapFile	null::CBM
			endres:
			act:
				switch $(sort)
					case reg:
						quit
					case name:
						setval m_name bitmapFile null::CBM
						break
					case addr:
						setval m_addr bitmapFile null::CBM
						break
				endswitch
				put reg $(sort)
				job init_list
			endact:
		endpmitem:
		pmitem: line1
			res:
				bitmapPath	$(bitmaps)
				backgroundFile	barH_16x8::CBM
				height		8
				sensitive	false
			endres:
		endpmitem:
		pmitem: print
			res:
				label		@
				kanjiFont	$(kanjiFont)
				font		$(kanaFont)
			endres:
			act:
				put 13 $(menu_no)
				$(print) = sub $(menuPath)/Common/printer ++48++48
				trap $(print) print
			endact:
		endpmitem:
	endmitem:
	mitem: file
		res:
			label		t@C
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
		endres:
		pmitem: m_remote
			res:
				leftLabel	'|g /etc/hosts Rs|'
				leftKanjiFont	$(kanjiFont)
				leftFont	$(kanaFont)
			endres:
			act:
				switch $(HOST_NAME)
					case '':
						put 10 $(err_no)
						job err_remote
						quit
				endswitch
				put 6 $(cmd)
				put 6 $(menu_no)
				put '|g /etc/hosts Rs|' $(cmdName)
				put 'zXgu$(HOST_NAME)v /etc/hosts Rs|܂B' $(confirm_msg1)
				$(confirm) = sub $(commonPath)/confirm1 ++48++48
				trap $(confirm) confirm
			endact:
		endpmitem:
		pmitem: m_local
			res:
				leftLabel	|Jɂt@CRs|
				leftKanjiFont	$(kanjiFont)
				leftFont	$(kanaFont)
			endres:
			act:
				$(getfile) = getfile
				trap $(getfile) getfile
			endact:
		endpmitem:
	endmitem:
endmenu:
dialog: dialogs
	res:
		defaultDistance		10
		dialogType		modeless
	endres:
	ditem: list_label
		res:
			itemType	bitmap
			label		'@zXg@@@@@@AhX'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)+2
		endres:
	endditem:
	ditem: list
		res:
			itemType	scrtext
			fromVert	list_label
			vertDistance	4
			horizDistance	#(fWidth)
			width		#(fWidth)+1*34
			height		#(lHeight)*12+8
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			bind1		select1
			file		/dev/null
		endres:
		act:
			put $(line)
			switch $(line)@0
				case *:
					put 1 $(myhost)
					put $(line)@1 $(TMP_NAME)
					put $(line)@2 $(TMP_ADDR)
					break
				default:
					put 0 $(myhost)
					put $(line)@0 $(TMP_NAME)
					put $(line)@1 $(TMP_ADDR)
					break
			endswitch
		endact:
	endditem:
	ditem: new
		res:
			itemType	button
			fromVert	list_label
			fromHoriz	list
			label		' V@K '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	4
			horizDistance	#(fWidth)*2
		endres:
		act:
			put 1 $(menu_no)
			put zXgVKo^ $(cmdName)
			$(new) = open $(menu)/newhost ++48++48
			job allinsense
			trap $(new) sub_end
		endact:
	endditem:
	ditem: chg
		res:
			itemType	button
			fromVert	new
			fromHoriz	list
			label		' ρ@X '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
		act:
			$(onrun) = sub $(commonPath)/onrun ++48++48
			$(etc)/Network/Scheck_busy.sh $(HOST_NAME)
			close $(onrun)
			switch #(status)
				case 0:
					break
				default:
					put #(status)/0x100 $(err_no)
					sleep 1
					job err
					quit
			endswitch
			put 2 $(menu_no)
			put zXgύX $(cmdName)
			$(chg) = open $(menu)/chghost ++48++48
			job allinsense
			trap $(chg) sub_end
		endact:
	endditem:
	ditem: del
		res:
			itemType	button
			fromVert	chg
			fromHoriz	list
			label		' @ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
		act:
			$(onrun) = sub $(commonPath)/onrun ++48++48
			$(etc)/Network/Scheck_busy.sh $(HOST_NAME)
			close $(onrun)
			switch #(status)
				case 0:
					break
				default:
					put #(status)/0x100 $(err_no)
					sleep 1
					job err
					quit
			endswitch
			put 3 $(cmd)
			put 3 $(menu_no)
			put zXgo^ $(cmdName)
			put 'zXgu$(HOST_NAME) $(HOST_ADDR)v' $(confirm_msg1)
			put 'o^܂B' $(confirm_msg2)
			$(confirm) = sub $(commonPath)/confirm3 ++48++48
			trap $(confirm) confirm
		endact:
	endditem:
	ditem: line
		res:
			itemType	bitmap
			fromVert	del
			fromHoriz	list
			label		--------------
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	0
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: remote_perm
		res:
			itemType	bitmap
			fromVert	line
			fromHoriz	list
			label		|gR}hF
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	0
			horizDistance	#(fWidth)*2
		endres:
	endditem:
	ditem: host_eq
		res:
			itemType	button
			fromVert	remote_perm
			fromHoriz	list
			leftLabel	'for S|U|'
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
			vertDistance	#(fWidth)/2
			horizDistance	#(fWidth)*4
		endres:
		act:
			put 5 $(menu_no)
			$(host_eq) = open $(menu)/hosts_eq ++48++48
			job allinsense
			trap $(host_eq) sub_end
		endact:
	endditem:
	ditem: rhosts
		res:
			itemType	button
			fromVert	host_eq
			fromHoriz	list
			leftLabel	'to |U|(user)'
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
			vertDistance	#(fWidth)/2
			horizDistance	#(fWidth)*4
			autoAdjust	on
		endres:
		act:
			put 7 $(menu_no)
			$(rhosts) = open $(menu)/rhosts ++48++48
			job allinsense
			trap $(rhosts) sub_end
		endact:
	endditem:
enddialog:
proc: pre
	global $(HOST_NAME)
	global $(HOST_ADDR)
	global $(CHANGE_HOSTS)
	put $(menuPath)/Network $(menu)
	put $(icons) $(okPath)
	put Network $(okFile)
	$(TMP) = mktemp
	put /tmp/$(TMP) $(LIST)
	$(TMP) = mktemp
	put /tmp/$(TMP) $(SORT_TMP)
	put 0 $(menu_no)
	put on $(mapped)
	put off $(opened)
endproc:
proc: close
	switch $(ONRUN)
		case on:
			quit
	endswitch
	job off
	close
endproc:
proc: off
	switch #(menu_no)
		case 1:
			close $(new)
			break
		case 2:
			close $(chg)
			break
		case 3:
		case 6:
			close $(confirm)
			break
		case 5:
			close $(host_eq)
			break
		case 7:
			close $(rhosts)
			break
		case 10:
			close $(err)
			break
		case 13:
			close $(print)
			break
	endswitch
	local $(HOST_NAME)
	local $(HOST_ADDR)
	local $(CHANGE_HOSTS)
	rm -f $(LIST) $(SORT_TMP)
endproc:
proc: open
	setval rhosts leftLabel 'to |U|($(USER))'
	setval m_name bitmapFile null::CBM
	setval m_addr bitmapFile null::CBM
	setval m_reg bitmapFile null::CBM
	put name $(sort)
	job init
	switch #(uid)
		case 0:
			switch $(YP)
				case server:
				case client:
					break
				default:
					quit
			endswitch
	endswitch
	setval file sensitive false
	setval new sensitive false
endproc:
proc: init
	$(bin)/Snet_check -lham > $(SORT_TMP)
	job init_list
	put off $(CHANGE_HOSTS)
endproc:
proc: init_list
	switch $(sort)
		case name:
			setval m_name bitmapFile checkmark::CBM
			sort -u -t\ +0.2 $(SORT_TMP) > $(LIST)
			break
		case addr:
			setval m_addr bitmapFile checkmark::CBM
			sort -t\ +0.19 $(SORT_TMP) > $(LIST)
			break
		case reg:
			setval m_reg bitmapFile checkmark::CBM
			cp $(SORT_TMP) $(LIST)
			break
	endswitch
	setval list file $(LIST)
	put off $(select_on_cmd)
	switch #(menu_no)
		case 0:
			job insense
			break
	endswitch
endproc:
proc: print
	put 0 $(menu_no)
	switch $(printer)
		case '':
			quit
	endswitch
	put on $(ONRUN)
	put 101 $(menu_no)
	$(onrun) = sub $(commonPath)/onrun ++48++48
	$(pid) = bg $(etc)/Network/Shosts.sh print $(printer) $(print_count) $(sort)
	trap $(pid) print_end
endproc:
proc: print_end
	close $(onrun)
	put off $(ONRUN)
	put 0 $(menu_no)
endproc:
proc: insense
	setval m_remote sensitive false
	switch $(YP)
		case server:
		case client:
			setval m_local sensitive false
			setval new sensitive false
			break
		default:
			setval m_local sensitive true
			switch #(uid)
				case 0:
					setval new sensitive true
					break
				default:
					setval new sensitive false
					break
			endswitch
			break
	endswitch
	setval chg sensitive false
	setval del sensitive false
	setval host_eq sensitive true
	setval rhosts sensitive true
endproc:
proc: allinsense
	setval m_remote sensitive false
	setval m_local sensitive false
	setval new sensitive false
	setval chg sensitive false
	setval del sensitive false
	setval host_eq sensitive false
	setval rhosts sensitive false
endproc:
proc: addsense
	switch $(YP)
		case server:
		case client:
			break
		default:
			switch $(uid)
				case 0:
					setval m_local sensitive true
					setval new sensitive true
					break
			endswitch
			break
	endswitch
	setval host_eq sensitive true
	setval rhosts sensitive true
endproc:
proc: select1
	switch #(uid)
		case 0:
			switch $(YP)
				case server:
				case client:
					quit
			endswitch
			break
		default:
			quit
	endswitch
	switch #(menu_no)
		case 1:
		case 2:
		case 5:
			put on $(select_on_cmd)
			quit
	endswitch
	put $(TMP_NAME) $(HOST_NAME)
	put $(TMP_ADDR) $(HOST_ADDR)
	switch $(HOST_NAME)
		case '':
			quit
		case localhost:
			job insense
			put on $(select_on_cmd)
			quit
	endswitch
	switch $(myhost)
		case 0:
			setval m_remote sensitive true
			setval chg sensitive true
			setval del sensitive true
			break
		case 1:
			job insense
			break
	endswitch
	put on $(select_on_cmd)
endproc:
proc: cmd_end
	buzzer $(main)
	close $(onrun)
	switch $(mapped)
		case on:
			job bgdone
			break
		case off:
			put on $(opened)
			break
	endswitch
	put 102 $(menu_no)
endproc:
proc: bgdone
	switch #(cmd)
		case 3:
			switch #(bgstat)
				case 0:
					$(n_end) = sub $(commonPath)/normalEnd ++48++48
					trap $(n_end) n_end
					break
				default:
					put off $(ONRUN)
					put #(bgstat)/0x100 $(err_no)
					job err
					break
			endswitch
			break
		case 6:
			switch #(bgstat)
				case 0:
					put ' hosts  /etc/hosts.backup ɎcĂ܂B' $(confirm_msg1)
					$(n_end) = sub $(commonPath)/normalEnd1 ++48++48
					trap $(n_end) n_end
					break
				default:
					put off $(ONRUN)
					put #(bgstat)/0x100 $(err_no)
					job err_remote
					break
			endswitch
			break
		case 7:
			switch #(bgstat)
				case 0:
					put ' hosts  /etc/hosts.backup ɎcĂ܂B' $(confirm_msg1)
					$(n_end) = sub $(commonPath)/normalEnd1 ++48++48
					trap $(n_end) n_end
					break
				default:
					put off $(ONRUN)
					put #(bgstat)/0x100 $(err_no)
					job err_local
					break
			endswitch
			break
	endswitch
endproc:
proc: unmap
	switch #(menu_no)
		case 1:
			unmap $(new)
			break
		case 2:
			unmap $(chg)
			break
		case 3:
		case 6:
			unmap $(confirm)
			break
		case 5:
			unmap $(host_eq)
			break
		case 7:
			unmap $(rhosts)
			break
		case 10:
			unmap $(err)
			break
		case 13:
			unmap $(print)
			break
		case 101:
			unmap $(onrun)
			break
		case 102:
			unmap $(n_end)
			break
	endswitch
	put off $(mapped)
endproc:
proc: map
	switch #(menu_no)
		case 1:
			raise $(new)
			map $(new)
			break
		case 2:
			raise $(chg)
			map $(chg)
			break
		case 3:
		case 6:
			move $(confirm)
			raise $(confirm)
			map $(confirm)
			break
		case 5:
			raise $(host_eq)
			map $(host_eq)
			break
		case 7:
			raise $(rhosts)
			map $(rhosts)
			break
		case 10:
			move $(err)
			raise $(err)
			map $(err)
			break
		case 13:
			move $(print)
			raise $(print)
			map $(print)
			break
		case 101:
			move $(onrun)
			raise $(onrun)
			map $(onrun)
			break
		case 102:
			switch $(opened)
				case on:
					job bgdone
					break
				case off:
					move $(n_end)
					raise $(n_end)
					map $(n_end)
					break
			endswitch
	endswitch
	put on $(mapped)
	put off $(opened)
endproc:
proc: title
	job move
	job up
endproc:
proc: raise
	job up
endproc:
proc: move
	switch #(menu_no)
		case 3:
		case 6:
			move $(confirm)
			break
		case 10:
			move $(err)
			break
		case 13:
			move $(print)
			break
		case 101:
			move $(onrun)
			break
		case 102:
			move $(n_end)
			break
	endswitch
endproc:
proc: up
	switch #(menu_no)
		case 3:
		case 6:
			raise $(confirm)
			break
		case 10:
			raise $(err)
			break
		case 13:
			raise $(print)
			break
		case 101:
			raise $(onrun)
			break
		case 102:
			raise $(n_end)
			break
	endswitch
endproc:
proc: n_end
	put off $(ONRUN)
	put 0 $(menu_no)
	switch #(cmd)
		case 3:
		case 6:
		case 7:
			job init
	endswitch
endproc:
proc: confirm
	switch $(answer)
		case cancel:
			put 0 $(menu_no)
			quit
	endswitch
	put on $(ONRUN)
	put 101 $(menu_no)
	$(onrun) = sub $(commonPath)/onrun ++48++48
	switch #(cmd)
		case 3:
			$(pid) = bg $(etc)/Network/Shosts.sh del $(HOST_NAME) $(MAIL_MODE)
			break
		case 6:
			$(pid) = bg $(etc)/Network/Sget_remote.sh $(HOST_NAME) /etc/hosts.backup $(MAIL_MODE)
			break
		case 7:
			$(pid) = bg $(etc)/Network/Sget_local.sh repl $(pg_path) /etc/hosts.backup $(MAIL_MODE)
			break
	endswitch
	$(bgstat) = trap $(pid) cmd_end
endproc:
proc: sub_end
	switch #(menu_no)
		case 1:
		case 2:
		case 5:
		case 7:
			switch $(CHANGE_HOSTS)
				case on:
					put 0 $(menu_no)
					job init
					quit
				case off:
					job addsense
					switch $(select_on_cmd)
						case on:
							put $(TMP_NAME) $(HOST_NAME)
							put $(TMP_ADDR) $(HOST_ADDR)
							switch $(myhost)
								case 0:
									setval m_remote sensitive true
									setval chg sensitive true
									setval del sensitive true
									break
							endswitch
					endswitch
					break
			endswitch
	endswitch
	put 0 $(menu_no)
endproc:
proc: err
	put 10 $(menu_no)
	switch #(err_no)
		case 1:
			put '݁ÃzXg̃fBXN|g}Eg' $(confirm_msg1)
			put 'Ă܂BUA}EgĂsĉB' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 2:
			put '݁ÃzXg烊|g}EgĂ܂B' $(confirm_msg1)
			put 'UA}EgĂĂsĉB' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 3:
			put '݁ÃzXgɃ|gOCĂ܂B' $(confirm_msg1)
			put 'UOAEgĂĂsĉB' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 4:
			put '݁ÃzXg烊|gOCĂ܂B' $(confirm_msg1)
			put 'UOAEgĂĂsĉB' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 5:
			put '̃zXg̃v^ւ̈v܂B' $(confirm_msg1)
			put 'IĂsĉB' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
	endswitch
	buzzer
	trap $(err) err_end
endproc:
proc: err_remote
	put 10 $(menu_no)
	switch #(err_no)
		case 1:
			put 'zXgu$(HOST_NAME)v /etc/hosts ' $(confirm_msg1)
			put 'Rs|ł܂B' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 10:
			put '|gzXgXgIсANbNĂA' $(confirm_msg1)
			put 'u|g /etc/hosts Rs|vZNgĉB' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
	endswitch
	buzzer
	trap $(err) err_end
endproc:
proc: err_local
	put 10 $(menu_no)
	switch #(err_no)
		case 1:
			put 'u$(pg_path)vRs|邱ƂAł܂łB $(confirm_msg1)
			$(err) = sub $(commonPath)/error1 ++48++48
			break
	endswitch
	buzzer
	trap $(err) err_end
endproc:
proc: err_end
	put 0 $(menu_no)
endproc:
proc: getfile
	switch #(pg_stat)
		case 0:
			put 7 $(cmd)
			put 7 $(menu_no)
			put |Jɂt@CRs| $(cmdName)
			$(etc)/Network/Sget_local.sh check $(pg_path)
			switch #(status)
				case 0:
					put 'u$(pg_path)v /etc/hosts ɃRs|܂B' $(confirm_msg1)
					$(confirm) = sub $(commonPath)/confirm1 ++48++48
					break
				default:
					put 'u$(pg_path)vɂ́ÃzXgo^Ă܂̂ŁA' $(confirm_msg1)
					put 'ǉ /etc/hosts ɃRs|܂B' $(confirm_msg2)
					$(confirm) = sub $(commonPath)/confirm3 ++48++48
					buzzer
					break
			endswitch
			trap $(confirm) confirm
			break
		default:
			break
	endswitch
endproc:
