diff options
Diffstat (limited to 'perl-install/network/smbnfs.pm')
| -rw-r--r-- | perl-install/network/smbnfs.pm | 45 | 
1 files changed, 0 insertions, 45 deletions
| diff --git a/perl-install/network/smbnfs.pm b/perl-install/network/smbnfs.pm deleted file mode 100644 index c38903028..000000000 --- a/perl-install/network/smbnfs.pm +++ /dev/null @@ -1,45 +0,0 @@ -package network::smbnfs; # $Id$ - -use strict; -use diagnostics; - -use fs; - - -sub new {  -    my ($class, $o_v) = @_; -    bless($o_v || {}, $class); -} - -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) = @_; -    my $comment = $class->comment_to_string($e->{comment}); -    ($e->{name} || $e->{ip}) . ($comment ? " ($comment)" : ''); -} - -sub to_fullstring { -    my ($class, $e) = @_; -    my $comment = $class->comment_to_string($e->{comment}); -    $class->to_dev($e) . ($comment ? " ($comment)" : ''); -} -sub to_fstab_entry_raw { -    my ($class, $e, $fs_type) = @_; -    my $fs_entry = { device => $class->to_dev($e), fs_type => $fs_type }; -    fs::mount_options::set_default($fs_entry); -    $fs_entry; -} - -1; - | 
