Code

* Removed the whole bunch of utf8
authorcajus <cajus@594d385d-05f5-0310-b6e9-bd551577e9d8>
Thu, 13 Mar 2008 20:12:34 +0000 (20:12 +0000)
committercajus <cajus@594d385d-05f5-0310-b6e9-bd551577e9d8>
Thu, 13 Mar 2008 20:12:34 +0000 (20:12 +0000)
* Switched to the slow PurePerl XML parse for the client to get rid
  of really strange encoding behaviours

git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@9790 594d385d-05f5-0310-b6e9-bd551577e9d8

15 files changed:
gosa-si/client/events/corefunctions.pm
gosa-si/client/events/gosaTriggered.pm
gosa-si/client/events/installation.pm
gosa-si/gosa-si-bus
gosa-si/gosa-si-client
gosa-si/gosa-si-server
gosa-si/modules/ArpHandler.pm
gosa-si/modules/ArpWatch.pm
gosa-si/modules/DBsqlite.pm
gosa-si/modules/GosaPackages.pm
gosa-si/modules/SIPackages.pm
gosa-si/modules/TestModule.pm
gosa-si/server/events/clMessages.pm
gosa-si/server/events/databases.pm
gosa-si/server/events/gosaTriggered.pm

index 3d0311926bda160bfe7b8dc12eb02270a719f6f7..2cc248857a1e1f35c4982c5fc42fd68adaaf390c 100644 (file)
@@ -20,7 +20,6 @@ use Data::Dumper;
 use Fcntl;
 use GOSA::GosaSupportDaemon;
 use File::Basename;
-use open ':utf8';
 
 my ($ldap_enabled, $ldap_config, $pam_config, $nss_config, $fai_logpath);
 
