summaryrefslogtreecommitdiffstats
path: root/perl-install/network/smbnfs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-21 10:31:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-21 10:31:45 +0000
commit75bf8c28e750faa0beec21b63ea6990cd9a70bc6 (patch)
tree3ea5df59b8fa616e6f7d5c300e610cd39ad313b0 /perl-install/network/smbnfs.pm
parent1e9038420b7c3346617e966abdfbf75aba6f5bb3 (diff)
downloaddrakx-75bf8c28e750faa0beec21b63ea6990cd9a70bc6.tar
drakx-75bf8c28e750faa0beec21b63ea6990cd9a70bc6.tar.gz
drakx-75bf8c28e750faa0beec21b63ea6990cd9a70bc6.tar.bz2
drakx-75bf8c28e750faa0beec21b63ea6990cd9a70bc6.tar.xz
drakx-75bf8c28e750faa0beec21b63ea6990cd9a70bc6.zip
nicer conditional displaying of nfs comment
Diffstat (limited to 'perl-install/network/smbnfs.pm')
-rw-r--r--perl-install/network/smbnfs.pm10
1 files changed, 8 insertions, 2 deletions
diff --git a/perl-install/network/smbnfs.pm b/perl-install/network/smbnfs.pm
index 1958ce167..d380aac0f 100644
--- a/perl-install/network/smbnfs.pm
+++ b/perl-install/network/smbnfs.pm
@@ -13,18 +13,24 @@ sub server_to_string {
my ($class, $server) = @_;
$server->{name} || $server->{ip};
}
+sub comment_to_string {
+ my ($class, $comment) = @_;
+ $comment;
+}
sub to_dev {
my ($class, $e) = @_;
$class->to_dev_raw($class->server_to_string($e->{server}), $e->{name} || $e->{ip});
}
sub to_string {
my ($class, $e) = @_;
- ($e->{name} || $e->{ip}) . ($e->{comment} ? " ($e->{comment})" : '');
+ my $comment = $class->comment_to_string($e->{comment});
+ ($e->{name} || $e->{ip}) . ($comment ? " ($comment)" : '');
}
sub to_fullstring {
my ($class, $e) = @_;
- $class->to_dev($e) . ($e->{comment} ? " ($e->{comment})" : '');
+ my $comment = $class->comment_to_string($e->{comment});
+ $class->to_dev($e) . ($comment ? " ($comment)" : '');
}
sub to_fstab_entry_raw {
my ($class, $e, $type) = @_;