summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-22 16:13:13 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-22 16:13:13 +0000
commit341125c9f53352b178e9ca127e9dcc55ef89bf31 (patch)
treeb3f97068ec5cd37772c699d45959ca246bc5b0db /perl-install
parent0772882ffc3fbf63d3afa5e468783240cb6085b7 (diff)
downloaddrakx-341125c9f53352b178e9ca127e9dcc55ef89bf31.tar
drakx-341125c9f53352b178e9ca127e9dcc55ef89bf31.tar.gz
drakx-341125c9f53352b178e9ca127e9dcc55ef89bf31.tar.bz2
drakx-341125c9f53352b178e9ca127e9dcc55ef89bf31.tar.xz
drakx-341125c9f53352b178e9ca127e9dcc55ef89bf31.zip
(copy_firmware) kill it (was merged into add intf wizard
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/tools.pm22
1 files changed, 0 insertions, 22 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 6fe4c047c..ec5169cf2 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -188,28 +188,6 @@ EOF
};
}
-sub copy_firmware {
- my ($device, $destination, $file) = @_;
- my ($source, $failed, $mounted);
-
- $device eq 'floppy' and do { $mounted = 1; ($source, $failed) = use_floppy($file) };
- $device eq 'windows' and ($source, $failed) = use_windows();
-
- $source eq $failed and return;
- $mounted and my $_b = before_leaving { fs::umount('/mnt') };
- if ($failed) {
- eval { $in->ask_warn('', $failed) }; $in->exit if $@ =~ /wizcancel/;
- return;
- }
-
- if (-e "$source/$file") { cp_af("$source/$file", $destination) }
- else { $failed = N("Firmware copy failed, file %s not found", $file) }
- eval { $in->ask_warn('', $failed || N("Firmware copy succeeded")) }; $in->exit if $@ =~ /wizcancel/;
- log::explanations($failed || "Firmware copy $file in $destination succeeded");
-
- $failed ? 0 : 1;
-}
-
sub use_windows() {
my $all_hds = fsedit::get_hds({}, undef);
fs::get_info_from_fstab($all_hds, '');