#!/usr/bin/perl # Emulator of contents negotiation # last modified Apr. 4, 2005 A. Miyoshi (UT) # use strict; # turned OFF for production web my %charset = ('en' => 'iso-8859-1', 'ja' => 'EUC-JP'); my $language = 'ja'; if (exists $ENV{'HTTP_ACCEPT_LANGUAGE'}) { if ($ENV{'HTTP_ACCEPT_LANGUAGE'} =~ /^(ja|en)/) { $language = $1; } } print < EOT exit 0; 1;