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_editor.cgi

#!/usr/bin/perl
# property_editor.cgi
# Display a list of properties for property group for fmri

require './smf-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'property_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 editor!");
	}
if (defined($in{'sinst'})) {
	$sinst = "$in{'sinst'}";
	$entity = ($sinst eq "service") ? "$svc" : "$svc:$inst";
} else {
	&error("Service/Instance level not specified for property editor!");
	}
if (defined($in{'pgroup'})) {
	$pgroup = $in{'pgroup'};
} else {
	&error("No property group supplied to property editor!");
	}

# deal with add/deletion/update of properties first. this way
# prop list will show changes...
if ((defined($in{'add'})) &&
    (defined($in{'addname'})) &&
    (defined($in{'addtype'})) &&
    (defined($in{'addvalue'}))) {
	$addname = "$in{'addname'}";
	$addtype = "$in{'addtype'}";
	$addvalue = "$in{'addvalue'}";
	if (($addname =~ /.+/) && ($addtype =~ /.+/) && ($addvalue =~ /.+/)) {
		&svc_setprop("$svc", "$sinst", "$pgroup", "$addname",
			"$addtype", "$addvalue");
		}
	}
if (defined($in{'remove'})) {
	# get remove prop list
	@remove_props = split(/\0/, $in{'applyto'});
	foreach $rp (@remove_props) {
		&svc_delprop("$svc", "$sinst", "$pgroup", "$rp");
		}
	}
@prop_listing = &svc_listprop("$svc", "$sinst", $pgroup);

# need prop listing to match against values for update. if we change
# anything, we`ll regenerate the listing...
$regenerate_listing = 0;
if (defined($in{'update'})) {
	# update each prop in listing with new value
	foreach $prop (@prop_listing) {
		$prop_name = $prop->{'prop_name'};
		$prop_type = $prop->{'prop_type'};
		if (defined($in{"$prop_name/$prop_type"})) {
			$prop_value = $in{"$prop_name/$prop_type"};
			&svc_setprop("$svc", "$sinst", "$pgroup", "$prop_name",
				"$prop_type", "$prop_value");
			$regenerate_listing = 1;
			}
		}
	}
if ($regenerate_listing == 1) {
	@prop_listing = &svc_listprop("$svc", "$sinst", $pgroup);
	}

print "<h2>";
&text_and_whats_this("property_editor_detail");
print " : $entity/$pgroup</h2>\n";

print "<form method=\"POST\" action=\"property_editor.cgi?fmri='$fmri'&sinst=$sinst&pgroup=$pgroup\">\n";

# add prop table first...
print "<p><h3>$text{'property_editor_addprop'}</h3>\n";
print "<table><tr>";
print "<td><b>$text{'property_editor_addname'}</b></td>\n";
print "<td><b>$text{'property_editor_addtype'}</b></td>\n";
print "<td><b>$text{'property_editor_addvalue'}</b></td></tr>\n";
print "<tr><td>\n";
print "<input size=30 name=\"addname\" value=\"\">\n";
print "</td><td>\n";
&print_selection("addtype", "", \@propval_type_values);
print "</td><td>\n";
print "<input size=60 name=\"addvalue\" value=\"\">\n";
print "</td></tr>\n";
print "<tr><td>&nbsp;</td><td>&nbsp;</td><td>";
print "<input type=submit name=\"add\" value=\"$text{'property_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_editor_apply'}</b>:&nbsp;";
print "<input type=submit name=\"remove\" onClick=\"return (confirm(\'$text{'property_editor_deleteconfirm'}\'))\" value=\"$text{'property_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_editor_select'}</b></td>\n";
print "<td><b>$text{'property_editor_prop_name'}</b></td>\n";
print "<td><b>$text{'property_editor_prop_type'}</b></td>\n";
print "<td><b>$text{'property_editor_prop_value'}</b></td></tr>\n";

foreach $prop (@prop_listing) {
	print "<tr $cb>";
	$name = $prop->{'prop_name'};
	$type = $prop->{'prop_type'};
	$value = $prop->{'prop_value'};
	print "<td>\n";
	print "<input type=checkbox name=\"applyto\" value=\"$name\">";
	print "</td>\n";
	print "<td>$name</td>\n";
	print "<td>$type</td>\n";
	print
	    "<td><input size=60 name=\"$name/$type\" value=\"$value\"></td>\n";
	print "</tr>\n";
}
print "<tr $cb><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>\n";
print
"<input type=submit name=\"update\" value=\"$text{'property_editor_update'}\">";
print "</td></tr>\n";
print "</table></td></tr></table></form>\n";

&print_cmds_run();

&ui_print_footer("property_group_editor.cgi?fmri='$fmri'",
	$text{'property_editor_back'});

${this.title}

Code Editor : property_editor.cgi