From 152b0b998e117a4a79dd77d401df8cfc234574a5 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Sat, 6 Nov 1999 09:10:11 +0000
Subject: *** empty log message ***

---
 perl-install/install_steps.pm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'perl-install/install_steps.pm')

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index ccf47b4c5..3e14faa07 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -245,6 +245,24 @@ sub pcmciaConfig($) {
     });
 }
 
+#------------------------------------------------------------------------------
+sub modemConfig {
+    my ($o) = @_;
+    symlinkf($o->{modem}{device}, "$o->{prefix}/dev/modem") if $o->{modem};
+}
+
+sub pppConfig {
+    my ($o) = @_;
+    my %toreplace;
+
+    $toreplace{$_} = $o->{modem}{$_} foreach qw(connection phone login passwd auth domain);
+    $toreplace{phone} =~ s/[^\d]//g;
+    $toreplace{dnsserver} = ($o->{modem}{dns1} && "$o->{modem}{dns1},") . ($o->{modem}{dns2} && "$o->{modem}{dns2},");
+    $toreplace{exdnsdisabled} = $o->{modem}{exdnsdisabled} ? 1 : 0;
+    install_any::translate_file("/usr/share/kppprc.in" ,"$o->{prefix}/root/.kde/share/config/kppprc", %toreplace);
+    install_any::translate_file("/usr/share/kppprc.in" ,"$o->{prefix}/etc/skel/.kde/share/config/kppprc", %toreplace);
+}
+
 #------------------------------------------------------------------------------
 sub timeConfig {
     my ($o, $f) = @_;
-- 
cgit v1.2.1