view scripts/check_db_safety @ 140:ff102609da38
draft
deleted old NS.
1.0.16.0/24 is still reserver to me (pragmo), but it is not anymore used
due to routing problems caused by zompies routes in the network.
author
pragmo <pragmo@pragmo.ano>
date
Sun, 12 Sep 2010 12:29:37 +0000 (2010-09-12)
parents
f37d8fca5548
children
c9a7817b5f1d
line source
+ − #!/bin/sh
+ − if [ " $( ls db/dom/ | tr -d 'a-z0-9\n-' | wc -c | tr -d ' \t' ) " != 0 ] ; then
+ − echo "There's a bad TLD. You probably don't want to run any shell scripts." >& 2
+ − exit 1
+ − fi
+ − for tld in db/dom/* ; do
+ − if [ " $( ls $tld / | tr -d 'a-z0-9\n-' | wc -c | tr -d ' \t' ) " != 0 ] ; then
+ − tld = " $( basename $tld ) "
+ − echo "There's a bad domain under $tld ." >& 2
+ − echo "You probably don't want to run any shell scripts." >& 2
+ − exit 1
+ − fi
+ − for dom in $tld /* ; do
+ − if [ " $( ls $dom /ns/ | tr -d 'a-z0-9\n.-' | wc -c | tr -d ' \t' ) " != 0 ] ; then
+ − domain = " $( basename $dom ) . $( basename $tld ) "
+ − echo "There's a bad nameserver under $domain ." >& 2
+ − echo "You probably don't want to run any shell scripts." >& 2
+ − fi
+ − for ns in $dom /ns/* ; do
+ − if [ " $( cat $ns | tr -d '0-9.\n' | wc -c | tr -d ' \t' ) " != 0 ] ; then
+ − domain = " $( basename $dom ) . $( basename $tld ) "
+ − nsname = " $( basename $ns ) "
+ − echo "There's a bad nameserver IP under $domain , for" >& 2
+ − echo " $nsname " >& 2
+ − echo "You probably don't want to run any shell scripts." >& 2
+ − fi
+ − done
+ − done
+ − done
+ − if [ " $( ls db/ip/ | tr -d 'A-F0-9\n' | wc -c | tr -d ' \t' ) " != 0 ] ; then
+ − echo "There's a bad first octet. You probably don't want to run any shell scripts." >& 2
+ − exit 1
+ − for first in db/ip/* ; do
+ − if [ " $( ls $first / | tr -d 'A-F0-9\n' | wc -c | tr -d ' \t' ) " != 0 ] ; then
+ − echo "There's a bad second octet under $first ." >& 2
+ − echo "You probably don't want to run any shell scripts." >& 2
+ − exit 1
+ − for second in $first /* ; do
+ − if [ " $( ls $second / | tr -d 'A-F0-9\n' | wc -c | tr -d ' \t' ) " != 0 ] ; then
+ − echo "There's a bad third octet under $second ." >& 2
+ − echo "You probably don't want to run any shell scripts." >& 2
+ − exit 1
+ − fi
+ − for third in $second /* ; do
+ − if [ " $( ls $third /ns/ | tr -d 'a-z0-9\n.-' | wc -c | tr -d ' \t' ) " != 0 ] ; then
+ − ip = " $( basename $first ) . $( basename $second ) . $( basename $third ) .0/24"
+ − echo "There's a bad nameserver under $ip ." >& 2
+ − echo "You probably don't want to run any shell scripts." >& 2
+ − fi
+ − for ns in $third /ns/* ; do
+ − if [ " $( cat $ns | tr -d '0-9.\n' | wc -c | tr -d ' \t' ) " != 0 ] ; then
+ − ip = " $( basename $first ) . $( basename $second ) . $( basename $third ) .0/24"
+ − nsname = " $( basename $ns ) "
+ − echo "There's a bad nameserver IP under $ip , for" >& 2
+ − echo " $nsname " >& 2
+ − echo "You probably don't want to run any shell scripts." >& 2
+ − fi
+ − done
+ − done
+ − done
+ − fi
+ − done
+ − fi