#!/usr/local/bin/perl
# lang.cgi
# Return language translation values

require './file-lib.pl';

print "Content-type: text/plain\n\n";

if (&get_charset() eq $default_charset) {
	# Convert any HTML entities to their 'real' single-byte forms,
	# as we are using the iso-8859-1 character set.
	foreach $k (keys %text) {
		print $k,"=",&entities_to_ascii($text{$k}),"\n";
		}
	}
else {
	# Don't do HTML entity conversion for other character sets
	foreach $k (keys %text) {
		print $k,"=",$text{$k},"\n";
		}
	}