added sub parse_xml_file

[selfforum.git] / selfforum-cgi / shared / Encode / Plain.pm

diff --git a/selfforum-cgi/shared/Encode/Plain.pm b/selfforum-cgi/shared/Encode/Plain.pm
index cf7ef0645c8e96ecda0f8d4b8c557417bf28f9b5..2fe5634f854145a6a79270ecdc37f6e9a11e548a 100644 (file)
--- a/selfforum-cgi/shared/Encode/Plain.pm
+++ b/selfforum-cgi/shared/Encode/Plain.pm
@@ -2,7 +2,7 @@
 
 # ====================================================
 # Autor: n.d.p. / 2001-01-07
 
 # ====================================================
 # Autor: n.d.p. / 2001-01-07

-# lm   : n.d.p. / 2001-02-06
+# lm   : n.d.p. / 2001-02-25

 # ====================================================
 # Funktion:
 #      Codierung von non-ASCII-Zeichen fuer
 # ====================================================
 # Funktion:
 #      Codierung von non-ASCII-Zeichen fuer


@@ -15,14 +15,13 @@ package Encode::Plain;
 
 require 5.6.0;
 
 
 require 5.6.0;
 

-use vars qw(@ISA @EXPORT %sonder %unimap $utf8);
+use vars qw(@EXPORT %sonder %unimap $utf8);

 
 # ====================================================
 # Funktionsexport
 # ====================================================
 
 
 # ====================================================
 # Funktionsexport
 # ====================================================
 

-require Exporter;
-@ISA    = qw(Exporter);
+use base qw(Exporter);

 @EXPORT = qw(plain multiline toUTF8);
 
 ################################
 @EXPORT = qw(plain multiline toUTF8);
 
 ################################


@@ -152,6 +151,8 @@ sub toUTF8 ($) {
 # ====================================================
 
 BEGIN {
 # ====================================================
 
 BEGIN {

+  $utf8 = 0;
+

   # Latin 1 + geraten
   %sonder=("\177" => '',    # Delete-Zeichen
            "\200" => '€',   # Euro-Zeichen
   # Latin 1 + geraten
   %sonder=("\177" => '',    # Delete-Zeichen
            "\200" => '€',   # Euro-Zeichen


@@ -206,7 +207,7 @@ BEGIN {
            "\261" => '±',    # Plusminus
            "\262" => '²',    # hoch 2
            "\263" => '³',    # hoch 3
            "\261" => '±',    # Plusminus
            "\262" => '²',    # hoch 2
            "\263" => '³',    # hoch 3

-           "\264" => '‚',   # einf. anfuehrungszeichen unten
+           "\264" => '´',   # Acute

            "\265" => 'µ',    # my-Zeichen (griech)
            "\266" => '¶',    # Absatzzeichen
            "\267" => '·',    # Mal-Zeichen
            "\265" => 'µ',    # my-Zeichen (griech)
            "\266" => '¶',    # Absatzzeichen
            "\267" => '·',    # Mal-Zeichen


@@ -325,7 +326,7 @@ BEGIN {
            173 => '-',
            174 => '®',
            175 => 'ß',
            173 => '-',
            174 => '®',
            175 => 'ß',

-           180 => '‚',
+           180 => '´',

            184 => '¸',
            185 => '¹',
            187 => '»',
            184 => '¸',
            185 => '¹',
            187 => '»',