rocklinux/package/base/iproute2/stone_mod_network.sh

# --- ROCK-COPYRIGHT-NOTE-BEGIN ---
# 
# This copyright note is auto-generated by ./scripts/Create-CopyPatch.
# Please add additional copyright information _after_ the line containing
# the ROCK-COPYRIGHT-NOTE-END tag. Otherwise it might get removed by
# the ./scripts/Create-CopyPatch script. Do not edit this copyright text!
# 
# ROCK Linux: rock-src/package/base/iproute2/stone_mod_network.sh
# ROCK Linux is Copyright (C) 1998 - 2003 Clifford Wolf
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version. A copy of the GNU General Public
# License can be found at Documentation/COPYING.
# 
# Many people helped and are helping developing ROCK Linux. Please
# have a look at http://www.rocklinux.org/ and the Documentation/TEAM
# file for details.
# 
# --- ROCK-COPYRIGHT-NOTE-END ---
#
# [MAIN] 20 network Network Configuration

rocknet_base="/etc/network"

edit() {
	gui_edit "Edit file $1" "$1"
	exec $STONE network
}

read_section() {
	local globals=1
	local readit=0
	local i=0

	unset tags
	unset interfaces


	[ "$1" = "" ] && readit=1
	while read netcmd para
	do
		if [ -n "$netcmd" ]; then
			netcmd="${netcmd//-/_}"
			para="$( echo "$para" | sed 's,[\*\?],\\&,g' )"
			if [ "$netcmd" = "interface" ] ; then
				prof="$( echo "$para" | sed 's,[(),],_,g' )"
				[ "$prof" = "$1" ] && readit=1 || readit=0
				globals=0
				interfaces="$interfaces $prof"
			fi
			if [ $readit = 1 ] ; then
				tags[$i]="$netcmd $para"
				i=$((i+1))
			fi
		fi
	done < <( sed 's,#.*,,' < "$rocknet_base"/config )
}

write_section() {
	local globals=1
	local passit=1
	local dumped=0

	[ "$1" = "" ] && passit=0

	echo -n > $rocknet_base/config.new

	while read netcmd para
	do
		if [ -n "$netcmd" ]; then
			netcmd="${netcmd//-/_}"
			para="$( echo "$para" | sed 's,[\*\?],\\&,g' )"
			if [ "$netcmd" = "interface" ] ; then
				prof="$( echo "$para" | sed 's,[(),],_,g' )"
				[ "$prof" = "$1" ] && passit=0 || passit=1
				globals=0

				# write out a separating newline
				echo "" >> $rocknet_base/config.new
			fi

			# when we reached the matching section dump the
			# mew tags ...
			if [ $passit = 0 -a $dumped = 0 ] ; then
			  for (( i=0 ; $i < ${#tags[@]} ; i=i+1 )) ; do
				[ $globals = 1 -o \
				  "$netcmd" = "interface" ] || \
				  echo -en "\t" >> \
				  $rocknet_base/config.new
				echo "${tags[$i]}" >> \
				  $rocknet_base/config.new
			  done
			  dumped=1
			fi

			if [ $passit = 1 ] ; then
				[ $globals = 1 -o \
				  "$netcmd" = "interface" ] || \
				  echo -en "\t" >> \
				  $rocknet_base/config.new
				echo "$netcmd $para" >> \
					$rocknet_base/config.new
			fi
		fi
	done < <( cat < "$rocknet_base"/config )
	mv $rocknet_base/config{.new,}
}

edit_tag() {
	tag="${tags[$1]}"
	name="$tag"
	gui_input "Set new value for tag '$name'" \
	          "$tag" "tag"
	tags[$1]="$tag"
}

edit_global_tag() {
	edit_tag $@
	write_section ""
}

edit_if() {
	read_section "$1"
	while
		cmd="gui_menu if_edit 'Configure interface ${1//_/ }'"
		for (( i=0 ; $i < ${#tags[@]} ; i=i+1 )) ; do
			cmd="$cmd '${tags[$i]}' 'edit_tag $i'"
		done
		eval "$cmd"
	do : ; done
	write_section "$1"
}

main() {
    while

	cmd="gui_menu network 'Network Configuration - Select an item to
change the value

WARNING: This script tries to adapt /etc/network/config and /etc/hosts
according to your changes. Changes only take affect the next time
rocknet is executed.'"

	# read global section and interface list ...
	read_section ""

	for (( i=0 ; $i < ${#tags[@]} ; i=i+1 )) ; do
		cmd="$cmd '${tags[$i]}' 'edit_global_tag $i'"
	done

	cmd="$cmd '' ''"

	for if in $interfaces ; do
		cmd="$cmd 'Edit interface ${if//_/ }' 'edit_if $if'"
	done

	cmd="$cmd '' '' 'Configure runlevels for network service'"
	cmd="$cmd '$STONE runlevel edit_srv network'"
	cmd="$cmd '(Re-)Start network init script'"
	cmd="$cmd '$STONE runlevel restart network'"
	cmd="$cmd '' ''"

	cmd="$cmd 'View/Edit $rocknet_base/config file' 'edit $rocknet_base/config'"
	cmd="$cmd 'View/Edit /etc/hosts file'          'edit /etc/hosts'"

	eval "$cmd"
    do : ; done
}