summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/adsl.pm43
1 files changed, 23 insertions, 20 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index f8d2da58f..46a1d40cf 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -112,20 +112,23 @@ sub adsl_conf {
sub load_firmware_floppy {
my ($file, $destination) = @_;
+ my $floppy = detect_devices::floppy();
+ my $failed;
- $in->ask_okcancel(N("Insert floppy"), N("Insert floppy and press %s", N("Next"))) or return;
+ $in->ask_okcancel(N("Insert floppy"),
+ N("Insert a FAT formatted floppy in drive %s with %s in root directory and press %s", $floppy, $file, N("Next"))) or return;
- fs::mount(devices::make(detect_devices::floppy()), "/mnt", "vfat", 'readonly');
+ eval { fs::mount(devices::make($floppy), "/mnt", "vfat", 'readonly'); 1 } or $failed = N("Floppy access error, unable to mount device %s", $floppy);
my $_b = before_leaving { fs::umount("/mnt") };
if (-e "/mnt/$file") {
- system("cp /mnt/$file $destination");
- $in->ask_warn('', N("Firmware copy succeed"));
- } else {
- log::l("File not found");
- $in->ask_warn(N("Warning"), N("Firmware copy failed !"));
- return;
- }
+ cp_af("/mnt/$file");
+ system("cp /mnt/$file $destination");
+ } else { $failed ||= N("Firmware copy failed, file %s not found", $file) }
+
+ eval { $in->ask_warn('', $failed || N("Firmware copy succeed")) }; $in->exit if $@ =~ /wizcancel/;
+ $failed and log::l($failed) && return;
+
1;
}
@@ -183,7 +186,7 @@ user "$adsl->{login}"
output("$prefix/etc/ppp/peers/adsl",
qq(noauth
noipdefault
-pty "/usr/sbin/pppoa3 -c -vpi $vpi -vci $vci"
+pty "/usr/sbin/pppoa3 -e 1 -c -vpi $vpi -vci $vci"
sync
kdebug 1
noaccomp
@@ -207,12 +210,12 @@ user "$adsl->{login}"
$::isStandalone and modules::write_conf($prefix);
$in->do_pkgs->what_provides("speedtouch_mgmt") and $in->do_pkgs->install('speedtouch_mgmt');
-e "/usr/share/speedtouch/mgmt.o" and return 1;
-
+
firmware:
- my $l = [ N("Use a floppy"),
- N("Use my Windows partition"),
- N("Do it later"),
+ my $l = [ N_("Use a floppy"),
+ N_("Use my Windows partition"),
+ N_("Do it later"),
];
my $answer = $in->ask_from_list_(N("Firmware needed"),
@@ -220,12 +223,12 @@ user "$adsl->{login}"
You can provide it now via a floppy or your windows partition,
or skip and do it later."), $l) or return;
- $answer eq N("Use a floppy") and load_firmware_floppy("mgmt.o", "/usr/share/speedtouch/") || goto firmware;
- $answer eq N("Use my Windows partition") and goto firmware; # to be done
- $answer eq N("Do it later") and $in->ask_warn('', N("You need the alcatel microcode.
-Download it at
-http://prdownloads.sourceforge.net/speedtouch/speedtouch-20011007.tar.bz2
-and copy the mgmt.o in /usr/share/speedtouch"));
+ $answer eq "Use a floppy" and load_firmware_floppy("boot.msg", "/usr/share/speedtouch/") || goto firmware;
+ $answer eq "Use my Windows partition" and goto firmware; # to be done
+ $answer eq "Do it later" and $in->ask_warn('', N("You need the Alcatel microcode.
+Download it at:
+%s
+and copy the mgmt.o in /usr/share/speedtouch", 'http://prdownloads.sourceforge.net/speedtouch/speedtouch-20011007.tar.bz2'));
}
if ($adsl_type eq 'eci') {