35 lines
889 B
Bash
35 lines
889 B
Bash
|
#!/bin/sh
|
||
|
# Script to download a list of records setup in PowerDNS and ping the linked A
|
||
|
# and AAAA addresses, printing out those that do not answer. This allows to
|
||
|
# find and clean legacy records. Written by sparrowhawk at work, anno domini
|
||
|
# 2022.
|
||
|
|
||
|
FILE=rc-records.txt
|
||
|
|
||
|
|
||
|
ssh pdns.lnth.ch.recycled.cloud 'pdnsutil list-all-zones | while read -r zone; do pdnsutil list-zone $zone; done' >$FILE
|
||
|
|
||
|
echo "IPv4:"
|
||
|
awk '/.*\sA\s.*/ { print $1, $5 }' $FILE | sort | while read -r record;
|
||
|
do
|
||
|
host=$(echo "$record" | cut -f1 -d' ')
|
||
|
addr=$(echo "$record" | cut -f2 -d' ')
|
||
|
|
||
|
if ! ping -c1 "$addr" >/dev/null;
|
||
|
then
|
||
|
echo "$host INEXISTANT"
|
||
|
fi
|
||
|
done
|
||
|
|
||
|
echo "IPv6:"
|
||
|
awk '/.*\sAAAA\s.*/ { print $1, $5 }' $FILE | sort | while read -r record;
|
||
|
do
|
||
|
host=$(echo "$record" | cut -f1 -d' ')
|
||
|
addr=$(echo "$record" | cut -f2 -d' ')
|
||
|
|
||
|
if ! ping -c1 "$addr" >/dev/null;
|
||
|
then
|
||
|
echo "$host INEXISTANT"
|
||
|
fi
|
||
|
done
|