#!/bin/sh
#
# Copyright (C) 1995  Lars Berntzon
#
lanscan 2>/dev/null | $AWK '$2~/^0x/ {
    for(i = 0; i < 6; i++) {
	b[i] = tolower(substr($2, i * 2 + 3, 2));
	if (substr(b[i], 1, 1) == "0") {
	    b[i] = substr(b[i], 2);
	}
    }
    print b[0] ":" b[1] ":" b[2] ":" b[3] ":" b[4] ":" b[5]
}' | once
