#!/bin/sh echo "Content-type: text/html" echo echo "" echo "" echo "" echo "" echo "" echo "" echo "" echo "" echo "" echo "" echo "" echo "" echo "" echo "" echo "" echo "" echo "" echo "" echo "

" echo "" echo "www $1.com" echo "" echo "

"

whois -h whois.opensrs.net $1.com > /tmp/$1.com.$$

if [ -z `grep "Whois Server" /tmp/$1.com.$$` ]; then
	cat /tmp/$1.com.$$ |perl -pi -e 's/(expired|expires|expiration|expire|expiry)/$1<\/font><\/b>/gi'
	rm /tmp/$1.com.$$
else
	for name in `grep "Whois Server" /tmp/$1.com.$$ |perl -pi -e 's/\:/\n/g' |grep -v Whois`
		do whois -h $name $1.com |perl -pi -e 's/(expired|expires|expiration|expire|expiry)/$1<\/font><\/b>/gi'
		done
	rm /tmp/$1.com.$$
fi

echo "

" echo "" echo "www $1.net" echo "" echo "

"
whois -h whois.opensrs.net $1.net > /tmp/$1.net.$$

if [ -z `grep "Whois Server" /tmp/$1.net.$$` ]; then
        cat /tmp/$1.net.$$ |perl -pi -e 's/(expired|expires|expiration|expire|expiry)/$1<\/font><\/b>/gi'
        rm /tmp/$1.net.$$
else
        for name in `grep "Whois Server" /tmp/$1.net.$$ |perl -pi -e 's/\:/\n/g' |grep -v Whois`
                do whois -h $name $1.net |perl -pi -e 's/(expired|expires|expiration|expire|expiry)/$1<\/font><\/b>/gi'
                done
        rm /tmp/$1.net.$$
fi

echo "

" echo "" echo "www $1.org" echo "" echo "

"
whois -h whois.opensrs.net $1.org > /tmp/$1.org.$$
                
if [ -z `grep "Whois Server" /tmp/$1.org.$$` ]; then
        cat /tmp/$1.org.$$ |perl -pi -e 's/(expired|expires|expiration|expire|expiry)/$1<\/font><\/b>/gi'
        rm /tmp/$1.org.$$
else
        for name in `grep "Whois Server" /tmp/$1.org.$$ |perl -pi -e 's/\:/\n/g' |grep -v Whois`
                do whois -h $name $1.org |perl -pi -e 's/(expired|expires|expiration|expire|expiry)/$1<\/font><\/b>/gi'
                done
        rm /tmp/$1.org.$$
fi


echo "

" echo "" echo "www $1.biz" echo "" echo "

"

whois -h whois.neulevel.biz $1.biz > /tmp/$1.biz.$$
tail -22 /tmp/$1.biz.$$ |head -19 > /tmp/$1.biz.tail.$$
diff /tmp/$1.biz.$$ /tmp/$1.biz.tail.$$ |perl -pi -e 's/^< //g' |grep -v d19 |grep -v d0 |perl -pi -e 's/Expiration Date/Expiration Date<\/font><\/b>/g'
rm /tmp/$1.biz.$$ /tmp/$1.biz.tail.$$

echo "

" echo "" echo "www $1.info" echo "" echo "

"
whois -h whois.afilias.info $1.info |perl -pi -e 's/Expiration Date/Expiration Date<\/font><\/b>/g'
echo "

" echo "" echo ""