#! /bin/bash

if [[ $# -eq 0 ]]; then
	cat <<TXT
USAGE: $0 list of router ip

This script is for arista servers, and targeted specifically for the ULS/IEWC
network.  At least currently.  This may well change in the future.

BUGS:

No handling of AS_CONFED sets, such paths are ignored.

TXT
	exit
fi

declare -a ipv4_transit=()
declare -a ipv6_transit=()
declare -a ipv4_origin=()
declare -a ipv6_origin=()

for ipv in ipv{4,6}; do
	exec 3> >(exec sort -u > $ipv)
	for r in $@; do
		echo "Retrieving $ipv from $r:"
		peers=($(/usr/bin/ssh admin@$r sh bgp $ipv unicast sum | sed '1,/Description/ d' \
			| awk '$2 !~ "^2c0f:f720:" && $2 !~ "^(100|154)[.]" { print $2 }'))
		for p in "${peers[@]}"; do
			echo "Peer $p"
			/usr/bin/ssh admin@$r sh bgp neigh $p received-routes \
				| sed -re '1,/Network/ d' \
				-e 's,(.*[[:space:]])?[0-9a-f:.]+/[0-9]+([[:space:]]+[^[:space:]]+){5}[[:space:]]+(.*) [ie?]$,\3,' \
				| uniq | grep -E '^([0-9]+ )*[0-9]+$' >&3
		done
	done
done