package ENH::Messages; my %Catalog = ( amh => { _name => "emarNa", advertisements => "mastaweqiyawoc", headlines => "yezEna erstoc", magazines => "meSHEtoc", calendars => "yeityoPya qen meqWuTeriyawoc", ourchurches => "bEtekrstiyanocacn", archives => "senedoc mawCa", specialfeatures => "lyu `Itm", africannews => "yeefrika zEna", worldnews => "yeelem zEna", athiopianparliament => "yeityoPya parlama", number => "qWu", java => "yejava", web => "yewEb", africa => "efrika", # newspaperlibrary => "yegazETa mawCa", # library" => `abeyt yeityoPya zEnawoc mawCa", # monthlibrary => "yeweru mawCa", }, gez => { _name => "g`Iz", advertisements => "mastaweqiyatat", headlines => "erIsete zEna", magazines => "meSHEtat", calendars => "Hesabe - me`alt zeityoPya", ourchurches => "bEte - krstiyanat", archives => "mewS'E mezgeb", specialfeatures => "fluy Htmet", africannews => "zEna efriqa", worldnews => "zEna `alem", athiopianparliament => "parlama zeityoPya", number => "qWu", java => "zejava", web => "zewEb", africa => "efriqa", }, tir => { _name => "tgrNa", advertisements => "mastaweqiyatat", headlines => "nay zEna ArIstat", magazines => "meSHEtat", ourchurches => "bEte - Krstiyanatna", calendars => "nay ityoPya me`alti meqWSeri", archives => "senedat mewS'i", specialfeatures => "fluy Htam", africannews => "nay Afrika zEna", worldnews => "nay `alem zEna", athiopianparliament => "nay ityoPya parlama", number => "qWu", java => "nay java", web => "nay wEb", africa => "afrika", }, ); sub mapTerms { my $file = shift; open (FILE, "$file"); my $data = join ( "", ); close (FILE); foreach ( keys %Catalog ) { my $lang = $_; my $ldata = $data; my $lfile = $file; $lfile =~ s/\./.$lang./; foreach ( keys %{$Catalog{$lang}} ) { $ldata =~ s/%%$_%%/$Catalog{$lang}{$_}/g; } open (LFILE, ">$lfile"); print LFILE $ldata; close (LFILE); } } sub MakeHTML { print< ENH Message Catalog

ENH Message Catalog

TOP foreach ( sort keys %Catalog ) { print " \n"; } print " \n"; foreach ( sort keys %{$Catalog{amh}} ) { next if /_name/; my $key = $_; print " \n"; foreach ( sort keys %Catalog ) { print " \n"; } print " \n"; } print< BOTTOM } 1; __END__

$Catalog{$_}{_name}
$Catalog{$_}{$key}