| Server IP : 49.231.201.246 / Your IP : 216.73.216.248 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 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_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/heartbeat/ |
Upload File : |
#!/usr/bin/perl
# edit_res.cgi
#
# extension of edit_res.cgi including display of
# actual resource status and possibility to request
# a resource
#
# Christof Amelunxen, 22.08.2003
#
require './heartbeat-lib.pl';
# if called with parameter getserv this is a get_resource request
ReadParse();
if ($in{getserv} && -f $config{'pid_file'}) {
unless (check_status_resource($in{getserv})) {
get_resource($in{getserv});
# ugly hack to show the changed status immediately
sleep 5;
# redirect to url without appending parameters (to avoid reload button problem)
redirect("$ENV{SCRIPT_NAME}");
exit 0;
}
}
# normal processing starts here
&ui_print_header(undef, $text{'res_title'}, "");
@res = &list_resources();
if (@res) {
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'res_node'}</b></td> ",
"<td><b>$text{'res_ips'}</b></td> ",
"<td><b>$text{'res_servs'}</b></td>\n",
"<td><b>$text{'res_active'}</b></td>\n",
"<td><b>$text{'res_getserv'}</b></td> </tr>\n";
local $i = 0;
foreach $r (@res) {
print "<tr $cb> <td><a href='edit_node.cgi?idx=$i'>",
"$r->{'node'}</a></td>\n";
printf "<td>%s</td>\n",
$r->{'ips'} ? join(" ", @{$r->{'ips'}})
: $text{'res_none'};
printf "<td>%s</td>\n", $r->{'servs'} ?
join(" , ", map { s/::/ /g; $_ } @{$r->{'servs'}})
: $text{'res_none'};
if (check_status_resource(@{$r->{'ips'}})) {
print "<td bgcolor=#00FF00>$text{'res_up'}</td>";
} else {
print "<td bgcolor=#FF0000>$text{'res_down'}</td>";
}
print "<td>";
if ( -f $config{'pid_file'}) {
print "<form action=edit_res.cgi>\n";
print "<input type=hidden name=getserv value=@{$r->{'ips'}}>\n";
print "<input type=submit value='$text{'res_getserv'}'>\n";
print "</form>\n";
} else {
print "$text{res_hbdown}";
}
print "</td></tr>";
$i++;
}
print "</table>\n";
}
else {
print "<b>$text{'res_nores'}</b><p>\n";
}
print &ui_link("edit_node.cgi?new=1", $text{'res_add'}),"<p>\n";
&ui_print_footer("", $text{'index_return'});