mon/create_watch.cgi

   1 #!/usr/local/bin/perl
   2 # create_watch.cgi
   3 # Add a new watch list for some group
   4
   5 require './mon-lib.pl';
   6 &ReadParse();
   7 $conf = &get_mon_config();
   8
   9 &save_directive($conf, undef, { 'name' => 'watch',
  10                                 'values' => [ $in{'group'} ] });
  11 &flush_file_lines();
  12 &redirect("list_watches.cgi");
  13