%perlcode local($title, $welcome, @options, @out); $title = "Japanese <-> English Dictionary Server"; if ($option{'encoding'}) { $welcome = "和英/英和辞典 - Japanese⇔English Dictionary" } else { $welcome = "Japanese<->English Dictionary"; } $pre = ""; $post = ""; push(@out, "$title\n", &header_tag, &body_tag(qq[onload="document.f.T.focus()"]), "

$welcome

\n"); if ($is_NEXUS) { push(@out,"

"); } if ($graphical && $original_tty) { push(@out, "$pre\[hey, you can't lie to me, ", "I know you have a graphical browser!]$post
"); } $myTITLE = join('',@out); $MyModTime = (stat($0))[9]; foreach $file ('cgi.jap.pl', 'cgi.query.pl', 'docustomize.pl', 'dokanji.pl', 'filemutex.pl', 'gif.pl', 'japgif.pl', 'japtext.pl', 'kana.pl', 'kana2romaji.pl', 'network.pl', 'package_as.pl', 'romaji2kana.pl', 'send_quasi.pl', 'snffont.pl', 'timespan.pl') { $tmp = (stat("$QHTML_DIR/$file"))[9]; $MyModTime = $tmp if $tmp > $MyModTime; } $LatestUpdateTime = $MyModTime; $UNDER_CONSTRUCTION = $^T - $LatestUpdateTime; if ($UNDER_CONSTRUCTION > 20*60) { $UNDER_CONSTRUCTION = ''; } else { $UNDER_CONSTRUCTION = int((1 + int($UNDER_CONSTRUCTION / (60 * 3)))* 3); } %endperl %value[$myTITLE] %if $option{'tty'} [jump to query screen]

%endif Welcome to Jeffrey's Japanese%value[$option{'encoding'} ? '⇔' : '<->']English Dictionary Server! Also see the searchable database of kanji information. %if $option{'encoding'} %if $option{'netscape'} If the Japanese doesn't come out, check here. %else If your %netscape{"Netscape"}%!netscape{"browser"} does not have Japanese support (or doesn't grok %if $option{'encoding'} eq 'euc' EUC %elsif $option{'encoding'} eq 'jis' JIS %elsif $option{'encoding'} eq 'sjis' Shift-JIS %else ???? %endif ), go here. %endif また、日本語のページもあります. %else If your %netscape{"Netscape"}%!netscape{"browser"} does have Japanese support, check here. %endif %if !$option{'tty'} && !$agent_known If you're using a browser such as lynx, use a this version tailored for tty-based browsers. %endif %if !$option{'NoColor'} This page available without colors, etc. %else This page available with colors, etc. %endif

%if $is_ENTER This server has a mirror in Washinton State, USA and another in New Jersey, USA. There's an experimental mirror in Redwood City, California, USA. %elsif $is_XOLOTL This experimental server has a mirror in New Jersey, USA and in Washinton State, USA. %elsif $is_MV This server has a mirror in Ottawa, Ontario, Canada and another in Washinton State, USA. There's an experimental mirror in Redwood City, California, USA. %else This is a mirror of Jeffrey's main dictionary server. %endif %if $is_MV This server's web space kindly provided by Robert Henney. %endif %if $is_NEXUS This server's web space kindly provided by Jim Breen %endif %if $is_DICT This server's web space kindly provided by Jeffrey Friedl. %endif %if $is_LTH This server's web space kindly provided by Tomas Gradin and the Lund University Computer Club. %endif %if $is_GOKANJI This server's web space kindly provided by Eri Takase and Takase Studios, LLC. %endif

%if $IS_CUST_DICT Instructions and such are at the bottom of the page. %else First time? If so, instructions and such are at the bottom of this page. %endif
%if $UNDER_CONSTRUCTION WARNING! This site currently (I mean, like having been changed in the last %value[$UNDER_CONSTRUCTION] minutes) under construction (See the change notes if you're really curious). This means I'm working on it now, so please be patient if something blows up. Thanks. %elsif ($^T - 1529345671) < 72 * 3600 (Note: The change notes have been modified recently.)
%endif %if !$option{'tty'} %netscape{'
'} %else
%endif %value{ $RIGHT = '['; '' } %value{ $LEFT = ']'; '' } Search in dictionaries of %value[$RIGHT] words ; names ; legal terms ; life-science terms ; Four-Character Idiomatic Compounds ; aviation terms ; computer terms ; compound verbs terms ; concrete terms ; engineering and science terms ; environment terms ; finance terms ; forestry terms ; riverwater terms ; manufacturing terms ; geological terms ; Japanese place names ; linguistics terms ; marketing terms ; pulp and paper terms ; star and constellation names ; Buddhist Terms ; Chemical Terms ; %if !$option{'encoding'} French-Japanese dictionary %endif %if $is_QUEPASA || $is_QUETZAL ; Kodansha dictionary %endif %value[$LEFT] %if $option{'tty'}

Enter a search request

How the text you give should be considered: %else with search key:
%endif %if $option{'tty'}
Is what you give English or Japanese (romaji)? %else given as the %endif %if $option{'tty'}
The text to search for: %else text %endif &]//g; \ $str = qq/VALUE="$str" /; \ } \ $str; \ ]] MAXLENGTH=150> %if $option{'tty'}
%else %endif
[ disable fuzzy search for Japanese lookups ]

%value[$RIGHT]Search only commonly-used words %value[$LEFT] %value[$RIGHT]Restrict to word-class (EDICT tags) %value[$LEFT]

%if $option{'tty'} Going here will allow you to customize the dictionary server in various ways. %else You can customize various things for all interactions with my dictionary system (see here), or use the following for some one-time changes for the dictionary lookup only: %if $option{'encoding'} %value[$RIGHT] Anchors to Large Japanese %value[$LEFT] %else %value[$RIGHT]Japanese text image foreground color %value[$LEFT] %value[$RIGHT]Japanese text image background color %value[$LEFT] %value[$RIGHT]size %value[$LEFT] %value[$RIGHT]print vertically %value[$LEFT] %value[$RIGHT]kanji should be inlined (kana-only entries too ) %value[$LEFT] %endif %endif %if $option{'tty'} %value[$RIGHT]inline romaji %value[$LEFT] %endif %value[$RIGHT]link kanji information %value[$LEFT] %value[$RIGHT]link external search engines %value[$LEFT] %if $option{'tty'}
%else
%endif %netscape{'

'}
%!netscape{'
'} News: The searchable database of kanji information now supports lookups of kanji by pasting it into a search request. (But you need to have chosen a Japanese encoding at the beginning).

News: If you select Japanese place names or the names dictionaries as well as the link to external search engines, you can try your hand at seeing if Google Maps has info on it.

News: You can now customize various things in this server. See the Change notes for more info.

News: You can now search for JIS-X-0212 kanji in the searchable database of kanji information.

Notes

Here are some items to check out:

%if $MyModTime %value[&warnspan($MyModTime,'This server\'s software (CGI) was last modified X ago.', 1)] %endif

Comments appreciated
%value{&footer('dict')}
%if $option{'nihongo'} (%value[&warnspan('n', 1529089893, 'このページのソースはX前に修正されました', 1)]) %else (%value[&warnspan(1529089893, "this page's master source last modified X ago", 1)]) %endif
%done