X-Git-Url: http://git.projectaon.org/?p=project-aon.git;a=blobdiff_plain;f=scripts%2Fgb-convert-entities.pl;fp=scripts%2Fgb-convert-entities.pl;h=34eb27c78ccb40767aae45e94c9149714757a157;hp=0000000000000000000000000000000000000000;hb=c560b69a3029efc08efe83f4672c98680dd2a605;hpb=20c4bc96a6f08ee9d2dadd0acd177cb69755eacf

diff --git a/scripts/gb-convert-entities.pl b/scripts/gb-convert-entities.pl
new file mode 100755
index 0000000..34eb27c
--- /dev/null
+++ b/scripts/gb-convert-entities.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+
+while( <> ) {
+    if( /"[^">]*&([^;]+);/ && $1 !~ /^link/ ) {
+        warn "Entity $1 in attribute";
+    }
+    s{\&(apos|nbsp|iexcl|cent|pound|curren|yen|brvbar|sect|uml|copy|ordf|laquo|not|shy|reg|macr|deg|plusmn|sup2|sup3|acute|micro|para|middot|cedil|sup1|ordm|raquo|frac14|frac12|frac34|iquest|Agrave|Aacute|Acirc|Atilde|Auml|Aring|AElig|Ccedil|Egrave|Eacute|Ecirc|Euml|Igrave|Iacute|Icirc|Iuml|ETH|Ntilde|Ograve|Oacute|Ocirc|Otilde|Ouml|times|Oslash|Ugrave|Uacute|Ucirc|Uuml|Yacute|THORN|szlig|agrave|aacute|acirc|atilde|auml|aring|aelig|ccedil|egrave|eacute|ecirc|euml|igrave|iacute|icirc|iuml|eth|ntilde|ograve|oacute|ocirc|otilde|ouml|divide|oslash|ugrave|uacute|ucirc|uuml|yacute|thorn|yuml|ampersand|lsquot|rsquot|ldquot|rdquot|minus|endash|emdash|ellips|lellips|blankline|percent|thinspace);}{<ch.$1/>}g;
+    print;
+}