file/lang.cgi

   1 #!/usr/local/bin/perl
   2 # lang.cgi
   3 # Return language translation values
   4
   5 require './file-lib.pl';
   6
   7 print "Content-type: text/plain\n\n";
   8
   9 if (&get_charset() eq $default_charset) {
  10         # Convert any HTML entities to their 'real' single-byte forms,
  11         # as we are using the iso-8859-1 character set.
  12         foreach $k (keys %text) {
  13                 print $k,"=",&entities_to_ascii($text{$k}),"\n";
  14                 }
  15         }
  16 else {
  17         # Don't do HTML entity conversion for other character sets
  18         foreach $k (keys %text) {
  19                 print $k,"=",$text{$k},"\n";
  20                 }
  21         }