@@ -236,6 +235,7 @@ sub new_ldap_config {
     my $file1;
     my $file2;
     open(file1, "> $ldap_config");
+print STDERR Dumper(PerlIO::get_layers(file1, output => 1));
     print file1 "# This file was automatically generated by gosa-si-client. Do not change.\n";
     print file1 "URI";
     foreach $element (@ldap_uris) {
index 796bf708f1396dc1bbdcad280d40d66b7e2613b4..a13b872ce85e50a62a48c6fe58f0bb8fc61b5b1a 100644 (file)
@@ -18,7 +18,6 @@ my @events = (
 
 use strict;
 use warnings;
-use utf8;
 use GOSA::GosaSupportDaemon;
 
 BEGIN {}
index 467099007b9e7b53ff4699b118f6693ad8891618..03b9f1c53020f5fa9aee1eae107d85018fcafe9e 100644 (file)
@@ -8,7 +8,6 @@ use strict;
 use warnings;
 use Data::Dumper;
 use Fcntl;
-use utf8;
 
 BEGIN {}
 
index 3ab5e917a1853770a0c184e371614e855913b67d..37d54002cfa8899372b8036ca35b34742401e97e 100755 (executable)
@@ -34,7 +34,6 @@ use XML::Simple;
 use MIME::Base64;
 use File::Basename;
 use Digest::MD5  qw(md5 md5_hex md5_base64);
-use utf8;
 
 use GOSA::GosaSupportDaemon;
 use GOSA::DBsqlite;
index d56a5548d01d90199b60dffa9290e6e506053c02..1374cb0d63a51775d2547100d92d4c9e9b89c1da 100755 (executable)
@@ -20,7 +20,6 @@
 
 use strict;
 use warnings;
-use utf8;
 use Getopt::Long;
 use Config::IniFiles;
 use POSIX;
@@ -39,6 +38,9 @@ use Net::DNS;
 use File::Basename;
 use File::Spec;
 
+# Workaround: need pure perl to make it work with UTF-8 :-(
+$XML::Simple::PREFERRED_PARSER= "XML::SAX::PurePerl";
+
 my $event_dir = "/usr/lib/gosa-si/client/events";
 use lib "/usr/lib/gosa-si/client/events";
 
index 47dc89b4161ee8ba5adb1ade4353fa353b796114..368f1b15e5f665607b9fd14f2317e66dc33f928f 100755 (executable)
@@ -25,7 +25,6 @@ use warnings;
 use Getopt::Long;
 use Config::IniFiles;
 use POSIX;
-use utf8;
 
 use Fcntl;
 use IO::Socket::INET;
index fec419de2e9cb68520eaa87c6576b3703ca87dde..e920e623045883c54244cb46fe5b5bb634d9d7f2 100644 (file)
@@ -15,7 +15,6 @@ use Net::DNS;
 use Switch;
 use Data::Dumper;
 use Socket;
-use utf8;
 
 # Don't start if some of the modules are missing
 my $start_service=1;
index 1b2f70a405baf99e0aa101c994dbe6f40577a4a4..6487ef1013ea832eacd3a49053cbf71137a6e026 100644 (file)
@@ -3,7 +3,6 @@ package POE::Component::ArpWatch;
 
 use strict;
 use warnings;
-use utf8;
 
 BEGIN{
        eval('use POE');
index 11d48fe6d117ed2eaa8214c8ad2e15913ae3034e..2032db279b100b7469c2892da23ca85ee788ef49 100644 (file)
@@ -8,7 +8,6 @@ use Data::Dumper;
 use GOSA::GosaSupportDaemon;
 use threads;
 use Time::HiRes qw(usleep);
-use utf8;
 
 
 my $col_names = {};
index 43c06a3ad147724386fdbfb0381b2a59d423ee5a..7b23346ab8620a4854b83ef9297a3ba32164d147 100644 (file)
@@ -13,7 +13,6 @@ use File::Spec;
 use Data::Dumper;
 use GOSA::DBsqlite;
 use MIME::Base64;
-use utf8;
 
 my $event_dir = "/usr/lib/gosa-si/server/events";
 use lib "/usr/lib/gosa-si/server/events";
index b06f3f2ef0f159201910f7c0ef5bbe2efcb7fb0b..0169c1c4deb1ca6652b5f73a351bcac661dae560 100644 (file)
@@ -16,7 +16,6 @@ use NetAddr::IP;
 use Net::LDAP;
 use Socket;
 use Net::hostent;
-use utf8;
 
 my $event_dir = "/usr/lib/gosa-si/server/events";
 use lib "/usr/lib/gosa-si/server/events";
index e129f632ee9bae01ed4ee765cda1572710bb3817..90c8d6abb8e274628e17a0374bb5d9a93903e9ae 100644 (file)
@@ -6,7 +6,6 @@ use Exporter;
 use strict;
 use warnings;
 use GosaSupportDaemon;
-use utf8;
 
 BEGIN{
 }
index d72da53347a4ef478fe019696d4628c946f2ddb2..9998ed1afb0da11d53cd1b737b3e32ad8c6e28a5 100644 (file)
@@ -21,7 +21,6 @@ use strict;
 use warnings;
 use Data::Dumper;
 use GOSA::GosaSupportDaemon;
-use utf8;
 use MIME::Base64;
 
 
index 8f56480576b192f6cb8a7f31ab1e0753bbc2888f..14ebe58d0f26927291f089ad6b3c0922deb6ec6b 100644 (file)
@@ -21,7 +21,6 @@ use strict;
 use warnings;
 use GOSA::GosaSupportDaemon;
 use Data::Dumper;
-use utf8;
 
 BEGIN {}
 
index 43421356e1af2cfe8111dab33fd5281b29d01fce..f069da1d4eb46362f612591af2f2c8e161374f8a 100644 (file)
@@ -40,7 +40,6 @@ use Crypt::SmbHash;
 use Net::ARP;
 use Net::Ping;
 use Socket;
-use utf8;
 
 BEGIN {}