#!/bin/sh
# 
# Wyciaga emaile z www.infopluss.ee Ksiazka telefoniczna z estoni...
#

wynikfile=~/wynee.txt

if [ -z $1 ] ; then
echo "Podaj jako parametr string do szukania :]"
exit
fi

word=$1

wget -q "http://www.infopluss.ee/otsing.asp?iLang=3&iMeny=1&pg=1&ikw=&kw2=&cn=&kw=$word&loc=0&x=0&y=0" -O tymtym

wynik=`tr "<" "\n" < tymtym |grep otsing|grep -v next|tail -n1 |awk -F ">" {'print $2'}`
rm tymtym

if [ $wynik == "help" ] ; then
echo "0 results about: $1"
exit
fi

echo $wynik


if [ -d tmp_tmp ] ; then
echo "katalog jest"
exit
fi

if [ -f $wynikfile ] ; then
echo "error: wynik jest"
exit
fi

n=1

mkdir tmp_tmp
cd tmp_tmp

#telephone - 33
#telephones - 28
#phone - 24 
#mobile - 23
#communication - 21
#phones - 21

ile=`expr $wynik + 1`
while [ $n != $ile ] ; do

wget "http://www.infopluss.ee/otsing.asp?iLang=3&cn=&kw=$1&loc=0&pg=$n" -O $n
cat $n|awk -F "mailto:" {'print $2'} |awk -F '"' {'print $1'}|grep "@" > $n.mail
n=`expr $n + 1`
done

cat *.mail|grep -v "www@infopluss.ee"|sort|uniq > $wynikfile
rm -f *.mail
rm -f [0-9]*
cd ..
rm -rf tmp_tmp

echo "Done..."
echo "Now cat $wynikfile"