#!/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 ""