summaryrefslogtreecommitdiffstats
path: root/perl-install/network/tools.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-05-27 11:36:31 +0000
committerOlivier Blin <oblin@mandriva.org>2005-05-27 11:36:31 +0000
commitf928e6d72824dc8ac2a794e4a0f44135c1f166a2 (patch)
treed8d262ea95a68e7867c7faca90285ef34984cce3 /perl-install/network/tools.pm
parentf1cb50794db65d31c56306effbcbe058c404b39b (diff)
downloaddrakx-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.pm32
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;