diff options
| author | Francois Pons <fpons@mandriva.com> | 1999-11-06 09:10:11 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 1999-11-06 09:10:11 +0000 |
| commit | 152b0b998e117a4a79dd77d401df8cfc234574a5 (patch) | |
| tree | 142ed19b54273ede98330a2b878e8e9a27567120 /perl-install/install_steps.pm | |
| parent | 07021694c8d96ab2205c9398a68d177e2d185f2a (diff) | |
| download | drakx-backup-do-not-use-152b0b998e117a4a79dd77d401df8cfc234574a5.tar drakx-backup-do-not-use-152b0b998e117a4a79dd77d401df8cfc234574a5.tar.gz drakx-backup-do-not-use-152b0b998e117a4a79dd77d401df8cfc234574a5.tar.bz2 drakx-backup-do-not-use-152b0b998e117a4a79dd77d401df8cfc234574a5.tar.xz drakx-backup-do-not-use-152b0b998e117a4a79dd77d401df8cfc234574a5.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps.pm')
| -rw-r--r-- | perl-install/install_steps.pm | 18 |
1 files changed, 18 insertions, 0 deletions
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 @@ -246,6 +246,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) = @_; timezone::write($o->{prefix}, $o->{timezone}, $f); |