mon/save_service.cgi

   1 #!/usr/local/bin/perl
   2 # save_service.cgi
   3 # Save, create or delete a service
   4
   5 require './mon-lib.pl';
   6 &ReadParse();
   7 $conf = &get_mon_config();
   8 $watch = $conf->[$in{'idx'}];
   9 if ($in{'sidx'} ne '') {
  10         $oldservice = $service = $watch->{'members'}->[$in{'sidx'}];
  11         }
  12 else {
  13         $service = { 'name' => 'service',
  14                      'indent' => '    ',
  15                      'members' => [ ] };
  16         }
  17 &error_setup($text{'service_err'});
  18
  19 if ($in{'delete'}) {
  20         # Delete this service from the watch
  21         &save_directive($watch->{'members'}, $service, undef);
  22         }
  23 else {
  24         # Validate and store service inputs
  25         $in{'name'} =~ /^\S+$/ || &error($text{'service_ename'});
  26         $service->{'values'} = [ $in{'name'} ];
  27         $in{'interval'} =~ /^\d+$/ || &error($text{'service_einterval'});
  28
  29         # Save the description
  30         if ($in{'desc'}) {
  31                 &set_directive($service->{'members'}, "description",
  32                                $in{'desc'});
  33                 }
  34         else {
  35                 &set_directive($service->{'members'}, "description");
  36                 }
  37
  38         &set_directive($service->{'members'}, "interval",
  39                        $in{'interval'}.$in{'interval_u'});
  40         if ($in{'monitor_def'}) {
  41                 &set_directive($service->{'members'}, "monitor",
  42                                $in{'monitor'}.' '.$in{'args'});
  43                 }
  44         else {
  45                 $in{'other'} =~ /^\S+$/ || &error($text{'service_eother'});
  46                 &set_directive($service->{'members'}, "monitor",
  47                                $in{'other'}.' '.$in{'args'});
  48                 }
  49
  50         # Validate and store each period
  51         for($i=0; defined($in{"idx_$i"}); $i++) {
  52                 # Save period time
  53                 next if ($in{"delete_$i"});
  54                 local $period;
  55                 if (!$in{'new'} && $in{"idx_$i"} ne '') {
  56                         $period = $service->{'members'}->[$in{"idx_$i"}];
  57                         }
  58                 else {
  59                         $period = { 'name' => 'period',
  60                                     'members' => [ ] };
  61                         }
  62                 if ($in{"known_$i"} == 0) {
  63                         $in{"pstr_$i"} =~ /\S/ ||
  64                                 &error($text{'service_epstr'});
  65                         $period->{'values'} = [ $in{"pstr_$i"} ];
  66                         }
  67                 elsif ($in{"known_$i"} == 2) {
  68                         $period->{'values'} = [ $in{"name_$i"}.":" ];
  69                         }
  70                 else {
  71                         local @pv;
  72                         if (!$in{"days_def_$i"}) {
  73                                 push(@pv, "wd {".$in{"dfrom_$i"}."-".
  74                                           $in{"dto_$i"}."}");
  75                                 }
  76                         if (!$in{"hours_def_$i"}) {
  77                                 $in{"hfrom_$i"} =~ /^(\d+)(am|pm|)$/ ||
  78                                         &error(&text('service_ehour', $i+1));
  79                                 $in{"hto_$i"} =~ /^(\d+)(am|pm|)$/ ||
  80                                         &error(&text('service_ehour', $i+1));
  81                                 push(@pv, "hr {".$in{"hfrom_$i"}."-".
  82                                           $in{"hto_$i"}."}");
  83                                 }
  84                         #@pv || &error(&text('service_eperiod', $i+1));
  85                         $period->{'values'} = \@pv;
  86                         }
  87
  88                 # Save alerts
  89                 local (@alert, @upalert, @startupalert);
  90                 for($j=0; defined($in{"alert_${i}_${j}"}); $j++) {
  91                         next if (!$in{"alert_${i}_${j}"});
  92                         local @v = ( $in{"alert_${i}_${j}"},
  93                                      $in{"aargs_${i}_${j}"} );
  94                         if ($in{"atype_${i}_${j}"} eq 'alert') {
  95                                 push(@alert, { 'name' => 'alert',
  96                                                'values' => \@v });
  97                                 }
  98                         elsif ($in{"atype_${i}_${j}"} eq 'upalert') {
  99                                 push(@upalert, { 'name' => 'upalert',
 100                                                  'values' => \@v });
 101                                 }
 102                         else {
 103                                 push(@startupalert, { 'name' => 'startupalert',
 104                                                       'values' => \@v });
 105                                 }
 106                         }
 107                 &set_directive($period->{'members'}, "alert", @alert);
 108                 &set_directive($period->{'members'}, "upalert", @upalert);
 109                 &set_directive($period->{'members'}, "startupalert",
 110                                                      @startupalert);
 111
 112                 # Save other period options
 113                 if ($in{"every_def_$i"}) {
 114                         &set_directive($period->{'members'}, "alertevery");
 115                         }
 116                 else {
 117                         $in{"every_$i"} =~ /^\d+$/ ||
 118                                 &error($text{'service_eevery'});
 119                         &set_directive($period->{'members'}, "alertevery",
 120                                        $in{"every_$i"}.$in{"every_${i}_u"});
 121                         }
 122
 123                 if ($in{"after_def_$i"}) {
 124                         &set_directive($period->{'members'}, "alertafter");
 125                         }
 126                 else {
 127                         $in{"after_$i"} =~ /^\d+$/ ||
 128                                 &error($text{'service_eafter'});
 129                         if ($in{"after_interval_$i"} =~ /^\d+$/) {
 130                                 &set_directive($period->{'members'},
 131                                         "alertafter", $in{"after_$i"}." ".
 132                                         $in{"after_interval_$i"}.
 133                                         $in{"after_interval_${i}_u"});
 134                                 }
 135                         }
 136
 137                 if ($in{"num_def_$i"}) {
 138                         &set_directive($period->{'members'}, "numalerts");
 139                         }
 140                 else {
 141                         $in{"num_$i"} =~ /^\d+$/ ||
 142                                 &error($text{'service_enum'});
 143                         &set_directive($period->{'members'}, "numalerts",
 144                                        $in{"num_$i"});
 145                         }
 146
 147                 push(@period, $period);
 148                 }
 149         &set_directive($service->{'members'}, "period", @period);
 150
 151         # Store the service in the config file
 152         &save_directive($watch->{'members'}, $oldservice, $service);
 153         }
 154 &flush_file_lines();
 155 &redirect("list_watches.cgi");
 156
 157 # set_directive(&config, name, value, value, ..)
 158 sub set_directive
 159 {
 160 local @o = &find($_[1], $_[0]);
 161 local @n = @_[2 .. @_-1];
 162 local $i;
 163 for($i=0; $i<@o || $i<@n; $i++) {
 164         local $idx = &indexof($o[$i], @{$_[0]}) if ($o[$i]);
 165         local $nv = ref($n[$i]) ? $n[$i] : { 'name' => $_[1],
 166                                              'values' => [ $n[$i] ] }
 167                                                 if (defined($n[$i]));
 168         if ($o[$i] && defined($n[$i])) {
 169                 $_[0]->[$idx] = $nv;
 170                 }
 171         elsif ($o[$i]) {
 172                 splice(@{$_[0]}, $idx, 1);
 173                 }
 174         else {
 175                 push(@{$_[0]}, $nv);
 176                 }
 177         }
 178 }
 179