cleaner & OOed code, with more code sharing

1 files changed, 50 insertions, 0 deletions

diff --git a/perl-install/network/smbnfs.pm b/perl-install/network/smbnfs.pm
new file mode 100644
index 000000000..1958ce167
--- /dev/null
+++ b/perl-install/network/smbnfs.pm
@@ -0,0 +1,50 @@
+package network::smbnfs; # $Id$
+
+use strict;
+use diagnostics;
+
+
+sub new { 
+    my ($class, $v) = @_;
+    bless($v || {}, $class);
+}
+
+sub server_to_string {
+    my ($class, $server) = @_;
+    $server->{name} || $server->{ip};
+}
+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})" : '');
+}
+
+sub to_fullstring {
+    my ($class, $e) = @_;
+    $class->to_dev($e) . ($e->{comment} ? " ($e->{comment})" : '');
+}
+sub to_fstab_entry_raw {
+    my ($class, $e, $type) = @_;
+    my $fs_entry = { device => $class->to_dev($e), type => $type };
+    fs::set_default_options($fs_entry);
+    $fs_entry;
+}
+
+sub raw_check {
+    my ($class, $in, $pkg, $file) = @_;
+    if (! -e $file) {
+	$in->ask_okcancel('', _("The package %s needs to be installed. Do you want to install it?", $pkg), 1) or return;
+	$in->do_pkgs->install($pkg);
+    }
+    if (! -e $file) {
+	$in->ask_warn('', _("Mandatory package %s is missing", $pkg));
+	return;
+    }
+    1;
+}
+
+1;
+