#!/bin/sh

for prec in `cat prec_no.txt`
do
  wget -q -Oz.html "http://www.data.jma.go.jp/obd/stats/etrn/select/prefecture.php?prec_no=${prec}&block_no=&year=&month=&day=&view="
  case $prec in
  92|93|94)
    : skip $prec
    ;;
  [1-9][0-9])
    ruby - z.html > z.prec$prec.csv <<EOF
    already = {}
    while line = gets
    case line
    when /onmouseover=.javascript:viewPoint.'([^']+)','([0-9]+)','([^']+)'/
      puts ['$prec',\$2,\$3].join(',') unless already[\$3]
      already[\$3] = true
    end
    end
EOF
    ;;
  *)
    : skip $prec
  esac
done

ruby - z.prec*.csv > stnhack.csv <<EOF
 pt = {}
 open('name2id.csv') {|fp|
   for line in fp
     prec, name, id = line.strip.split(/,/)
     pt[[prec, name]] = id
   end
 }
 puts "#id,#workid,#name"
 for line in ARGF
   prec, wid, name = line.strip.split(/,/)
   name.sub!(/\(.*\)/, '')
   id = pt[[prec, name]]
   \$deferr.puts [:missing, prec, name].join(',') unless id
   next unless id
   puts [id, [prec, wid].join("-"), name].join(',')
 end
EOF