summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-20 22:05:05 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-20 22:05:05 +0000
commit314859a4872032b07c5d0e57adf3d596049e2fdc (patch)
tree462d0e3624917538602f4ad456a384ebb8b45edc /perl-install
parentb0ca1896edd65eb0a43d6d031ba3b4d2fd0c008f (diff)
downloaddrakx-backup-do-not-use-314859a4872032b07c5d0e57adf3d596049e2fdc.tar
drakx-backup-do-not-use-314859a4872032b07c5d0e57adf3d596049e2fdc.tar.gz
drakx-backup-do-not-use-314859a4872032b07c5d0e57adf3d596049e2fdc.tar.bz2
drakx-backup-do-not-use-314859a4872032b07c5d0e57adf3d596049e2fdc.tar.xz
drakx-backup-do-not-use-314859a4872032b07c5d0e57adf3d596049e2fdc.zip
basic nfs handling in drakx
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Makefile2
-rw-r--r--perl-install/Makefile.drakxtools4
-rw-r--r--perl-install/fs.pm9
-rw-r--r--perl-install/network/nfs.pm42
4 files changed, 48 insertions, 9 deletions
diff --git a/perl-install/Makefile b/perl-install/Makefile
index b872c7de1..ffa280b4f 100644
--- a/perl-install/Makefile
+++ b/perl-install/Makefile
@@ -17,7 +17,7 @@ clean:
tar-drakxtools: clean
$(MAKE) -C ../tools clean
- cd .. ; rm -rf drakxtools ; cp -af perl-install drakxtools ; cp -af tools/ddcprobe tools/serial_probe drakxtools
+ cd .. ; rm -rf drakxtools ; cp -af perl-install drakxtools ; cp -af rpcinfo-flushed.c tools/ddcprobe tools/serial_probe drakxtools
cd ../drakxtools ; perl -pi -e 's/^C_RPM.*/C_RPM=0/; s/^C_DRAKX.*/C_DRAKX=0/' c/Makefile
cd ../drakxtools ; rm -rf install* pkgs.pm help.pm ftp.pm t.pm */CVS ; mv Makefile.drakxtools Makefile ; mv -f standalone/* .
cd .. ; tar cfj drakxtools.tar.bz2 --exclude CVS $(patsubst %,drakxtools/%,Makefile Makefile.config Newt c ddcprobe serial_probe share/po sbus_probing resize_fat share/diskdrake.rc share/wizard.rc $(STANDALONEPMS) icons pixmaps network interactive_http *.pm)
diff --git a/perl-install/Makefile.drakxtools b/perl-install/Makefile.drakxtools
index adfde50e5..153212f4c 100644
--- a/perl-install/Makefile.drakxtools
+++ b/perl-install/Makefile.drakxtools
@@ -17,7 +17,7 @@ NETLIBDEST = $(LIBDIR)/$(NAME)/network
PIXDIR = $(DATADIR)/$(NAME)/pixmaps
.PHONY: $(DIRS)
-all: $(DIRS)
+all: rpcinfo-flushed $(DIRS)
$(DIRS):
install -d auto
@@ -29,7 +29,7 @@ install:
install -d $(BINDEST) $(ETCDEST) $(SBINDEST) $(DATADIR) $(LIBDEST) $(NETLIBDEST) $(BINX11DEST) $(LIBX11DEST) $(PIXDIR)
install -d $(INLIBDEST_DIRS:%=$(LIBDEST)/%)
install $(STANDALONEPMS) $(SBINDEST)
- install -s ddcprobe/ddcxinfos serial_probe/serial_probe $(SBINDEST)
+ install -s rpcinfo-flushed ddcprobe/ddcxinfos serial_probe/serial_probe $(SBINDEST)
ln -s ../../$(patsubst $(PREFIX)/usr%,%,$(SBINDEST))/XFdrake $(BINX11DEST)/Xdrakres
install -m 644 *.pm $(LIBDEST)
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index a511ce931..3562f3cf1 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -507,11 +507,8 @@ sub mount {
my @fs_modules = qw(vfat hfs romfs ufs reiserfs xfs jfs ext3);
- if ($fs eq 'nfs') {
- log::l("calling nfs::mount($dev, $where)");
-# nfs::mount($dev, $where) or die _("nfs mount failed");
- } elsif ($fs eq 'smbfs') {
- die "no smb yet...";
+ if (member($fs, 'smb', 'nfs') && $::isStandalone) {
+ system('mount', $dev, $where) == 0 or die _("mount failed");
} elsif (member($fs, 'ext2', @fs_modules)) {
$dev = devices::make($dev) if $fs ne 'proc' && $fs ne 'usbdevfs';
@@ -579,7 +576,7 @@ sub mount_part {
} elsif (loopback::carryRootLoopback($part)) {
$mntpoint = "/initrd/loopfs";
}
- mount(devices::make($dev), $mntpoint, type2fs($part), $rdonly);
+ mount($dev, $mntpoint, type2fs($part), $rdonly);
rmdir "$mntpoint/lost+found";
}
}
diff --git a/perl-install/network/nfs.pm b/perl-install/network/nfs.pm
new file mode 100644
index 000000000..8429d1a69
--- /dev/null
+++ b/perl-install/network/nfs.pm
@@ -0,0 +1,42 @@
+package network::nfs;
+
+use common;
+use network::network;
+
+sub check {
+ my ($in) = @_;
+
+ my $f = '/usr/sbin/showmount';
+ -e $f or $in->do_pkgs->install('nfs-utils-clients');
+ -e $f or $in->ask_warn('', "Mandatory package nfs-utils-clients is missing"), return;
+ 1;
+}
+
+
+sub find_servers() {
+ local (*F, $_);
+ my $pid = open F, "rpcinfo-flushed -b mountd 2 |";
+ $SIG{ALRM} = sub { kill(15, $pid) };
+ alarm 1;
+
+ my $domain = chomp_(`domainname`);
+ my @servers;
+ while (<F>) {
+ chomp;
+ my ($ip, $name) = /(\S+)\s+(\S+)/ or log::l("bad line in rpcinfo output"), next;
+ $name =~ s/\Q.$domain//;
+ $name =~ s/\.$//;
+ push @servers, { ip => $ip, if_($name ne '(unknown)', name => $name) };
+ }
+ @servers;
+}
+
+sub find_exports {
+ my ($server) = @_;
+
+ my (undef, @l) = `showmount -e $server->{ip}`;
+ map { /(\S+)\s*(\S+)/; { name => $1, comment => $2 } } @l;
+}
+
+1;
+