Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
config-solaris	20 B	-rw-r--r--
config.info	73 B	-rw-r--r--
config.info.ca	78 B	-rw-r--r--
config.info.ca.UTF-8	80 B	-rw-r--r--
config.info.de	98 B	-rw-r--r--
config.info.de.UTF-8	98 B	-rw-r--r--
config.info.nl	88 B	-rw-r--r--
config.info.nl.UTF-8	88 B	-rw-r--r--
dep_viewer.cgi	3.22 KB	-rwxr-xr-x
dependency_template.xml	140 B	-rw-r--r--
dependent_template.xml	138 B	-rw-r--r--
exec_template.xml	143 B	-rw-r--r--
index.cgi	4.91 KB	-rwxr-xr-x
instance_template.xml	60 B	-rw-r--r--
instance_template_end.xml	12 B	-rw-r--r--
instance_viewer.cgi	1.13 KB	-rwxr-xr-x
log_viewer.cgi	1.27 KB	-rwxr-xr-x
manpage_template.xml	88 B	-rw-r--r--
module.info	201 B	-rw-r--r--
module.info.ca	143 B	-rw-r--r--
module.info.ca.UTF-8	158 B	-rw-r--r--
module.info.nl	51 B	-rw-r--r--
module.info.nl.UTF-8	57 B	-rw-r--r--
path_chooser.cgi	3.27 KB	-rwxr-xr-x
property_editor.cgi	4.42 KB	-rwxr-xr-x
property_group_editor.cgi	3.74 KB	-rwxr-xr-x
property_group_template.xml	74 B	-rw-r--r--
property_group_template_end.xm...	18 B	-rw-r--r--
property_template.xml	67 B	-rw-r--r--
restarter_template.xml	41 B	-rw-r--r--
search_instance.cgi	1.45 KB	-rwxr-xr-x
service_template.xml	225 B	-rw-r--r--
service_template_end.xml	29 B	-rw-r--r--
smf-lib.pl	27.21 KB	-rwxr-xr-x
smfwizard_dependency.cgi	2 KB	-rwxr-xr-x
smfwizard_dependent.cgi	1.97 KB	-rwxr-xr-x
smfwizard_exec.cgi	1.55 KB	-rwxr-xr-x
smfwizard_instance.cgi	764 B	-rwxr-xr-x
smfwizard_manpage.cgi	897 B	-rwxr-xr-x
smfwizard_process_submit.cgi	359 B	-rwxr-xr-x
smfwizard_property.cgi	1.46 KB	-rwxr-xr-x
smfwizard_property_group.cgi	1020 B	-rwxr-xr-x
smfwizard_restarter.cgi	601 B	-rwxr-xr-x
smfwizard_service.cgi	852 B	-rwxr-xr-x
smfwizard_template.cgi	790 B	-rwxr-xr-x
svc_chooser.cgi	4.41 KB	-rwxr-xr-x
svc_chooser_test.cgi	759 B	-rwxr-xr-x
template_template.xml	187 B	-rw-r--r--
template_template_end.xml	28 B	-rw-r--r--
wizard.pl	20.11 KB	-rwxr-xr-x
wizardtest.cgi	767 B	-rwxr-xr-x

Code Editor : 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>&nbsp;</td><td>&nbsp;</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>:&nbsp;";
print "<input type=submit name=\"remove\" onClick=\"return (confirm(\'$text{'property_group_editor_deleteconfirm'}\'))\" value=\"$text{'property_group_editor_delete'}\">&nbsp;\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'});

${this.title}

Code Editor : property_group_editor.cgi