# KEHOME/bin/GetLetter
# Jan/22/2003

# usage: GetLetter
# input: $site/opinion
# output: opinion.out

# gather online info.
# from Fresno Bee
# Letters to the Editor

# find letter_number has author="$Author"
# and notify "$Recipient@mobile.att.net"
# see bottom of this script
Author="xxx"
Recipient="yyy"

alias echo="print -r"
#alias wget=":"
#alias ke=":"

site=http://www.fresnobee.com
echo "set site = $site;" >opinion.ku

wget -O opinion.html "$site/opinion/v-print"

htmlone < opinion.html | grep -n lets_ed >lets_ed.html
cat lets_ed.html | sed 's/:.*$//' >lets_ed.number
cat lets_ed.html | sed 's/^.*href=//' | sed 's/ .*$//' >lets_ed.url
cat lets_ed.html | sed 's/^.*>//' | sed 's/ 
$//' >lets_ed.title
paste.exe -d',' lets_ed.number lets_ed.title lets_ed.url >lets_ed.rel

while read line ; do
  # line ::= number,title,url
  number=$(echo "$line" | cut -d',' -f1)
  letter=letter_$number
  title=$(echo "$line" | cut -d',' -f2)
  url="$site"/$(echo "$line" | cut -d',' -f3)
  echo "$letter has title=\"$title\";" >>opinion.ku
  echo "$letter has url=\"$url\";" >>opinion.ku
  echo "# INFO: wget $letter.html from $url;" >>opinion.ku
  wget -O $letter.html "$url"
  echo "do ExtractData od $letter from $letter.html done;" >>opinion.ku
done <lets_ed.rel 

echo "person isc* ?;" >>opinion.ku
#echo "exit;" >>opinion.ku

set -x
ke opinion.ku

if grep author opinion.out | grep "$Author"
then rebol -iqsw --do "send $Recipient@mobile.att.net {found $Author letter}"
else rebol -iqsw --do "send $Recipient@mobile.att.net {$Author letter not found}"
fi
