Commit 50e0d3f7 authored by Xavier de Blas's avatar Xavier de Blas

Filter for latin chars for solving problem with software-libre.org server and utf-8

parent 0f1141f0
......@@ -108,6 +108,10 @@ for (sort keys %languages)
$returnPage .= &getFooter($langSuffix);
#filter file (convert á in á ...)
#this is for solving a configuration problem in apache of software-libre.org
$returnPage = filterHTML($returnPage);
#save file
my $outputFile = "";
if($langSuffix eq "_en") {
......@@ -124,17 +128,35 @@ for (sort keys %languages)
sub getHeadersWithTitle {
my $title=($_);
my $return = "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">
<html xmlns=\"http://www.w3.org/1999/xhtml\" lang=\"ca\" xml:lang=\"ca\">
<html>
<head>
# my $return = "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n<html xmlns=\"http://www.w3.org/1999/xhtml\" lang=\"es\" xml:lang=\"es\">
# <head>
# <title>$title</title>
# <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />
# <style type=\"text/css\">
# \@import url(style.css)\;
# </style>
# </head>
#
# <body id=\"page-main\" class=\"with-sidebar\">
#
# <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
# <tr><td align=\"left\">
# <div align=\"left\"><img src=\"images/chronojump33.png\" alt=\"logo\" width=\"591\" height=\"177\" border=\"0\">
# </div>
# </td><td valign=\"bottom\" align=\"right\">
# ";
# return $return;
my $return = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\"\n\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">\n\n<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"es \">
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\" />
<title>$title</title>
<foo> <style type=\"text/css\">
\@import url(style.css)\;
</style>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />
<style type=\"text/css\">
\@import url(style.css)\;
</style>
</head>
<body id=\"page-main\" class=\"with-sidebar\">
......@@ -240,3 +262,48 @@ sub getFooter {
return $return;
}
sub filterHTML {
my ($return)= @_;
#TODO: find a perl library that makes this
#spanish
$return =~ s/&/&/g;
$return =~ s/á/&aacute;/g;
$return =~ s/é/&eacute;/g;
$return =~ s/í/&iacute;/g;
$return =~ s/ó/&oacute;/g;
$return =~ s/ú/&uacute;/g;
$return =~ s/ñ/&ntilde;/g;
$return =~ s/Á/&Aacute;/g;
$return =~ s/É/&Eacute;/g;
$return =~ s/Í/&Iacute;/g;
$return =~ s/Ó/&Oacute;/g;
$return =~ s/Ú/&Uacute;/g;
$return =~ s/Ñ/&Ntilde;/g;
#$return =~ s/¿/&iquest;/g;
#$return =~ s/!/&#033;/g;
#catalan
$return =~ s/à/&agrave;/g;
$return =~ s/è/&egrave;/g;
$return =~ s/ò/&ograve;/g;
$return =~ s/ï/&iuml;/g;
$return =~ s/ü/&uuml;/g;
$return =~ s/À/&Agrave;/g;
$return =~ s/È/&Egrave;/g;
$return =~ s/Ò/&Ograve;/g;
$return =~ s/Ï/&Uuml;/g;
$return =~ s/Ü/&Uuml;/g;
$return =~ s/ç/&ccedil;/g;
$return =~ s/Ç/&Ccedil;/g;
#português
$return =~ s/ã/&atilde;/g;
$return =~ s/õ/&otilde;/g;
$return =~ s/ê/&ecirc;/g;
$return =~ s/ô/&ocirc;/g;
return $return;
}
......@@ -3,7 +3,7 @@
<h4>Construção de Plataforma de contatos</h4>
O instrumento que permite saber se o sujeito está no ar (voando) ou no chão (em terra ¿ em contato) pode ser uma plataforma de contatos ou um sistema de células fotoelétricas. Propomos o seguinte documento para a fabricação da plataforma de contatos:
O instrumento que permite saber se o sujeito está no ar (voando) ou no chão (em terra o em contato) pode ser uma plataforma de contatos ou um sistema de células fotoelétricas. Propomos o seguinte documento para a fabricação da plataforma de contatos:
<ul>
<li><a href="construction_contact_platform_es.html">"Instruções para a construção da plataforma de contatos para a medição da capacidade de salto/s"</a>. (disponível em espanhol)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment