← Back
Editing: property_group_editor.cgi
#!/usr/bin/perl # index.cgi # Display a list of services, built from svcs command require './smf-lib.pl'; &ReadParse(); &ui_print_header(undef, $text{'property_group_editor_title'}, ""); # get instance fmri if (defined($in{'fmri'})) { $fmri = $in{'fmri'}; # remove quotes... $fmri =~ /\'([^\']*)\'/; $fmri = $1; if ($fmri =~ /(svc:\/[^:]*):(.*)/) { $svc = $1; $inst = $2; } else { &error("Invalid fmri: instance must be specified!"); } } else { &error("No fmri supplied to property group editor!"); } # deal with add/deletion of property groups first. this way # pgroup list will show changes... if ((defined($in{'add'})) && (defined($in{'addname'})) && (defined($in{'addtype'})) && (defined($in{'addsinst'}))) { $addname = "$in{'addname'}"; $addtype = "$in{'addtype'}"; $addsinst = "$in{'addsinst'}"; if (($addname =~ /.+/) && ($addtype =~ /.+/) && ($addsinst =~ /.+/)) { &svc_addpg("$svc", "$addsinst", "$addname", "$addtype"); } } if (defined($in{'remove'})) { # get remove pg list @remove_pgs = split(/\0/, $in{'applyto'}); foreach $rpg (@remove_pgs) { # split into service or instance level/name if ($rpg =~ /([^\/]*)\/(.*)/) { $pgsinst = $1; $pgname = $2; &svc_delpg("$svc", "$pgsinst", "$pgname"); } } } @pgroup_listing_svc = &svc_listpg($svc, "service"); @pgroup_listing_inst = &svc_listpg($svc, $inst); @pgroup_listing = (@pgroup_listing_svc, @pgroup_listing_inst); print "<h2>"; &text_and_whats_this("property_group_editor_detail"); print " : $fmri </h2>\n"; print "<form method=\"POST\" action=\"property_group_editor.cgi?fmri='$fmri'\">\n"; # add pg table first... print "<p><h3>$text{'property_group_editor_addpg'}</h3>\n"; print "<table><tr>"; print "<td><b>$text{'property_group_editor_addsinst'}</b></td>\n"; print "<td><b>$text{'property_group_editor_addname'}</b></td>\n"; print "<td><b>$text{'property_group_editor_addtype'}</b></td></tr>\n"; print "<tr><td>\n"; @sinstarray = ("service", "$inst"); &print_selection("addsinst", "service", \@sinstarray); print "</td><td>\n"; print "<input size=30 name=\"addname\" value=\"\">\n"; print "</td><td>\n"; print "<input size=30 name=\"addtype\" value=\"\">\n"; print "</td></tr>\n"; print "<tr><td> </td><td> </td><td>"; print "<input type=submit name=\"add\" value=\"$text{'property_group_editor_add'}\">\n"; print "</td></tr></table></b>\n"; print "<table border width=100%>\n"; print "<tr><td><table width=100%>\n"; print "<tr $cb><td><b>$text{'property_group_editor_apply'}</b>: "; print "<input type=submit name=\"remove\" onClick=\"return (confirm(\'$text{'property_group_editor_deleteconfirm'}\'))\" value=\"$text{'property_group_editor_delete'}\"> \n"; print "</td></tr></table></td></tr>\n"; print "<tr><td><table width=100%>\n"; print "<tr $cb>\n"; print "<td><b>$text{'property_group_editor_select'}</b></td>\n"; print "<td><b>$text{'property_group_editor_sinst'}</b></td>\n"; print "<td><b>$text{'property_group_editor_pgroup_name'}</b></td>\n"; print "<td><b>$text{'property_group_editor_pgroup_type'}</b></td></tr>\n"; foreach $pg (@pgroup_listing) { print "<tr $cb>"; $sinst = $pg->{'sinst'}; $name = $pg->{'pgroup_name'}; $type = $pg->{'pgroup_type'}; print "<td>\n"; print "<input type=checkbox name=\"applyto\" value=\"$sinst/$name\">"; print "</td><td>\n"; print "$sinst</td><td>\n"; # don't allow edit of nonpersistent items! if ($type =~ /NONPERSISTENT/) { print "$name"; } else { $entity = ($sinst eq "service") ? "$svc" : "$fmri"; print "<a href=\"property_editor.cgi?fmri='$fmri'&sinst=$sinst&pgroup=$name\">$name</a>"; } print "</td><td>$type</td>\n"; print "</tr>\n"; } print "</table></td></tr></table></form>\n"; &print_cmds_run(); &ui_print_footer("instance_viewer.cgi?fmri='$fmri'", $text{'property_group_editor_back'});
Save File
Cancel