File: d.awk

package info (click to toggle)
arpwatch 2.1a15-1.2
  • links: PTS
  • area: main
  • in suites: wheezy
  • size: 1,068 kB
  • sloc: sh: 3,070; ansic: 2,791; makefile: 157; perl: 147; awk: 90
file content (23 lines) | stat: -rw-r--r-- 315 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
# DECnet hacking

BEGIN {
	n = 0
	sdecnet = "aa:0:4:"
	ldecnet = length(sdecnet)
}

{
	++n
	e[n] = $1
	h[n] = $2
	if (sdecnet == substr($1, 1, ldecnet))
		decnet[$2] = 1
}

END {
	for (i = 1; i <= n; ++i) {
		if (decnet[h[i]] && sdecnet != substr(e[i], 1, ldecnet))
			h[i] = h[i] "-ip"
		print e[i] "\t" h[i]
	}
}