#!/opt/local/bin/perl use XML::Simple; use Getopt::Std; use File::Glob; use Data::Dumper; use strict; our %LANGS = ( 'fr' => 'French', 'ja' => 'Japanese', 'de' => 'German', 'es' => 'Spanish', 'ko' => 'Korean', 'tr' => 'Turkish', 'zh-cn' => 'Simplified Chinese' ); my @engfiles = glob '*.xml mod/*.xml ssl/*.xml vhosts/*.xml programs/*.xml rewrite/*.xml'; print qq~ Available Translations - Documentation Project
Available Translations of the Documentation

The following modules have already been translated. If you are able to provide translations into any of these languages (or any others) please let us know. (Back to translations page)

~; foreach my $l ( sort keys %LANGS ) { print ''; } print qq~ ~; foreach my $doc ( sort @engfiles ) { print ''; my %trans; foreach my $t ( glob $doc.'.*' ) { next if $t =~ m/meta$/; my $lang = $t; $lang =~ s/.+\.([^.]+)$/$1/; $trans{ $lang } = 1; } foreach my $l ( sort keys %LANGS ) { if ( $trans{$l} ) { print ''; } else { print ''; } } print "\n"; } print qq~
Document'.$LANGS{$l}.'
'.$doc.'✔-
 ~;