#!/usr/bin/perl

@cats = split /,/,"Name,Type,MinTL,CP,MinCP,Limit,AV,MinAV,CCAV,Power,Dmg,MaxDmg,CCDmg,Mass,Range,Skill,CCSkill,RangeSkill,MP,Specialty";

print "Content-type: text/html\n\n";
print "<HTML><BODY>\n";

my(@f,$item);
%fds = ("name" => "Name",
	"type" => "Type",
	"tl" => "MinTL",
	"pts" => "CP",
	"minpts" => "MinCP",
	"limit" => "Limit",
	"av" => "AV",
	"minav" => "MinAV",
	"ccav" => "CCAV",
	"power" => "Power",
	"dmg" => "Dmg",
	"maxdmg" => "MaxDmg",
	"mass" => "Mass",
	"range" => "Range",
	"skill" => "Skill",
	"ccb" => "CCSkill",
	"rb" => "RangeSkill",
	"mp" => "MP",
	"2h" => "2H",
	"sf" => "",
	"specialty" => "Specialty",
       );

@fields = ("name",
	"type",
	"tl",
	"pts",
	"minpts",
	"limit",
	"av",
	"minav",
	"ccav",
	"power",
	"dmg",
	"maxdmg",
	"mass",
	"range",
	"skill",
	"ccb",
	"rb",
	"mp",
	"2h",
	"sf",
	"specialty",
       );


if(open(BW,"bw.txt")) {
  $item=0;
  foreach(@cats) {
    print "$_\t";
  }
  print "<BR>\n";
  while(<BW>) {
    next if(/^\#/);
    chomp;
    @f=();
    @f=split /\t+/;
    %{$items[$item]} = ();
    %{$it2[$item]} = ();
    for($i=0;$i<@fields;$i++) {
      $items[$item]{$fields[$i]} = $f[$i];
      if($fds{$fields[$i]} !~ /^\s*$/) {
	$f[$i] =~ s/\n|\r//g;
	$it2[$item]{$fds{$fields[$i]}} = $f[$i];
      }
    }
    foreach(@cats) {
      if($it2[$item]{$_} =~ /^\s*$/) { print "_\t"; }
      else { print "$it2[$item]{$_}\t"; }
    }
    print "<BR>\n";
    $item++;
  }
  close BW;
}
print "</BODY></HTML>\n";