mirror of
https://git.proxmox.com/git/pve-manager
synced 2025-07-25 21:55:44 +00:00
ee3a898983
Each command may not run longer than 10 seconds. This avoids situations where no output gets generated because of a infinitely hanging command (e.g. check for dead NFS storage) Also ensure that commands are separated with a new line from each other to improve readability. Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
135 lines
3.3 KiB
Perl
135 lines
3.3 KiB
Perl
package PVE::Report;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use PVE::pvecfg;
|
|
use PVE::Tools;
|
|
|
|
$ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin';
|
|
|
|
my $cmd_timeout = 10; # generous timeout
|
|
|
|
my $report;
|
|
|
|
my @general = ('hostname', 'pveversion --verbose', 'cat /etc/hosts', 'top -b -n 1 | head -n 15',
|
|
'pvesubscription get', 'lscpu');
|
|
|
|
my @storage = ('cat /etc/pve/storage.cfg', 'pvesm status', 'cat /etc/fstab', 'mount', 'df --human');
|
|
|
|
my @volumes = ('lvs', 'vgs');
|
|
# command -v is the posix equivalent of 'which'
|
|
if (system('command -v zfs > /dev/null 2>&1') == 0) {
|
|
push @volumes, 'zpool status', 'zfs list'
|
|
}
|
|
|
|
my @disks = ('lsblk --ascii');
|
|
if (system('command -v multipath > /dev/null 2>&1') == 0) {
|
|
push @disks, 'multipath -ll', 'multipath -v3'
|
|
}
|
|
|
|
my @machines = ('qm list', sub { dir2text('/etc/pve/qemu-server/', '\d.*conf') });
|
|
|
|
my @net = ('ip -details -statistics address', 'cat /etc/network/interfaces', sub { dir2text('/etc/pve/firewall/', '.*fw') },
|
|
'iptables-save');
|
|
|
|
my @cluster = ('pvecm nodes', 'pvecm status');
|
|
|
|
my @bios = ('dmidecode -t bios');
|
|
|
|
if (PVE::pvecfg::version() >= 4.0) {
|
|
push @cluster, 'cat /etc/pve/corosync.conf 2> /dev/null' ;
|
|
push @machines, sub { dir2text('/etc/pve/lxc/', '\d.*conf') };
|
|
} else {
|
|
push @general, 'grep --max-count=1 "model name" /proc/cpuinfo';
|
|
push @machines, sub { dir2text('/etc/pve/openvz/', '\d.*conf') };
|
|
push @cluster, 'clustat', 'cat /etc/cluster.conf 2> /dev/null';
|
|
}
|
|
|
|
my $general_report = {
|
|
title => 'general system info',
|
|
commands => \@general,
|
|
};
|
|
|
|
my $storage_report = {
|
|
title => 'info about storage (lvm and zfs)',
|
|
commands => \@storage,
|
|
};
|
|
|
|
my $volume_report = {
|
|
title => 'info about virtual machines',
|
|
commands => \@machines,
|
|
};
|
|
|
|
my $net_report = {
|
|
title => 'info about network and firewall',
|
|
commands => \@net,
|
|
};
|
|
|
|
my $cluster_report = {
|
|
title => 'info about clustering',
|
|
commands => \@cluster,
|
|
};
|
|
|
|
my $bios_report = {
|
|
title => 'info about bios',
|
|
commands => \@bios,
|
|
};
|
|
|
|
my $disks_report = {
|
|
title => 'info about disks',
|
|
commands => \@disks,
|
|
};
|
|
|
|
my $volumes_report = {
|
|
title => 'info about volumes',
|
|
commands => \@volumes,
|
|
};
|
|
|
|
my @global_report = ($general_report, $storage_report, $volume_report, $net_report,
|
|
$cluster_report, $bios_report, $disks_report, $volumes_report);
|
|
|
|
# output the content of all the files of a directory
|
|
sub dir2text {
|
|
my ($target_dir, $regexp) = @_;
|
|
|
|
PVE::Tools::dir_glob_foreach($target_dir, $regexp, sub {
|
|
my ($file) = @_;
|
|
$report .= "\n# cat $target_dir$file\n";
|
|
$report .= PVE::Tools::file_get_contents($target_dir.$file)."\n";
|
|
});
|
|
}
|
|
|
|
sub generate {
|
|
|
|
my $record_output = sub {
|
|
$report .= shift . "\n";
|
|
};
|
|
|
|
my $run_cmd_params = {
|
|
outfunc => $record_output,
|
|
errfunc => $record_output,
|
|
timeout => $cmd_timeout,
|
|
noerr => 1, # avoid checking programs exit code
|
|
};
|
|
|
|
foreach my $subreport (@global_report) {
|
|
my $title = $subreport->{'title'};
|
|
my @commands = @{$subreport->{'commands'}};
|
|
|
|
$report .= "\n==== $title ====\n";
|
|
foreach my $command (@commands) {
|
|
eval {
|
|
if (ref $command eq 'CODE') {
|
|
PVE::Tools::run_with_timeout($cmd_timeout, $command);
|
|
} else {
|
|
$report .= "\n# $command\n";
|
|
PVE::Tools::run_command($command, %$run_cmd_params);
|
|
}
|
|
};
|
|
$report .= "\nERROR: $@\n" if $@;
|
|
}
|
|
}
|
|
|
|
return $report;
|
|
}
|