Removed utf-8

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

diff --git a/gosa-si/client/events/corefunctions.pm b/gosa-si/client/events/corefunctions.pm
index 3d0311926bda160bfe7b8dc12eb02270a719f6f7..41480116ea299c98205f067675ced9e4eb7e37df 100644 (file)
--- a/gosa-si/client/events/corefunctions.pm
+++ b/gosa-si/client/events/corefunctions.pm
@@ -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);
 
@@ -113,6 +112,7 @@ sub registered {
     my $hostname= $main::client_dnsname;
     $hostname =~ s/\..*$//;
     open($opts_file_FH, ">$main::opts_file");
+    binmode($opts_file_FH);
     print $opts_file_FH "MAC=\"$main::client_mac_address\"\n";
     print $opts_file_FH "IPADDRESS=\"$main::client_ip\"\n";
     print $opts_file_FH "HOSTNAME=\"$hostname\"\n";
@@ -236,6 +236,7 @@ sub new_ldap_config {
     my $file1;
     my $file2;
     open(file1, "> $ldap_config");
+    binmode(file1);
     print file1 "# This file was automatically generated by gosa-si-client. Do not change.\n";
     print file1 "URI";
     foreach $element (@ldap_uris) {
@@ -250,7 +251,9 @@ sub new_ldap_config {
 
     # Setup pam_ldap.conf / libnss-ldap.conf
     open(file1, "> $pam_config");
+    binmode(file1);
     open(file2, "> $nss_config");
+    binmode(file2);
     print file1 "# This file was automatically generated by gosa-si-client. Do not change.\n";
     print file2 "# This file was automatically generated by gosa-si-client. Do not change.\n";
     print file1 "uri";
@@ -279,6 +282,7 @@ sub new_ldap_config {
             chown(0,0, "/etc/goto/secret");
             chmod(0600, "/etc/goto/secret");
            open(file1, "> /etc/goto/secret");
+           binmode(file1);
             print file1 "GOTOADMIN=\"$goto_admin\"\nGOTOSECRET=\"$goto_secret\"\n";
             close(file1);
             daemon_log("wrote /etc/goto/secret", 5);
@@ -292,6 +296,7 @@ sub new_ldap_config {
     $ldap_server=~ s/^ldap:\/\/([^:]+).*$/$1/;
 
     open(file1, "> $cfg_name");
+    binmode(file1);
     print file1 "LDAP_BASE=\"$ldap_base\"\n";
     print file1 "LDAP_SERVER=\"$ldap_server\"\n";
     print file1 "ADMIN_BASE=\"$admin_base\"\n";