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 : svc_chooser.cgi

#!/usr/bin/perl
# chooser.cgi
# Outputs HTML for a frame-based svc chooser

require './smf-lib.pl';

&init_config();
&ReadParse();

# type specifies svc, inst or both
$type = "both";
if (defined($in{'type'})) {
	$type = $in{'type'};
	}
if ((defined($in{'add'})) && ($in{'add'})) {
	# Only use last fmri by default
	$in{'fmri'} =~ s/\s+$//;
	if ($in{'fmri'} =~ /\n(.*)$/) {
		$in{'fmri'} = $1;
		}
	}
$fmri = $in{'fmri'};
if ($fmri =~ /^svc\:\/([^\:]*)\:*(.*)$/) {
	# fmri entered is valid
	$svc = $1;
	$inst = $2;
	}
else {
	$fmri = "svc:/";
	$svc = "";
	$inst = "";
	}
$add = int($in{'add'});

$frame = $in{'frame'};
if ($frame eq "" ) {
	$frame = 0;
}

if ($in{'frame'} == 0) {
	# base frame
	&PrintHeader();
	if ($in{'type'} eq "svc")
		{ print "<title>$text{'svc_chooser_titlesvc'}</title>\n"; }
	elsif ($in{'type'} eq "inst")
		{ print "<title>$text{'svc_chooser_titleinst'}</title>\n";}
	else
		{ print "<title>$text{'svc_chooser_titleboth'}</title>\n";}

print "<frameset rows='*,50'>\n";
	print "<frame marginwidth=10 marginheight=10 name=topframe ",
	    "src=\"$gconfig{'webprefix'}/svc_chooser.cgi?frame=1&fmri=$fmri&add=$add&type=$type\">\n";
	print "<frame marginwidth=10 marginheight=10 name=bottomframe ",
	    "src=\"$gconfig{'webprefix'}/svc_chooser.cgi?frame=2&add=$add&fmri=$fmri&type=$type\" ",
	    "scrolling=no>\n";
	print "</frameset>\n";
	}
elsif ($in{'frame'} == 1) {
	# List of svcs
	&header();
	print <<EOF;
<script>
function svcclick(fmri, inst, expand, isvalid)
{
if ((inst == "") || (inst == ":")) {
	selected_fmri = fmri;
	}
else {
	selected_fmri = fmri+inst;
	}
curr = top.bottomframe.document.forms[0].fmri.value;
if (isvalid ==1) {
	top.bottomframe.document.forms[0].fmri.value = selected_fmri;
	}
if (expand == 1) {
	location ="svc_chooser.cgi?frame=1&add=$add&type=$type&fmri="+fmri+inst;
	}
}

</script>
EOF
	print "<b>", &text('svc_chooser_fmri', $fmri),"</b>\n";
	print "<table>\n";
	# filter fmris via fmri var
	@list = &svcs_listing("$fmri", "-sFMRI");
	foreach $f_hash (@list) {
		$full_fmri = $f_hash->{"FMRI"};
		if ($full_fmri =~ /^$fmri([^\/:]+[\/\:]*).*$/) {
			$elt = "$1";
			# check if its an instance, if so add colon
			if ($fmri =~ /.*\:$/) {
				$elt = ":$elt";
				}
			push(@flist, "$elt");
			}
		}
	@fmris = &unique(@flist);
	$uplevel = $fmri;
	if ($uplevel =~ /^svc\:\/.+$/) {
		$uplevel =~ /^svc\:\/(([^\/\:]+[\:\/])*)[^\/\:]+[\/]*[\:]*$/;
		$uplevel = "svc:/$1";
		unshift(@fmris, $uplevel);
		}
	foreach $f (@fmris) {
		print "<tr>\n";
		# determine img type
		if ($f eq $uplevel) {
			$img = "images/uplevel.gif";
			$link =
		  "<a href='javascript:svcclick(\"$uplevel\",\"\",1,0)'>";
		} elsif ($f =~ /^.*\/$/) {
			$img = "images/nextlevel.gif";
			$link =
		  "<a href='javascript:svcclick(\"$fmri$f\",\"\",1,0)'>";
		} elsif ($f =~ /^\:.*/) {
			# at instance level...
			# remove leading ":"
			$f =~ s/^\:(\S+)$/$1/;
			$img = "images/instance.gif";
			$link =
		  "<a href='javascript:svcclick(\"$fmri\",\"$f\",0,1)'>";
		} else {
			# service
			$img = "images/service.gif";
			# remove final ":" if present
			$f =~ s/^([^\:]+)\:$/$1/;
			$inst = ":";
			if ($type eq "svc") {
				# cannot click to instance level!
				# remove final ":" if present
				$isvalid = 1;
				$expand = 0;
			} elsif ($type eq "inst") {
				# cannot select svc...
				$isvalid = 0;
				$expand = 1;
			} else {
				# both valid
				$isvalid = 1;
				$expand = 1;
				}
			$link =
  "<a href='javascript:svcclick(\"$fmri$f\",\"$inst\",$expand,$isvalid)'>";
			}
		print
	"<td>$link<img border=0 width=30 height=30 src=$img></a></td>\n";
		print "<td>$link$f</a></td>\n";
		print "</tr>\n";
		}
	print "</table></td></tr></table>\n";
	&footer();
	}
elsif ($in{'frame'} == 2) {
	# Current fmri and OK/cancel buttons
	&header();
	print <<EOF;
<script>
function fmrichosen()
{
if ($add == 0) {
	top.opener.ifield.value = document.forms[0].fmri.value;
	}
else {
	if (top.opener.ifield.value != "") {
		top.opener.ifield.value += " ";
		}
	top.opener.ifield.value += document.forms[0].fmri.value;
	}
top.close();
}
</script>
EOF
	print "<table width=100%><tr><td>\n";
	print "<form onSubmit='fmrichosen(); return false'>\n";
	print
	 "<input name=fmri size=45 value=\"\">\n";
	print
	 "<input type=\"submit\" value=\"$text{'svc_chooser_ok'}\">\n";
	print "</form>\n";
	print "</td><td>\n";
	print "<form>";
	print
"<input type=\"button\" onClick='top.close()' value=\"$text{'svc_chooser_cancel'}\">";
	print "</form>";
	print "</td></tr></table></form>\n";
	&footer();
	}

${this.title}

Code Editor : svc_chooser.cgi