PAL.C.T MINI SHELL
#!/usr/bin/perl
# edit_service.cgi
# Display a new or existing service inside a watch
require './mon-lib.pl';
&ReadParse();
$conf = &get_mon_config();
$watch = $conf->[$in{'idx'}];
if ($in{'new'}) {
&ui_print_header(undef, $text{'service_title'}, "");
}
else {
&ui_print_header(undef, $text{'service_title2'}, "");
$service = $watch->{'members'}->[$in{'sidx'}];
}
print "<form action=save_service.cgi method=post>\n";
print "<input type=hidden name=idx value='$in{'idx'}'>\n";
print "<input type=hidden name=sidx value='$in{'sidx'}'>\n";
print "<input type=hidden name=new value='$in{'new'}'>\n";
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'service_header'}</b></td> </tr>\n";
print "<tr $cb> <td><table width=100%>\n";
print "<tr> <td><b>$text{'service_name'}</b></td>\n";
printf "<td><input name=name size=20 value='%s'></td>\n",
$service->{'values'}->[0];
$int = &find_value("interval", $service->{'members'});
print "<td><b>$text{'service_interval'}</b></td>\n";
print "<td>",&interval_input("interval", $int),"</td> </tr>\n";
$desc = &find("description", $service->{'members'});
print "<tr> <td><b>$text{'service_desc'}</b></td>\n";
printf "<td colspan=3><input name=desc size=50 value='%s'></td> </tr>\n",
$desc ? $desc->{'value'} : "";
@mons = &list_monitors();
$monitor = &find("monitor", $service->{'members'}) if (!$in{'new'});
if ($monitor->{'value'} =~ /^(\S+)\s*(.*)$/) {
$mon = $1; $args = $2;
}
$idx = &indexof($mon, @mons);
print "<tr> <td><b>$text{'service_monitor'}</b></td> <td colspan=3>\n";
printf "<input type=radio name=monitor_def value=1 %s> %s\n",
$in{'new'} || $idx >= 0 ? "checked" : "", $text{'service_mon1'};
print "<select name=monitor>\n";
foreach $m (@mons) {
printf "<option %s>%s</option>\n", $m eq $mon ? "selected" : "", $m;
}
print "</select>\n";
printf "<input type=radio name=monitor_def value=0 %s> %s\n",
$in{'new'} || $idx >= 0 ? "" : "checked", $text{'service_mon0'};
printf "<input name=other size=20 value='%s'>\n",
$idx >= 0 ? "" : $mon;
print "</td> </tr>\n";
print "<tr> <td><b>$text{'service_args'}</b></td> <td colspan=3>\n";
print "<input name=args size=50 value='$args'></td> </tr>\n";
$i = 0;
@avail = &list_alerts();
@periods = &find("period", $service->{'members'});
push(@periods, { }) if ($in{'newperiod'} || $in{'new'});
@defperiods = &find("period", $conf);
foreach $p (@periods) {
print "<tr> <td colspan=4><hr></td> </tr>\n";
print "<tr> <td colspan=2><b><i>",&text($p->{'name'} ?
'service_period' : 'service_new', $i+1),"</i></b></td>\n";
print "<td colspan=2 align=right><input type=checkbox name=delete_$i> ",
"$text{'service_delperiod'}</td> </tr>\n";
print "<input type=hidden name=idx_$i value='$p->{'index'}'>\n";
local ($dfrom, $dto, $hfrom, $hto, $known, $name);
if ($p->{'value'} =~ /^\s*wd\s+{(\S+)-(\S+)}\s+hr\s+{(\S+)-(\S+)}\s*$/){
$dfrom = $1; $dto = $2; $hfrom = $3; $hto = $4;
$known = 1;
}
elsif ($p->{'value'} =~ /^\s*wd\s+{(\S+)-(\S+)}\s*$/) {
$dfrom = $1; $dto = $2;
$known = 1;
}
elsif ($p->{'value'} =~ /^\s*hr\s+{(\S+)-(\S+)}\s*$/) {
$hfrom = $1; $hto = $2;
$known = 1;
}
elsif ($p->{'value'} =~ /^\s*(\S+):\s*$/) {
$name = $1;
$known = 2;
}
elsif (!$p->{'value'}) {
$hfrom = $hto = "";
$known = 1;
}
# Specified days and hours
printf "<tr> <td><input type=radio name=known_$i value=1 %s> %s</td>\n",
$known == 1 ? "checked" : "", "<b>$text{'service_known1'}</b>";
print "<td colspan=3><b>$text{'service_days'}</b>\n";
printf "<input type=radio name=days_def_$i value=1 %s> %s\n",
$dfrom ? "" : "checked", $text{'service_all'};
printf "<input type=radio name=days_def_$i value=0 %s>\n",
$dfrom ? "checked" : "";
print &day_input("dfrom_$i", $dfrom)," - ",
&day_input("dto_$i", $dto);
print " \n";
print "<b>$text{'service_hours'}</b>\n";
printf "<input type=radio name=hours_def_$i value=1 %s> %s\n",
$hfrom ? "" : "checked", $text{'service_all'};
printf "<input type=radio name=hours_def_$i value=0 %s>\n",
$hfrom ? "checked" : "";
print "<input name=hfrom_$i size=4 value='$hfrom'> - ",
"<input name=hto_$i size=4 value='$hto'></td> </tr>\n";
# Selected defined period
if (@defperiods || $known == 2) {
printf "<tr> <td><input type=radio name=known_$i value=2 %s> %s</td>\n", $known == 2 ? "checked" : "", "<b>$text{'service_known2'}</b>";
print "<td><select name=name_$i>\n";
foreach $p (@defperiods) {
$p->{'value'} =~ /^(\S+):/;
printf "<option %s>%s</option>\n",
$name eq $1 ? "selected" : "", $1;
}
print "</select></td> </tr>\n";
}
# Any Time::Period string
printf "<tr> <td><input type=radio name=known_$i value=0 %s> %s</td>\n",
$known == 0 ? "checked" : "", "<b>$text{'service_known0'}</b>";
printf "<td colspan=3><input name=pstr_$i size=50 value='%s'></td> </tr>\n", $known == 0 ? $p->{'value'} : "";
print "<tr> <td valign=top><b>$text{'service_alerts'}</b></td>\n";
print "<td colspan=3><table border>\n";
print "<tr $tb> <td><b>$text{'service_alert'}</b></td> ",
"<td><b>$text{'service_atype'}</b></td> ",
"<td><b>$text{'service_aargs'}</b></td> </tr>\n";
local @alerts = ( &find("alert", $p->{'members'}),
&find("upalert", $p->{'members'}),
&find("startupalert", $p->{'members'}) );
local $j = 0;
foreach $a (@alerts, { }) {
print "<tr $cb> <td><select name=alert_${i}_${j}>\n";
local ($found, $al, $ar);
if ($a->{'value'} =~ /^(\S+)\s*(.*)/) {
$al = $1; $ar = $2;
}
printf "<option value='' %s> </option>\n",
$al ? "" : "selected";
foreach $av (@avail) {
printf "<option %s>%s</option>\n",
$al eq $av ? "selected" : "", $av;
$found++ if ($al eq $av);
}
print "<option selected>$al</option>\n" if (!$found && $al);
print "</select></td>\n";
print "<td><select name=atype_${i}_${j}>\n";
foreach $t ('alert', 'upalert', 'startupalert') {
printf "<option value=%s %s>%s</option>\n",
$t, $a->{'name'} eq $t ? "selected" : "",
$text{"service_atype_$t"};
}
print "</select></td>\n";
$ar =~ s/"/"/g;
print "<td><input name=aargs_${i}_${j} size=30 ",
"value='$ar'></td> </tr>\n";
$j++;
}
print "</table></td> </tr>\n";
local $ev = &find_value("alertevery", $p->{'members'});
print "<tr> <td><b>$text{'service_every'}</b></td> <td colspan=3>\n";
printf "<input type=radio name=every_def_$i value=1 %s> %s\n",
$ev ? "" : "checked", $text{'service_every_def'};
printf "<input type=radio name=every_def_$i value=0 %s> %s\n",
$ev ? "checked" : "", $text{'service_every_time'};
print &interval_input("every_$i", $ev),"</td>\n";
local @aa = &find_value("alertafter", $p->{'members'});
print "<tr> <td><b>$text{'service_after'}</b></td> <td colspan=3>\n";
printf "<input type=radio name=after_def_$i value=1 %s> %s\n",
@aa ? "" : "checked", $text{'service_immediate'};
printf "<input type=radio name=after_def_$i value=0 %s>\n",
@aa ? "checked" : "";
print &text('service_after_num',
"<input name=after_$i size=6 value='$aa[0]'>"),"\n";
print " " x 3;
print $text{'service_aftertime'},"\n";
print &interval_input("after_interval_$i", $aa[1]),"</td> </tr>\n";
local $na = &find_value("numalerts", $p->{'members'});
print "<tr> <td><b>$text{'service_num'}</b></td>\n";
printf "<td><input type=radio name=num_def_$i value=1 %s> %s\n",
$na ? "" : "checked", $text{'service_unlimited'};
printf "<input type=radio name=num_def_$i value=0 %s>\n",
$na ? "checked" : "";
print "<input name=num_$i size=6 value='$na'></td> </tr>\n";
$i++;
}
if (!$in{'new'}) {
print "<tr> <td colspan=4><hr></td> </tr>\n";
print "<tr> <td colspan=4 align=right><a href='edit_service.cgi?",
"idx=$in{'idx'}&sidx=$in{'sidx'}&newperiod=1'>",
"$text{'service_newperiod'}</a></td> </tr>\n";
}
print "</table></td></tr></table>\n";
print "<table width=100%><tr>\n";
if ($in{'new'}) {
print "<td><input type=submit value='$text{'create'}'></td>\n";
}
else {
print "<td><input type=submit value='$text{'save'}'></td>\n";
print "<td align=right><input type=submit name=delete ",
"value='$text{'delete'}'></td>\n";
}
print "</tr></table></form>\n";
&ui_print_footer("list_watches.cgi", $text{'watches_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`