summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-01-28 11:03:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-01-28 11:03:49 +0000
commitc5741a7b71d461edf72b32e08a7154885e567e3e (patch)
tree162f5ea04af16b60ca8c27d55cc6f292bb080463 /perl-install
parentcd9ff6cc58f5012e07967f1e7ac259e88908007a (diff)
downloaddrakx-c5741a7b71d461edf72b32e08a7154885e567e3e.tar
drakx-c5741a7b71d461edf72b32e08a7154885e567e3e.tar.gz
drakx-c5741a7b71d461edf72b32e08a7154885e567e3e.tar.bz2
drakx-c5741a7b71d461edf72b32e08a7154885e567e3e.tar.xz
drakx-c5741a7b71d461edf72b32e08a7154885e567e3e.zip
have kppprc strings in utf8
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm29
1 files changed, 16 insertions, 13 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 04ed13e32..4e4d80097 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -539,10 +539,13 @@ END
#- install kppprc file according to used configuration.
mkdir_p("$prefix/usr/share/config");
- local *KPPPRC;
- open KPPPRC, ">$prefix/usr/share/config/kppprc" or die "Can't open $prefix/usr/share/config/kppprc: $!";
- #chmod 0600, "$prefix/usr/share/config/kppprc";
- print KPPPRC <<END;
+
+ {
+ my %toreplace_utf8 = map { $_ => c::to_utf8($toreplace{$_}) } keys %toreplace;
+ local *KPPPRC;
+ open KPPPRC, ">$prefix/usr/share/config/kppprc" or die "Can't open $prefix/usr/share/config/kppprc: $!";
+ #chmod 0600, "$prefix/usr/share/config/kppprc";
+ print KPPPRC <<END;
# KDE Config File
[Account0]
ExDNSDisabled=0
@@ -550,22 +553,22 @@ AutoName=0
ScriptArguments=
AccountingEnabled=0
DialString=ATDT
-Phonenumber=$toreplace{phone}
+Phonenumber=$toreplace_utf8{phone}
IPAddr=0.0.0.0
-Domain=$toreplace{domain}
-Name=$toreplace{connection}
+Domain=$toreplace_utf8{domain}
+Name=$toreplace_utf8{connection}
VolumeAccountingEnabled=0
pppdArguments=
-Password=$toreplace{passwd}
+Password=$toreplace_utf8{passwd}
BeforeDisconnect=
Command=
ScriptCommands=
-Authentication=$toreplace{kpppauth}
-DNS=$toreplace{dnsserver}
+Authentication=$toreplace_utf8{kpppauth}
+DNS=$toreplace_utf8{dnsserver}
SubnetMask=0.0.0.0
AccountingFile=
DefaultRoute=1
-Username=$toreplace{login}
+Username=$toreplace_utf8{login}
Gateway=0.0.0.0
StorePassword=1
DisconnectCommand=
@@ -589,7 +592,7 @@ OutBytes=255,0,0
QuitOnDisconnect=0
ShowLogWindow=0
DisconnectOnXServerExit=1
-DefaultAccount=$toreplace{connection}
+DefaultAccount=$toreplace_utf8{connection}
iconifyOnConnect=1
Hint_QuickHelp=0
AutomaticRedial=0
@@ -599,7 +602,7 @@ ShowClock=1
DockIntoPanel=0
pppdTimeout=30
END
-
+ }
miscellaneousNetwork($prefix);
}