[pve-devel] [PATCH v2 container] fix #1607: implement pct fstrim

[Oguz Bektas]

runs fstrim on the rootfs and all mountpoints of a given container. this
works for both running and stopped containers.

Signed-off-by: Oguz Bektas <o.bektas at proxmox.com>
---

v2:
* update description
* don't lock config but instead make an 'fstrim' lock to avoid
containers being stopped during io operation

 src/PVE/CLI/pct.pm | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/src/PVE/CLI/pct.pm b/src/PVE/CLI/pct.pm
index 794bc45..238ffe6 100755
--- a/src/PVE/CLI/pct.pm
+++ b/src/PVE/CLI/pct.pm
@@ -755,6 +755,45 @@ __PACKAGE__->register_method ({
 	return undef;
     }});
 
+__PACKAGE__->register_method ({
+    name => 'fstrim',
+    path => 'fstrim',
+    method => 'POST',
+    description => "Run fstrim on a chosen CT and its mountpoints.",
+    parameters => {
+	additionalProperties => 0,
+	properties => {
+	    vmid => get_standard_option('pve-vmid', { completion => \&PVE::LXC::complete_ctid }),
+	},
+    },
+    returns => { type => 'null' },
+    code => sub {
+
+	my ($param) = @_;
+	my $vmid = $param->{'vmid'};
+
+	my $rootdir = "/var/lib/lxc/$vmid/rootfs";
+
+	my $storecfg = PVE::Storage::config();
+	PVE::LXC::Config->set_lock($vmid, 'fstrim');
+	my $conf = PVE::LXC::Config->load_config($vmid);
+	PVE::LXC::mount_all($vmid, $storecfg, $conf);
+	eval {
+	    my $path = "";
+	    PVE::LXC::Config->foreach_mountpoint($conf, sub {
+		my ($name, $mp) = @_;
+		$path = $mp->{mp};
+		my $cmd = ["fstrim", "-v", "$rootdir$path"];
+		PVE::Tools::run_command($cmd);
+	    });
+	};
+
+	PVE::LXC::umount_all($vmid, $storecfg, $conf, 0);
+	PVE::LXC::Config->remove_lock($vmid, 'fstrim');
+
+	return undef;
+    }});
+
 our $cmddef = {
     list=> [ 'PVE::API2::LXC', 'vmlist', [], { node => $nodename }, sub {
 	my $res = shift;
@@ -841,6 +880,8 @@ our $cmddef = {
 
     cpusets => [ __PACKAGE__, 'cpusets', []],
 
+    fstrim => [ __PACKAGE__, 'fstrim', ['vmid']],
+
 };
 
 
-- 
2.11.0