| Server IP : 195.201.23.43 / Your IP : 3.15.236.40 Web Server : Apache System : Linux webserver2.vercom.be 5.4.0-192-generic #212-Ubuntu SMP Fri Jul 5 09:47:39 UTC 2024 x86_64 User : kdecoratie ( 1041) PHP Version : 7.1.33-63+ubuntu20.04.1+deb.sury.org+1 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/status/ |
Upload File : |
# memory-monitor.pl
# Check the free memory
sub get_memory_status
{
return { 'up' => -1 } if (!&foreign_check("proc"));
&foreign_require("proc", "proc-lib.pl");
local @mem;
eval "\@mem = &proc::get_memory_info()";
if ($@) {
return { 'up' => -1 };
}
elsif ($mem[1] < $_[0]->{'min'}) {
return { 'up' => 0,
'value' => $mem[1]*1024,
'nice_value' => &nice_size($mem[1]*1024),
'desc' => &text('memory_freelow', &nice_size($mem[1]*1024)) };
}
elsif ($mem[2] && $mem[3] < $_[0]->{'minswap'}) {
return { 'up' => 0,
'value' => $mem[3]*1024,
'nice_value' => &nice_size($mem[3]*1024),
'desc' => &text('memory_freelowswap',
&nice_size($mem[3]*1024)) };
}
else {
my @desc = ( &text('memory_free2', &nice_size($mem[1]*1024)) );
if ($mem[2]) {
push(@desc, &text('memory_freeswap', &nice_size($mem[2]*1024)));
}
return { 'up' => 1,
'value' => $mem[1]*1024,
'nice_value' => &nice_size($mem[1]*1024),
'desc' => join(", ", @desc) };
}
}
sub show_memory_dialog
{
print &ui_table_row($text{'memory_min2'},
&ui_bytesbox("min", $_[0]->{'min'}*1024));
print &ui_table_row($text{'memory_minswap'},
&ui_bytesbox("minswap", $_[0]->{'minswap'}*1024));
}
sub parse_memory_dialog
{
&depends_check($_[0], "proc");
&foreign_require("proc", "proc-lib.pl");
defined(&proc::get_memory_info) || &error($text{'memory_eproc'});
$in{'min'} =~ /^[0-9\.]+$/ || &error($text{'memory_emin'});
$_[0]->{'min'} = $in{'min'}*$in{'min_units'}/1024;
$in{'minswap'} =~ /^[0-9\.]+$/ || &error($text{'memory_eminswap'});
$_[0]->{'minswap'} = $in{'minswap'}*$in{'minswap_units'}/1024;
}
Private