summaryrefslogtreecommitdiffstats
path: root/perl-install/network/modem.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network/modem.pm')
-rw-r--r--perl-install/network/modem.pm18
1 files changed, 10 insertions, 8 deletions
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