#!/usr/bin/perl
use lib '.';
use lib '/home/dave/perl';
use japanese;
require "cgi-lib.pl";
ReadParse(*params);
print "Content-Type: text/html\n\n";
print qq`
<html lang="en" dir="ltr" xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
</head>
<body>`;

@words = (
    { word => 'terebi', meaning => 'television', type => 'k', },
    { word => 'resutoran', meaning => 'restaurant', type => 'k', },
    { word => 'kasa', meaning => 'umbrella', type => 'h', },
    { word => 'chizu', meaning => 'map', type => 'h', },
    { word => 'kohikappu', meaning => 'coffee cup', type => 'k', },
    { word => 'kagi', meaning => 'key', type => 'h', },
    { word => 'pasokon', meaning => 'computer', type => 'k', },
    { word => 'ban gohan', meaning => 'dinner', type => 'h', },
    { word => 'hon', meaning => 'book', type => 'h', },
    { word => 'eiga', meaning => 'movie', type => 'h', },
    { word => 'boshi', meaning => 'hat', type => 'h', },
    { word => 'puru', meaning => 'pool', type => 'k', },
    { word => 'keshigomu', meaning => 'eraser', type => 'h', },
    { word => 'zasshi', meaning => 'magazine', type => 'h', },
    { word => 'gomibako', meaning => 'trash can', type => 'h', },
    { word => 'daigaku', meaning => 'university', type => 'h', },
    { word => 'meru adoresu', meaning => 'email address', type => 'k', },
    { word => 'shimbun', meaning => 'newspaper', type => 'h', },
    { word => 'hikidashi', meaning => 'drawer', type => 'h', },
    { word => 'kitte', meaning => 'stamp', type => 'h', },
    { word => 'kutsu', meaning => 'shoe', type => 'h', },
    { word => 'hana', meaning => 'flower', type => 'h', },
    { word => 'meishi', meaning => 'business card', type => 'h', },
    { word => 'beddo', meaning => 'bed', type => 'k', },
    { word => 'denwa bango', meaning => 'phone number', type => 'h', },
    { word => 'ginko', meaning => 'bank', type => 'h', },
    { word => 'empitsu', meaning => 'pencil', type => 'k', },
    { word => 'asa gohan', meaning => 'breakfast', type => 'h', },
    { word => 'denwa', meaning => 'telephone', type => 'h', },
    { word => 'kabin', meaning => 'vase', type => 'h', },
    { word => 'kudamono', meaning => 'fruit', type => 'h', },
    { word => 'megane', meaning => 'glasses', type => 'h', },
    { word => 'tsukue', meaning => 'desk', type => 'h', },
    { word => 'teburu', meaning => 'table', type => 'k', },
    { word => 'bango', meaning => 'number', type => 'h', },
    { word => 'mofu', meaning => 'blanket', type => 'h', },
    { word => 'tokei', meaning => 'clock', type => 'h', },
    { word => 'depato', meaning => 'department store', type => 'k', },
    { word => 'koppu', meaning => 'cup', type => 'k', },
    { word => 'mado', meaning => 'window', type => 'h', },
    { word => 'makura', meaning => 'pillow', type => 'h', },
    { word => 'keitai', meaning => 'cell phone', type => 'h', },
    { word => 'taishikan', meaning => 'embassy', type => 'h', },
    { word => 'hasami', meaning => 'scissors', type => 'h', },
    { word => 'isu', meaning => 'chair', type => 'h', },
    { word => 'katen', meaning => 'curtain', type => 'k', },
    { word => 'tegami', meaning => 'envelope/letter', type => 'h', },
    { word => 'kaban', meaning => 'briefcase/bag', type => 'h', },
    { word => 'jimu', meaning => 'gym', type => 'k', },
    { word => 'nekko', meaning => 'cat', type => 'h', },
    { word => 'miruku', meaning => 'milk', type => 'k', },
    { word => 'degikame', meaning => 'digital camera', type => 'k', },
    { word => 'sofa', meaning => 'sofa', type => 'k', },
    { word => 'hotchikisu', meaning => 'stapler', type => 'h', },
    { word => 'onigiri', meaning => 'rice ball', type => 'h', },
    { word => 'byoin', meaning => 'hospital', type => 'h', },
    { word => 'ocha', meaning => 'tea', type => 'h', },
    { word => 'ringo', meaning => 'apple', type => 'h', },
    { word => 'kuruma', meaning => 'car', type => 'h', },
    { word => 'rajio', meaning => 'radio', type => 'k', },
    { word => 'ongaku', meaning => 'music', type => 'h', },
    { word => 'tauru', meaning => 'towel', type => 'k', },
    { word => 'reizoku', meaning => 'refrigerator', type => 'h', },
    { word => 'inu', meaning => 'dog', type => 'h', },
    { word => 'yubinkyoku', meaning => 'post office', type => 'h', },
    { word => 'koen', meaning => 'park', type => 'h', },
    { word => 'eigakan', meaning => 'movie theater', type => 'h', },
    { word => 'basu tei', meaning => 'bus stop', type => 'k', },
    { word => 'sumimasen', meaning => 'excuse me', type => 'h', },
    { word => 'mo ichi do onegaishimasu', meaning => 'one more time please', type => 'h', },
    { word => 'yakkyoku', meaning => 'pharmacy', type => 'h', },
    { word => 'densha', meaning => 'train', type => 'h', },
    { word => 'chiisai', meaning => 'small', type => 'h', },
    { word => 'takushi', meaning => 'taxi', type => 'k', },
    { word => 'okusan', meaning => 'other\'s wife', type => 'h', },
    { word => 'biru', meaning => 'beer', type => 'k', },
    { word => 'wain', meaning => 'wine', type => 'k', },
    { word => 'kuko', meaning => 'airport', type => 'h', },
    { word => 'eki', meaning => 'station (train, etc)', type => 'h', },
    { word => 'tsuma / kanai', meaning => 'my wife', type => 'h', },
    { word => 'uchi', meaning => 'house', type => 'h', },
    { word => 'karai', meaning => 'spicy hot', type => 'h', },
    { word => 'samui', meaning => 'cold', type => 'h', },
    { word => 'kippu', meaning => 'ticket', type => 'h', },
    { word => 'yubiwa', meaning => 'ring', type => 'h', },
    { word => 'koban', meaning => 'police box', type => 'h', },
    { word => 'shingo', meaning => 'traffic light', type => 'h', },
    { word => 'yuki', meaning => 'snow', type => 'h', },
    { word => 'doa', meaning => 'door', type => 'k', },
    { word => 'hoteru', meaning => 'hotel', type => 'k', },
    { word => 'jinjya', meaning => 'shrine', type => 'h', },
    { word => 'kombini', meaning => 'convinence store', type => 'k', },
    { word => 'kami', meaning => 'paper', type => 'h', },
    { word => 'tebukuro', meaning => 'glove', type => 'h', },
    { word => 'okii', meaning => 'big', type => 'h', },
    { word => 'wakarimasen', meaning => 'I don\'t know', type => 'h', },
    { word => 'hagaki', meaning => 'post card', type => 'h', },
    { word => 'T-shatsu', meaning => 'T-shirt', type => 'k', },
    { word => 'mikan', meaning => 'tangerine', type => 'h', },
    { word => 'atsui', meaning => 'hot', type => 'h', },
    #{ word => '', meaning => '', type => 'h', },
    );

$i = int(rand(@words));
print "<div style=\"font-size: 40px;\">";
if($params{char} =~ /h/i) {
    $type = 'hiragana';
} elsif($params{char} =~ /k/i) {
    $type = 'katakana';
} else {
    $type = $words[$i]{type};
}
print japanese::translate($words[$i]{word},$type);
print "</div>\n";

print "<div style=\"font-size: 20px;\">Word:<font style=\"color: #FFFFFF;\">$words[$i]{word}</font></div>\n";
print "<div style=\"font-size: 20px;\">Meaning:<font style=\"color: #FFFFFF;\">$words[$i]{meaning}</font></div>\n";