diff options
| author | Francois Pons <fpons@mandriva.com> | 2003-03-24 13:10:44 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2003-03-24 13:10:44 +0000 |
| commit | 2cd0efae4f4de2e622402117c39dd4a394648b8c (patch) | |
| tree | 443c78751ed358bbac4affa8d4d5454122dfa58a /perl-install/network/modem.pm | |
| parent | 3974a732bb2b5a6e73728374798ce16d29e41986 (diff) | |
| download | drakx-backup-do-not-use-2cd0efae4f4de2e622402117c39dd4a394648b8c.tar drakx-backup-do-not-use-2cd0efae4f4de2e622402117c39dd4a394648b8c.tar.gz drakx-backup-do-not-use-2cd0efae4f4de2e622402117c39dd4a394648b8c.tar.bz2 drakx-backup-do-not-use-2cd0efae4f4de2e622402117c39dd4a394648b8c.tar.xz drakx-backup-do-not-use-2cd0efae4f4de2e622402117c39dd4a394648b8c.zip | |
added modem configuration after LT Modem support.
Diffstat (limited to 'perl-install/network/modem.pm')
| -rw-r--r-- | perl-install/network/modem.pm | 17 |
1 files changed, 14 insertions, 3 deletions
diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm index 6c26a7213..380567c46 100644 --- a/perl-install/network/modem.pm +++ b/perl-install/network/modem.pm @@ -249,7 +249,7 @@ sub ppp_choose { #- TODO: add choice between hcf/hsf/lt ? sub winmodemConfigure { - my ($in, $netc) = @_; + my ($in, $netcnx, $mouse, $netc, $intf) = @_; my %relocations = ( ltmodem => $in->do_pkgs->check_kernel_module_packages('ltmodem') ); my $type; @@ -263,8 +263,19 @@ sub winmodemConfigure { $type || $in->ask_warn(N("Warning"), N("Your modem isn't supported by the system. Take a look at http://www.linmodems.org")) && return 1; my $e = $in->ask_from_list(N("Title"), N("\"%s\" based winmodem detected, do you want to install needed software ?", $type), [N("Install rpm"), N("Do nothing")]) or return 0; - $e =~ /rpm/ ? $in->do_pkgs->install($relocations{$type} ? @{$relocations{$type}} : $type) : return 1; - 1; + if ($e =~ /rpm/) { + if ($in->do_pkgs->install($relocations{$type} ? @{$relocations{$type}} : $type)) { + unless ($::isInstall) { + #- fallback to modem configuration (beware to never allow test it). + $netcnx->{type} = 'modem'; + $type eq 'ltmodem' and $netc->{autodetect}{modem} = '/dev/ttyS14'; + return configure($in, $netcnx, $mouse, $netc, $intf); + } + } else { + return 0; + } + } + return 1; } 1; |