diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-01-28 12:49:21 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-01-28 12:49:21 +0000 |
| commit | d7a9db1272e94fd69057f14c037378bcdd55380f (patch) | |
| tree | bbb89060fc4fb3a047e0b87cec4b75e5e10be082 /perl-install/any.pm | |
| parent | 0f123efc384461ab5a07736ca7f13ec24f93a9f9 (diff) | |
| download | drakx-d7a9db1272e94fd69057f14c037378bcdd55380f.tar drakx-d7a9db1272e94fd69057f14c037378bcdd55380f.tar.gz drakx-d7a9db1272e94fd69057f14c037378bcdd55380f.tar.bz2 drakx-d7a9db1272e94fd69057f14c037378bcdd55380f.tar.xz drakx-d7a9db1272e94fd69057f14c037378bcdd55380f.zip | |
simpler&nicer solution for writing kppprc in utf8
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 4e4d80097..2b64cef7c 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -541,11 +541,10 @@ END mkdir_p("$prefix/usr/share/config"); { - 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; + print KPPPRC c::to_utf8(<<END); # KDE Config File [Account0] ExDNSDisabled=0 @@ -553,22 +552,22 @@ AutoName=0 ScriptArguments= AccountingEnabled=0 DialString=ATDT -Phonenumber=$toreplace_utf8{phone} +Phonenumber=$toreplace{phone} IPAddr=0.0.0.0 -Domain=$toreplace_utf8{domain} -Name=$toreplace_utf8{connection} +Domain=$toreplace{domain} +Name=$toreplace{connection} VolumeAccountingEnabled=0 pppdArguments= -Password=$toreplace_utf8{passwd} +Password=$toreplace{passwd} BeforeDisconnect= Command= ScriptCommands= -Authentication=$toreplace_utf8{kpppauth} -DNS=$toreplace_utf8{dnsserver} +Authentication=$toreplace{kpppauth} +DNS=$toreplace{dnsserver} SubnetMask=0.0.0.0 AccountingFile= DefaultRoute=1 -Username=$toreplace_utf8{login} +Username=$toreplace{login} Gateway=0.0.0.0 StorePassword=1 DisconnectCommand= @@ -592,7 +591,7 @@ OutBytes=255,0,0 QuitOnDisconnect=0 ShowLogWindow=0 DisconnectOnXServerExit=1 -DefaultAccount=$toreplace_utf8{connection} +DefaultAccount=$toreplace{connection} iconifyOnConnect=1 Hint_QuickHelp=0 AutomaticRedial=0 |