#!/usr/local/bin/perl # list_watches.cgi require './mon-lib.pl'; &ui_print_header(undef, $text{'watches_title'}, ""); $conf = &get_mon_config(); @watches = &find("watch", $conf); if (@watches) { print "
$text{'watches_group'} | ", "$text{'watches_services'} |
", "$w->{'values'}->[0] | \n"; local @servs = &find("service", $w->{'members'}); foreach $s (@servs) { local $i = &find_value("interval", $s->{'members'}); print "{'index'}'>$s->{'values'}->[0] ($i)", " | \n"; } print "", "$text{'watches_sadd'} | \n"; print "
\n"; } print "
\n"; &ui_print_footer("", $text{'index_return'});