#!/usr/bin/perl

$alphabet = 'abcdefghijklmnopqrstuvwxyz0123456789';
#$alphabet = 'cj';


while ($alphabet =~ /(.)/g) {
   open( WEBR, "lynx -dump http://www.dph.sf.ca.us/ehs/Viol_DB/wwwroot/AllNames.asp?FACILITY_N=$1 |")
   || die "tell me about the rabbits\n";
   $count = 0;
   while (<WEBR>) {
      if ($_=~/search\s+menu/) {
      } elsif ($_=~/\[(\d+)\](.{35,35})(.+)/) {
         $name[$1] = $2;
         $address[$1] = $3;
         $count++;
         #print "name: $name[$1]\n    : $address[$1]\n";
      } elsif ($_=~/Type_name/) {
         noop;
      } elsif ($_=~/(\d+)\.\s+(http:\/\/www.dph.sf.ca.us\/ehs\/Viol\S+)/) {
         $url[$1] = $2;
         #print "url: $url[$1]\n";
      }
   }

   for ($i = 1; $i<=$count; $i++) {
      #print "name: $name[$i]\n    : $address[$i]\n    : $url[$i]\n";
      print "<td><a href=\"$url[$i]\">$name[$i]</a></td><td>$address[$i]</td></tr>\n";
   }

}


exit;