#!/usr/local/bin/perl # edit_watch.cgi # Display a new or existing watch require './mon-lib.pl'; &ReadParse(); $conf = &get_mon_config(); $watch = $conf->[$in{'idx'}]; &ui_print_header(undef, $text{'watch_title'}, ""); print "
\n"; print "\n"; print "\n"; print "\n"; print "
$text{'watch_header'}
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
$text{'watch_group'}
$text{'watch_services'} \n"; print " ", " ", " ", "\n"; foreach $s (&find("service", $watch->{'members'})) { print "\n"; print "\n"; local $mon = &find_value("monitor", $s->{'members'}); print "\n"; local $int = &find_value("interval", $s->{'members'}); print "\n"; local @pers = &find("period", $s->{'members'}); local $pers = join(" , ", map { $_->{'value'} } @pers); print "\n"; print "\n"; } print "
$text{'watch_service'}$text{'watch_monitor'}$text{'watch_interval'}$text{'watch_periods'}
{'index'}'>$s->{'value'}$mon$int$pers
\n"; print "", "$text{'watches_sadd'}\n"; print "
\n"; print "\n"; if ($in{'new'}) { print "\n"; } else { print "\n"; print "\n"; } print "
\n"; &ui_print_footer("list_watches.cgi", $text{'watches_return'});