mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
20 lines
399 B
Perl
Executable File
20 lines
399 B
Perl
Executable File
# inetd-monitor.pl
|
|
# Monitor inetd on this host
|
|
|
|
sub get_inetd_status
|
|
{
|
|
return { 'up' => -1 } if (!&foreign_check("proc"));
|
|
&foreign_require("proc", "proc-lib.pl");
|
|
local %iconfig = &foreign_config($_[1]);
|
|
return { 'up' => -1 } if (!-r $iconfig{'inetd_conf_file'});
|
|
return { 'up' => &find_named_process('inetd$') ? 1 : 0 };
|
|
}
|
|
|
|
sub parse_inetd_dialog
|
|
{
|
|
&depends_check($_[0], "inetd", "proc");
|
|
}
|
|
|
|
1;
|
|
|