#!/bin/sh

URL="http://www.altavista.com/cgi-bin/query?q="

sucks2() {
	QRY=`echo "$1" | tr " " +`
	lynx -dump "$URL%2B\"$QRY\"+%2Bsucks" | grep "pages found" | perl -pi -e "s/[^0123456789]*//g"
}

sucks1() {
	QRY=`echo "$1" | tr " " +`
	lynx -dump "$URL$QRY+sucks" | grep "pages found" | perl -pi -e "s/[^0123456789]*//g"
}
rules2() {
	QRY=`echo "$1" | tr " " +`
	lynx -dump "$URL%2B\"$QRY\"+%2Brules" | grep "pages found" | perl -pi -e "s/[^0123456789]*//g"
}

rules1() {
	QRY=`echo "$1" | tr " " +`
	lynx -dump "$URL$QRY+rules" | grep "pages found" | perl -pi -e "s/[^0123456789]*//g"
}

graph() {
	echo "$1 Rules: $3	$1 Sucks: $4"
	echo -n "Rules |"
	echo -n `echo "++++++++++++++++++++++++++++++++++++++++++++++++++" | cut -c-$2`
	echo  "--------------------------------------------------| Sucks" | cut -c$2-
}

for i in "$@"; do
	r1=`rules1 $i`
	r2=`rules2 $i`
	s1=`sucks1 $i`
	s2=`sucks2 $i`
	rs1=$[ 50 * r1 / ( r1 + s1 ) ]
	rs2=$[ 50 * r2 / ( r2 + s2 ) ]
	echo "Sucks-n-Rules for $i"
	graph Loose\ match $rs1 $r1 $s1
	graph Tight\ match $rs2 $r2 $s2
done