#!/usr/bin/perl my $newmenu = ""; use Cwd; my $cwdir = getcwd; my $menuline; my @langs; open (menu_template, "menu.tmpl") or die("could not open menu template file"); while ($menuline = ) { $newmenu .= $menuline; if ($menuline =~ /xml:lang="(.*)"/){ push @langs, $1; } } my @files = ("manual.html", "about.html", "documentation.html", "DOWNLOAD.html"); my $html = ""; foreach my $filename (@files) { foreach my $ext (@langs) { $html = ''; if (open (HTML, "../$filename.$ext")) { print "reading ../$filename.$ext\n"; while ($htmlline = ) { $html .= $htmlline; } close(HTML); my $html_orig = $html; $html =~ s/(