]>
git.proxmox.com Git - pve-storage.git/blob - PVE/Storage/NFSPlugin.pm
1 package PVE
::Storage
::NFSPlugin
;
8 use PVE
::Tools
qw(run_command);
10 use PVE
::Storage
::Plugin
;
11 use PVE
::JSONSchema
qw(get_standard_option);
13 use base
qw(PVE::Storage::Plugin);
15 # NFS helper functions
18 my ($server, $export, $mountpoint, $mountdata) = @_;
20 $server = "[$server]" if Net
::IP
::ip_is_ipv6
($server);
21 my $source = "$server:$export";
23 $mountdata = PVE
::ProcFSTools
::parse_proc_mounts
() if !$mountdata;
24 return $mountpoint if grep {
26 $_->[0] =~ m
|^\Q
$source\E/?$| &&
27 $_->[1] eq $mountpoint
33 my ($server, $export, $mountpoint, $options) = @_;
35 $server = "[$server]" if Net
::IP
::ip_is_ipv6
($server);
36 my $source = "$server:$export";
38 my $cmd = ['/bin/mount', '-t', 'nfs', $source, $mountpoint];
40 push @$cmd, '-o', $options;
43 run_command
($cmd, errmsg
=> "mount error");
54 content
=> [ { images
=> 1, rootdir
=> 1, vztmpl
=> 1, iso
=> 1, backup
=> 1},
56 format
=> [ { raw
=> 1, qcow2
=> 1, vmdk
=> 1 } , 'raw' ],
63 description
=> "NFS export path.",
64 type
=> 'string', format
=> 'pve-storage-path',
67 description
=> "Server IP or DNS name.",
68 type
=> 'string', format
=> 'pve-storage-server',
71 description
=> "NFS mount options (see 'man nfs')",
72 type
=> 'string', format
=> 'pve-storage-options',
79 path
=> { fixed
=> 1 },
80 server
=> { fixed
=> 1 },
81 export
=> { fixed
=> 1 },
82 nodes
=> { optional
=> 1 },
83 disable
=> { optional
=> 1 },
84 maxfiles
=> { optional
=> 1 },
85 options
=> { optional
=> 1 },
86 content
=> { optional
=> 1 },
87 format
=> { optional
=> 1 },
88 mkdir => { optional
=> 1 },
94 my ($class, $sectionId, $config, $create, $skipSchemaCheck) = @_;
96 $config->{path
} = "/mnt/pve/$sectionId" if $create && !$config->{path
};
98 return $class->SUPER::check_config
($sectionId, $config, $create, $skipSchemaCheck);
101 # Storage implementation
104 my ($class, $storeid, $scfg, $cache) = @_;
106 $cache->{mountdata
} = PVE
::ProcFSTools
::parse_proc_mounts
()
107 if !$cache->{mountdata
};
109 my $path = $scfg->{path
};
110 my $server = $scfg->{server
};
111 my $export = $scfg->{export
};
113 return undef if !nfs_is_mounted
($server, $export, $path, $cache->{mountdata
});
115 return $class->SUPER::status
($storeid, $scfg, $cache);
118 sub activate_storage
{
119 my ($class, $storeid, $scfg, $cache) = @_;
121 $cache->{mountdata
} = PVE
::ProcFSTools
::parse_proc_mounts
()
122 if !$cache->{mountdata
};
124 my $path = $scfg->{path
};
125 my $server = $scfg->{server
};
126 my $export = $scfg->{export
};
128 if (!nfs_is_mounted
($server, $export, $path, $cache->{mountdata
})) {
130 # NOTE: only call mkpath when not mounted (avoid hang
131 # when NFS server is offline
133 mkpath
$path if !(defined($scfg->{mkdir}) && !$scfg->{mkdir});
135 die "unable to activate storage '$storeid' - " .
136 "directory '$path' does not exist\n" if ! -d
$path;
138 nfs_mount
($server, $export, $path, $scfg->{options
});
141 $class->SUPER::activate_storage
($storeid, $scfg, $cache);
144 sub deactivate_storage
{
145 my ($class, $storeid, $scfg, $cache) = @_;
147 $cache->{mountdata
} = PVE
::ProcFSTools
::parse_proc_mounts
()
148 if !$cache->{mountdata
};
150 my $path = $scfg->{path
};
151 my $server = $scfg->{server
};
152 my $export = $scfg->{export
};
154 if (nfs_is_mounted
($server, $export, $path, $cache->{mountdata
})) {
155 my $cmd = ['/bin/umount', $path];
156 run_command
($cmd, errmsg
=> 'umount error');
160 sub check_connection
{
161 my ($class, $storeid, $scfg) = @_;
163 my $server = $scfg->{server
};
165 my $cmd = ['/sbin/showmount', '--no-headers', '--exports', $server];
168 run_command
($cmd, timeout
=> 2, outfunc
=> sub {}, errfunc
=> sub {});