menu()
{
	opcion=`zenity --list --title="Operaciones de red"--text="Elige opcion" --column="" --column="Acción a realizar" 1 "Informacón de red" 2 "Cambiar Ip" 3 "Cambiar DNS" 4 "Sniffer" 5 "Restablecer valores de red"
	case $opcion in
		1)infoRed;;
		2)cambiarIp;;
		3)cambiarDns;;
		4)sniffer;;
	esac

}

sniffer()
{
	zenity --info --text="Capturar el tráfico de datos"

	filter=`zenity --list --title="Filtros de red" --column="" --column="Filtro" 1 "Ip origen" 2 "Ip destino" 3 "ICMP" 4 "UDP" 5 "WEB" 6 "DNS"
	case $filter in
		1)iporigen=`zenity --entry --text="Introduce Ip origen"`
			tcpdump src $iporigen >netTraffic
		2)ipdestino=`zenity --entry --text="Introduce Ip destino"`
			tcpdump dst $ipdestino >netTraffic
		3)tcpdump ip proto >netTraffic
	esac

	zenity --text-info --width=530 --height=300 --title="Tráfico de datos" --filename=netTraffic
}

infoRed()
{
	ifconfig > redfich
	zenity --text-info --width=530 --height=300 --title="Información de red" --filename=redfich
	menu
}

cambiarIp()
{
	newIp=`zenity --entry --text="Introduce Ip nueva"`
	if [ $? -eq 0 ]
	then
		newMask=`zenity --entry --text="Introduce Máscara de red"
		if [ $? -eq 0 ]
		then
			ifconfig eth0 $newIp netmask $newMask 2>/dev/null
			if [ $? -eq 0 ]
			then
				zenity --info --text="Interfaz de red cambiada con exito"
			else
				zenity --error --text="Error al cambiar la Interfaz de Red"
			fi
		else
			zenity --error --text="Error al introducir la máscara"
		fi
	else
		zenity --error --text="Error al introducir la nueva Ip"
	fi

}