#!/usr/bin/perl use lib qw(/usr/lib/libDrakX); use standalone; use fs::remote::nfs; use fs::remote::smb; use MDK::Common::Func qw(if_); "@ARGV" =~ /-h/ and die "usage: lsnetdrake [-h] [--nfs] [--smb]\n"; my $nfs = !@ARGV || "@ARGV" =~ /-(nfs)/; my $smb = !@ARGV || "@ARGV" =~ /-(smb)/; $| = 1; $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}"; foreach my $class (if_($nfs, fs::remote::nfs->new), if_($smb, fs::remote::smb->new)) { foreach my $server (sort_names($class->find_servers)) { foreach (sort_names(eval { $class->find_exports($server) })) { print $class->to_fullstring($_), "\n"; } } } sub sort_names { sort { $a->{name} cmp $b->{name} } @_; } ass='main'>index : drakx
Mageia Installer and base platform for many utilitiesThierry Vignaud [tv]
summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakxconf
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-07-24 22:39:28 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-07-24 22:39:28 +0000
commitb60c0cb8f67d745626fec6f0c8540818f24e91a6 (patch)
tree783189547888703c391b1719cf9ceaacb1e1aa63 /perl-install/standalone/drakxconf
parent0a96d505550060312a1cd9a04a9ae9bf23ebdaa2 (diff)
downloaddrakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar
drakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.gz
drakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.bz2
drakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.tar.xz
drakx-b60c0cb8f67d745626fec6f0c8540818f24e91a6.zip
move to MDK::Common, bool->to_bool
Diffstat (limited to 'perl-install/standalone/drakxconf')
-rwxr-xr-xperl-install/standalone/drakxconf2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/standalone/drakxconf b/perl-install/standalone/drakxconf
index 30a8468b0..f7a4fb794 100755
--- a/perl-install/standalone/drakxconf
+++ b/perl-install/standalone/drakxconf
@@ -7,7 +7,7 @@ use interactive;
use standalone;
use keyboard;
use Xconfigurator_consts;
-use common qw(:system);
+use common;
use c;
local $_ = join '', @ARGV;