From 2a54c69f6ef4aec8c6848c9ea9add338145f6112 Mon Sep 17 00:00:00 2001
From: Damien Chaumette <dchaumette@mandriva.com>
Date: Wed, 25 Feb 2004 00:09:31 +0000
Subject: - allow writting to another kppprc file - replace new kppp option
 values

---
 perl-install/network/modem.pm | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

(limited to 'perl-install/network/modem.pm')

diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index 7d556a616..e790cf83c 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -144,7 +144,9 @@ END
     #- install kppprc file according to used configuration.
     mkdir_p("$::prefix/usr/share/config");
 
-    output("$::prefix/usr/share/config/kppprc", c::to_utf8(<<END));
+    $toreplace{$_->[0]} = $modem->{$_->[0]} || $_->[1] foreach [ 'Timeout', 60 ], [ 'UseLockFile', 1 ], [ 'Enter', 'CR' ], [ 'Volume', 0 ],
+                                                               [ 'BusyWait', 0 ], [ 'FlowControl', 'CRTSCTS' ], [ 'Speed', 115200 ];
+    output($modem->{kppprc} || "$::prefix/usr/share/config/kppprc", c::to_utf8(<<END));
 # KDE Config File
 
 [Account0]
@@ -174,15 +176,15 @@ StorePassword=1
 DisconnectCommand=
 
 [Modem]
-BusyWait=0
-Enter=CR
-FlowControl=CRTSCTS
-Volume=0
-Timeout=60
+BusyWait=$toreplace{BusyWait}
+Enter=$toreplace{Enter}
+FlowControl=$toreplace{FlowControl}
+Volume=$toreplace{Volume}
+Timeout=$toreplace{Timeout}
 UseCDLine=0
-UseLockFile=1
+UseLockFile=$toreplace{UseLockFile}
 Device=/dev/modem
-Speed=115200
+Speed=$toreplace{Speed}
 
 [Graph]
 InBytes=0,0,255
-- 
cgit v1.2.1