#!/usr/bin/perl
# $Id: //depot/wcm/public_html/cgi/lang.cgi#3 $
# $DateTime: 2002/02/03 14:34:06 $

print <<"EOF";
Content-Type: application/x-javascript

var acceptLanguages = "$ENV{'HTTP_ACCEPT_LANGUAGE'}";
var prefJa = acceptLanguages.indexOf("ja");
var prefEn = acceptLanguages.indexOf("en");
var isJapanese = (prefJa != -1 && (prefEn == -1 || prefJa < prefEn));

EOF