diff options
author | Olivier Blin <oblin@mandriva.org> | 2005-05-27 11:36:31 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.org> | 2005-05-27 11:36:31 +0000 |
commit | f928e6d72824dc8ac2a794e4a0f44135c1f166a2 (patch) | |
tree | d8d262ea95a68e7867c7faca90285ef34984cce3 /perl-install/network/tools.pm | |
parent | f1cb50794db65d31c56306effbcbe058c404b39b (diff) | |
download | drakx-f928e6d72824dc8ac2a794e4a0f44135c1f166a2.tar drakx-f928e6d72824dc8ac2a794e4a0f44135c1f166a2.tar.gz drakx-f928e6d72824dc8ac2a794e4a0f44135c1f166a2.tar.bz2 drakx-f928e6d72824dc8ac2a794e4a0f44135c1f166a2.tar.xz drakx-f928e6d72824dc8ac2a794e4a0f44135c1f166a2.zip |
initial import of network::thirdparty (this module factorizes the thirdparty software/drivers/firmwares detection and installation code, it points the user to the relevant packages/documentation/url if needed, and don't allow to configure a device if its requirements aren't satisfied)
Diffstat (limited to 'perl-install/network/tools.pm')
-rw-r--r-- | perl-install/network/tools.pm | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index 6ba1d9886..ba51572a7 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -3,7 +3,6 @@ package network::tools; # $Id$ use strict; use common; use run_program; -use fsedit; use c; use vars qw(@ISA @EXPORT @EXPORT_OK); use MDK::Common::System qw(getVarsFromSh); @@ -169,37 +168,6 @@ sub remove_initscript() { } } -sub use_windows { - my ($file) = @_; - my $all_hds = fsedit::get_hds(); - fs::get_info_from_fstab($all_hds); - if (my $part = find { $_->{device_windobe} eq 'C' } fs::get::fstab($all_hds)) { - my $source = find { -d $_ && -r "$_/$file" } map { "$part->{mntpoint}/$_" } qw(windows/system winnt/system windows/system32/drivers winnt/system32/drivers); - log::explanations("Seek in $source to find firmware"); - $source; - } else { - my $failed = N("No partition available"); - log::explanations($failed); - undef, $failed; - } -} - -sub use_floppy { - my ($in, $file) = @_; - my $floppy = detect_devices::floppy(); - $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; - if (eval { fs::mount(devices::make($floppy), '/mnt', 'vfat', 'readonly'); 1 }) { - log::explanations("Mounting floppy device $floppy in /mnt"); - '/mnt'; - } else { - my $failed = N("Floppy access error, unable to mount device %s", $floppy); - log::explanations($failed); - undef, $failed; - } -} - - sub is_dynamic_ip { my ($intf) = @_; any { $_->{BOOTPROTO} !~ /^(none|static|)$/ } values %$intf; |