mirror of
https://github.com/webmin/webmin.git
synced 2026-02-08 08:19:57 +00:00
22 lines
508 B
Perl
Executable File
22 lines
508 B
Perl
Executable File
#!/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";
|
|
}
|
|
}
|