[pve-devel] [PATCH manager] report: filter comments in VM/CT configs

[Mira Limbeck]

Since some users keep their passwords in the VM/CT configs as comments
and those are most of the time unnecessary when looking through the
report, filter those.

In addition to the comments, also filter the `cipassword` option
since it contains the hash of the password.

To facilitate the filtering, a new sub 'file2text' is introduced that
can filter the file contents if required.
This sub replaces the 'cat ...' commands.

Signed-off-by: Mira Limbeck <m.limbeck at proxmox.com>
---
I did not add print to STDERR in file2text for now since it got quite
chatty.
If this is wanted, I'll send a v2 adding it. But since file2text is also
called by dir2text the 'OK' at the end won't always align, especially
when dir2text is used.

 PVE/Report.pm | 48 +++++++++++++++++++++++++++++++++---------------
 1 file changed, 33 insertions(+), 15 deletions(-)

diff --git a/PVE/Report.pm b/PVE/Report.pm
index 90b7cb1c..7ebe98f7 100644
--- a/PVE/Report.pm
+++ b/PVE/Report.pm
@@ -5,16 +5,34 @@ use warnings;
 
 use PVE::Tools;
 
+my sub file2text {
+    my ($file, $filter) = @_;
+    my $text = "\n# cat $file\n";
+
+    my $contents = PVE::Tools::file_get_contents($file);
+    if ($filter) {
+	foreach my $line (split('\n', $contents)) {
+	    next if $line =~ m/^\s*#/;
+	    next if $line =~ m/^cipassword/;
+
+	    $text .= "$line\n";
+	}
+    } else {
+	$text .= $contents;
+    }
+
+    return $text;
+}
+
 # output the content of all the files of a directory
 my sub dir2text {
-    my ($target_dir, $regexp) = @_;
+    my ($target_dir, $regexp, $filter) = @_;
 
     print STDERR "dir2text '${target_dir}${regexp}'...";
     my $text = '';
     PVE::Tools::dir_glob_foreach($target_dir, $regexp, sub {
 	my ($file) = @_;
-	$text .=  "\n# cat $target_dir$file\n";
-	$text .= PVE::Tools::file_get_contents($target_dir.$file)."\n";
+	$text .= file2text($target_dir.$file, $filter)."\n";
     });
     return $text;
 }
@@ -30,9 +48,9 @@ my $init_report_cmds = sub {
 	    cmds => [
 		'hostname',
 		'pveversion --verbose',
-		'cat /etc/hosts',
+		sub { file2text('/etc/hosts') },
 		'pvesubscription get',
-		'cat /etc/apt/sources.list',
+		sub { file2text('/etc/apt/sources.list') },
 		sub { dir2text('/etc/apt/sources.list.d/', '.*list') },
 		sub { dir2text('/etc/apt/sources.list.d/', '.*sources') },
 		'lscpu',
@@ -50,9 +68,9 @@ my $init_report_cmds = sub {
 	storage => {
 	    order => 30,
 	    cmds => [
-		'cat /etc/pve/storage.cfg',
+		sub { file2text('/etc/pve/storage.cfg') },
 		'pvesm status',
-		'cat /etc/fstab',
+		sub { file2text('/etc/fstab') },
 		'findmnt --ascii',
 		'df --human -T',
 		'proxmox-boot-tool status',
@@ -62,9 +80,9 @@ my $init_report_cmds = sub {
 	    order => 40,
 	    cmds => [
 		'qm list',
-		sub { dir2text('/etc/pve/qemu-server/', '\d.*conf') },
+		sub { dir2text('/etc/pve/qemu-server/', '\d.*conf', 1) },
 		'pct list',
-		sub { dir2text('/etc/pve/lxc/', '\d.*conf') },
+		sub { dir2text('/etc/pve/lxc/', '\d.*conf', 1) },
 	    ],
 	},
 	network => {
@@ -73,14 +91,14 @@ my $init_report_cmds = sub {
 		'ip -details -statistics address',
 		'ip -details -4 route show',
 		'ip -details -6 route show',
-		'cat /etc/network/interfaces',
+		sub { file2text('/etc/network/interfaces') },
 	    ],
 	},
 	firewall => {
 	    order => 50,
 	    cmds => [
 		sub { dir2text('/etc/pve/firewall/', '.*fw') },
-		'cat /etc/pve/local/host.fw',
+		sub { file2text('/etc/pve/local/host.fw') },
 		'iptables-save',
 	    ],
 	},
@@ -89,7 +107,7 @@ my $init_report_cmds = sub {
 	    cmds => [
 		'pvecm nodes',
 		'pvecm status',
-		'cat /etc/pve/corosync.conf 2>/dev/null',
+		sub { file2text('/etc/pve/corosync.conf') },
 		'ha-manager status',
 	    ],
 	},
@@ -135,7 +153,7 @@ my $init_report_cmds = sub {
 	    'ceph df',
 	    'ceph osd df tree',
 	    'ceph device ls',
-	    'cat /etc/ceph/ceph.conf',
+	    sub { file2text('/etc/ceph/ceph.conf') },
 	    'ceph config dump',
 	    'pveceph pool ls',
 	    'ceph versions',
@@ -144,8 +162,8 @@ my $init_report_cmds = sub {
 
     if (cmd_exists('multipath')) {
 	push @{$report_def->{disks}->{cmds}},
-	    'cat /etc/multipath.conf',
-	    'cat /etc/multipath/wwids',
+	    sub { file2text('/etc/multipath.conf') },
+	    sub { file2text('/etc/multipath/wwids') },
 	    'multipath -ll',
 	    ;
     }
-- 
2.30.2