#!/bin/sh
#
# Copyright (C) 1995  Lars Berntzon
#
PATH=$PATH:/etc
devices=`netstat -in | $AWK 'NR>=2 && $0~/^[a-z]/{print $1}'`
for d in $devices
do
    ifconfig "$d" 2> /dev/null | $AWK '
    $1=="inet" {
    	sub(".*:", "", $2);
    	sub(".*:", "", $4);
	split($2, ip, ".");
	split($4, nm, ".");
	for(i = 1; i < 5; i++) {
	    nm[i] = 256 - nm[i];
	    ip[i] -= ip[i] % nm[i]
	}
	if (ip[1] != 127) {
	    print ip[1] "." ip[2] "." ip[3] "." ip[4]
	}
    }'
done
