michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-09-14 09:30:39 +01:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

Start of work on new system info provider

Browse Source
This commit is contained in:
Jamie Cameron
2014-12-07 11:23:10 -08:00
parent 7bb7b9719a
commit 5b9fed246f
1 changed files with 106 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

106
system-status/system_info.pl Normal file
View File

@@ -0,0 +1,106 @@
use strict;
use warnings;
require 'system-status-lib.pl';
our (%text, %gconfig);
# list_system_info(&data, &in)
# Returns general information about the system, such as available disk space
sub list_system_info
{
my $info = &get_collected_info();
my @rv;
my @table;
my $table = { 'type' => 'table',
'desc' => $text{'right_header'},
'table' => \@table };
push(@rv, $table);
# Hostname
my $ip = $info && $info->{'ips'} ? $info->{'ips'}->[0]->[0]
: &to_ipaddress(get_system_hostname());
$ip = " ($ip)" if ($ip);
push(@table, { 'desc' => $text{'right_host'},
'value' => &get_system_hostname().$ip });
# Operating system
push(@table, { 'desc' => $text{'right_os'},
'value' => $gconfig{'os_version'} eq '*' ?
$gconfig{'real_os_type'} :
$gconfig{'real_os_type'}.' '.$gconfig{'real_os_version'}
});
# Webmin version
push(@table, { 'desc' => $text{'right_webmin'},
'value' => &get_webmin_version() });
# System time
my $tm = localtime(time());
if (&foreign_available("time")) {
$tm = &ui_link('/time/', $tm);
}
push(@table, { 'desc' => $text{'right_time'},
'value' => $tm });
# Kernel and architecture
if ($info->{'kernel'}) {
push(@table, { 'desc' => $text{'right_kernel'},
'value' => &text('right_kernelon',
$info->{'kernel'}->{'os'},
$info->{'kernel'}->{'version'},
$info->{'kernel'}->{'arch'}) });
}
# CPU type and cores
if ($info->{'load'}) {
my @c = @{$info->{'load'}};
if (@c > 3) {
push(@table, { 'desc' => $text{'right_cpuinfo'},
'value' => &text('right_cputype', @c) });
}
}
# System uptime
&foreign_require("proc");
my $uptime;
my ($d, $h, $m) = &proc::get_system_uptime();
if ($d) {
$uptime = &text('right_updays', $d, $h, $m);
}
elsif ($m) {
$uptime = &text('right_uphours', $h, $m);
}
elsif ($m) {
$uptime = &text('right_upmins', $m);
}
if ($uptime) {
push(@table, { 'desc' => $text{'right_uptime'},
'value' => $uptime });
}
# Running processes
if (&foreign_check("proc")) {
my @procs = &proc::list_processes();
my $pr = scalar(@procs);
if (&foreign_available("proc")) {
$pr = &ui_link('/proc/', $pr);
}
push(@rv, { 'desc' => $text{'right_procs'},
'value' => $pr });
}
# Load averages
if ($info->{'load'}) {
my @c = @{$info->{'load'}};
if (@c) {
push(@rv, { 'desc' => $text{'right_cpu'},
'value' => &text('right_load', @c) });
}
}
return @rv;
}
1;