Gecko [ 167.86.127.34 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	1.8 KB	-rw-r--r--
acl_security.pl	869 B	-rwxr-xr-x
atboot.pl	5.66 KB	-rwxr-xr-x
backup_config.pl	975 B	-rwxr-xr-x
cgi_args.pl	668 B	-rwxr-xr-x
change_rl.cgi	486 B	-rwxr-xr-x
config-aix	204 B	-rw-r--r--
config-cobalt-linux-2.2-4.0	242 B	-rw-r--r--
config-cobalt-linux-5.0-ALL	257 B	-rw-r--r--
config-coherent-linux	277 B	-rw-r--r--
config-corel-linux	179 B	-rw-r--r--
config-debian-linux	195 B	-rw-r--r--
config-freebsd	154 B	-rw-r--r--
config-freebsd-5.0-ALL	251 B	-rw-r--r--
config-generic-linux	238 B	-rw-r--r--
config-gentoo-linux	166 B	-rw-r--r--
config-hpux	233 B	-rw-r--r--
config-irix	186 B	-rw-r--r--
config-macos	267 B	-rw-r--r--
config-mandrake-linux	277 B	-rw-r--r--
config-msc-linux	272 B	-rw-r--r--
config-netbsd	106 B	-rw-r--r--
config-open-linux	208 B	-rw-r--r--
config-openSUSE-Linux-15.0-ALL	236 B	-rw-r--r--
config-openbsd	106 B	-rw-r--r--
config-openmamba-linux	277 B	-rw-r--r--
config-openserver	208 B	-rw-r--r--
config-osf1	214 B	-rw-r--r--
config-pardus-linux	238 B	-rw-r--r--
config-redhat-linux	277 B	-rw-r--r--
config-slackware-linux	129 B	-rw-r--r--
config-solaris	195 B	-rw-r--r--
config-solaris-10-ALL	225 B	-rw-r--r--
config-suse-linux	187 B	-rw-r--r--
config-suse-linux-7.1-ALL	236 B	-rw-r--r--
config-syno-linux	247 B	-rw-r--r--
config-trustix-linux	262 B	-rw-r--r--
config-turbo-linux	257 B	-rw-r--r--
config-united-linux	197 B	-rw-r--r--
config-unixware	178 B	-rw-r--r--
config-windows	115 B	-rw-r--r--
config.info	1.31 KB	-rw-r--r--
config.info.ca	1.54 KB	-rw-r--r--
config.info.cs	1.27 KB	-rw-r--r--
config.info.de	1.46 KB	-rw-r--r--
config.info.es	1.31 KB	-rw-r--r--
config.info.eu	1.35 KB	-rw-r--r--
config.info.fa	1.78 KB	-rw-r--r--
config.info.fr	1.18 KB	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.ja	1.57 KB	-rw-r--r--
config.info.ko	1.19 KB	-rw-r--r--
config.info.nl	1.25 KB	-rw-r--r--
config.info.no	1.41 KB	-rw-r--r--
config.info.pl	1.22 KB	-rw-r--r--
config.info.ru	2.05 KB	-rw-r--r--
config.info.sk	0 B	-rw-r--r--
config.info.sv	549 B	-rw-r--r--
config.info.tr	515 B	-rw-r--r--
config.info.uk	1.45 KB	-rw-r--r--
config.info.zh	388 B	-rw-r--r--
config.info.zh_TW	727 B	-rw-r--r--
create-boot.pl	424 B	-rwxr-xr-x
defaultacl	40 B	-rw-r--r--
delboot.pl	688 B	-rwxr-xr-x
delete-boot.pl	379 B	-rwxr-xr-x
delete_action.cgi	907 B	-rwxr-xr-x
edit_action.cgi	5.12 KB	-rwxr-xr-x
edit_hostconfig.cgi	6.2 KB	-rwxr-xr-x
edit_launchd.cgi	2.05 KB	-rwxr-xr-x
edit_rc.cgi	1.84 KB	-rwxr-xr-x
edit_systemd.cgi	2.4 KB	-rwxr-xr-x
edit_upstart.cgi	2.3 KB	-rwxr-xr-x
fix_action.cgi	600 B	-rwxr-xr-x
hostconfig-lib.pl	8.53 KB	-rwxr-xr-x
index.cgi	13.7 KB	-rwxr-xr-x
init-lib.pl	68 KB	-rw-r--r--
log_parser.pl	1.37 KB	-rwxr-xr-x
mass_launchd.cgi	1.94 KB	-rwxr-xr-x
mass_rcs.cgi	1.54 KB	-rwxr-xr-x
mass_start_stop.cgi	2.81 KB	-rwxr-xr-x
mass_systemd.cgi	2.68 KB	-rwxr-xr-x
mass_upstarts.cgi	1.94 KB	-rwxr-xr-x
modifyhostconfig.cgi	1.07 KB	-rwxr-xr-x
module.info	305 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	156 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	207 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	246 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	253 B	-rw-r--r--
module.info.ca	0 B	-rw-r--r--
module.info.ca.auto	174 B	-rw-r--r--
module.info.cs	0 B	-rw-r--r--
module.info.cs.auto	168 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	150 B	-rw-r--r--
module.info.de	0 B	-rw-r--r--
module.info.de.auto	148 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	277 B	-rw-r--r--
module.info.es	0 B	-rw-r--r--
module.info.es.auto	173 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	142 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	201 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	177 B	-rw-r--r--
module.info.fr	0 B	-rw-r--r--
module.info.fr.auto	169 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	171 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	158 B	-rw-r--r--
module.info.hu	0 B	-rw-r--r--
module.info.hu.auto	184 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	139 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	202 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	156 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	172 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	177 B	-rw-r--r--
module.info.ms	0 B	-rw-r--r--
module.info.ms.auto	142 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	141 B	-rw-r--r--
module.info.nl	0 B	-rw-r--r--
module.info.nl.auto	160 B	-rw-r--r--
module.info.no	0 B	-rw-r--r--
module.info.no.auto	148 B	-rw-r--r--
module.info.pl	0 B	-rw-r--r--
module.info.pl.auto	163 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	199 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	208 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	176 B	-rw-r--r--
module.info.ru	0 B	-rw-r--r--
module.info.ru.auto	249 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	172 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	158 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	154 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	270 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	218 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	283 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	200 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	195 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	140 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	149 B	-rw-r--r--
prefs.info	55 B	-rw-r--r--
rbac-mapping	80 B	-rw-r--r--
reboot.cgi	725 B	-rwxr-xr-x
save_action.cgi	6.37 KB	-rwxr-xr-x
save_hostconfig_action.cgi	4.63 KB	-rwxr-xr-x
save_launchd.cgi	1.72 KB	-rwxr-xr-x
save_local.cgi	706 B	-rwxr-xr-x
save_rc.cgi	2.48 KB	-rwxr-xr-x
save_services.cgi	1.44 KB	-rwxr-xr-x
save_startscript.cgi	1.9 KB	-rwxr-xr-x
save_systemd.cgi	2.03 KB	-rwxr-xr-x
save_upstart.cgi	2.15 KB	-rwxr-xr-x
shutdown.cgi	591 B	-rwxr-xr-x
start_stop.cgi	890 B	-rwxr-xr-x
syslog_logs.pl	350 B	-rwxr-xr-x
uninstall.pl	1.91 KB	-rwxr-xr-x
updateboot.pl	936 B	-rwxr-xr-x
win32.pl	1.93 KB	-rwxr-xr-x

Code Editor : hostconfig-lib.pl

#!/usr/bin/perl
# hostconfig-lib.pl

# These are functions specific to the hostconfig file
# used by darwin

# written by Michael A. Peters <mpeters@mac.com>

sub hostconfig_settings
{
####
#
# This subroutine reads the hostconfig file into an array
# and outputs a second array containing matched pairs of
# the startup action and what the startup action is set to
#
####
local($conffile, @hconf);
$conffile = "$config{'hostconfig'}";
open(LOCAL, "<".$conffile);
@conf = <LOCAL>;
close(LOCAL);
@conf = grep /^\w/, @conf;
while (<@conf>) {
	push @hconf, [ split /=/ ];
	}
return @hconf;
}

sub hostconfig_gather
{
####
#
# Gathers information about an action item that is set in the hostconfig
# file.
#
# It takes one arguement- the type of info wanted (description or 
# scriptname)
#
# It outputs a hash where the action item is the key, and what was 
# requested is the value.
#
# Thus, we can use the hash to find out what startup script is 
# associated with the MAILSERVER action or what description goes with 
# that action.
#
# Originally I wanted to output an array with two elements where the 
# first was one type of hash, and the second element was the second type # of hash, but I couldn't get that to work (array of hashes)
#
####
local ($hash_type, @startupdir, $plist, @action_to_description, @action_to_script, @sec_action_to_description, @sec_action_to_script, $element, @ls, @script, $a, $action_name, @param, $description);

my($hash_type) = @_;
@startupdir = ();
@startupdir = split (/:/, $config{'startup_dirs'});
$plist = $config{'plist'};
@action_to_description = ();
@action_to_script = ();
@sec_action_to_description = ();
@sec_action_to_script = ();

foreach $element (@startupdir) {
	if ( -d "$element" ) {
		opendir (LOCAL, $element);
		@ls = readdir LOCAL;
		closedir LOCAL;
		shift @ls; shift @ls;
		foreach $a (@ls) {
			#we need BOTH an executable and a plist- or its useless.
			#executable script has to be in a directory of the same
			#name for some reason
			if (( -x "$element/$a/$a") && ( -e "$element/$a/$plist")) {
				#Get the startup action associated with script
				open (SCRIPT, "$element/$a/$a");
				@script = <SCRIPT>;
				close SCRIPT;
				@script = grep /:=/, @script;
				#  we are looking at a line in the script that looks like:
				#if [ "${WEBMIN:=-NO-}" = "-YES-" ]; then
				#  and we want to extract the WEBMIN part as the action_name
				if ( $script[0] =~ /\$\{(.*):/ ) {
					$action_name = $1;
					}
				else {
					#shouldn't happen
					$action_name = "";
					}
				open (PLIST, "$element/$a/$plist");
				@param = <PLIST>;
				close PLIST;
				@param = grep /Description[ \t]*=/, @param;
				#  we are looking at a line in the plist that looks like:
				#\t\tDescription\t\t= "Webmin System Administration Daemon";
				#  and we want to extract the contents of the quotes
				if ( $param[0] =~ /\"(.*)\"/ ) {
					$description = $1;
					}
				else {
					$description = "";
					}
				# make the primary hash
				if ( $action_name ne "" ) {
					$action_to_description{$action_name} = "$description";
					$action_to_script{$action_name} = "$element/$a/$a";
					}
				# make the secondary hash
				shift @script;
				if ( $script[0] ne "" ) {
					foreach $secondary (@script) {
						if ( $secondary =~ /\$\{(.*):/ ) {
							$action_name = $1;
							$sec_action_to_description{$action_name} = "$description";
							$sec_action_to_script{$action_name} = "$element/$a/$a";
							}
						}
					}
				} #ends the: if (( -x "$element/$a/$a") && ( -e "$element/$a/$plist")
			} #ends the: foreach $a (@ls)
		} #ends the: if ( -d "$element" )
	} #ends the: foreach $element (@startupdir)
	
# now we have two sets of each hash
# elements in sec_blah that are not already in blah
# need to be integrated into blah
#
# We have to do this because some scripts use several action_name just 
# for that particular script, and sometimes what one action is set to is 
# used in how another script acts even though that is not the action for # that script.
#
# Thus, if a action_item is in the secondary array and is not in the
# primary, we know that it is a case where more than one action belongs
# to a script- but if its in both, the action probably belongs to the
# script in the primary.

while (($key,$value) = each %action_to_description) {
	$sec_action_to_description{$key} = "$value";
	}
while (($key,$value) = each %action_to_script) {
	$sec_action_to_script{$key} = "$value";
	}
	
if ( $hash_type eq "description" ) {
	return %sec_action_to_description;
	}
elsif ( $hash_type eq "startscript" ) {
	return %sec_action_to_script;
	}

}

sub hostconfig_table
{
####
#
# This sub writes a table row in html for index.cgi.
# It takes the startup action, setting, and provides
# as its arguements- and outputs a string.
#
####
local($ahref, $setting, $link, $description);
my($ahref, $setting, $description) = @_;
local @cols;
if ($access{'bootup'} == 1) {
	push(@cols, &ui_link("edit_hostconfig.cgi?0+$ahref", $ahref) );
	}
else {
	push(@cols, $ahref);
	}
if ( $setting eq "-NO-" ) {
	push(@cols, "<font color=#ff0000>$setting</font>");
	}
elsif ( $setting ne "" ) {
	push(@cols, $setting);
	}
else {
	push(@cols, "");
	}
push(@cols, $description);
if ( $ahref ne "" ) {
	return &ui_columns_row(\@cols);
	}
else {
	return "";
	}
}

sub hostconfig_editaction
{
####
#
# This sub takes either one or two arguements- the first (action name)
# is required, the second is the StartupItems script affected by
# the setting of the action. 
#
# If there is no script, the current setting is used as the default in
# a text field for editing.
#
# If there is a script, but the setting is something like automatic in 
# the Network script where there isn't an alternative, then radio button # choice between the defined setting and a custom one is offered.
#
# If, as is the case with most scripts, there is a -NO- and -YES- 
# option, then those two choices are offered as a radio button option 
# and a text box option just in case a custom answer is needed.
#
# Returns a string
#
####
local(@sconf, @sfile, @possible_settings, $current, $setting, $line, $option_selected, $buttons, $pre);
my($action_item, $startupfile) = @_;

# get current setting
$line = "$config{'hostconfig'}";
open(HCONF, "<".$line);
@sconf = <HCONF>;
close(HCONF);
@sconf = grep /^$action_item=/, @sconf;
($dontcare, $current) = split(/=/, $sconf[0]);
if ( $current eq "" ) {
	$current = "udefined";
	}
#get rid of quotes
$current =~ s/\"//g;
$current =~ s/\n//;

@possible_settings = ();
$option_selected = "";
$buttons = "";
$option_selected = "";

# get possible settings
if ( $startupfile ne "" ) {
	open(LOCAL, "<".$startupfile);
	@sfile = <LOCAL>;
	close(LOCAL);
	#
	# I really need to write a parser to get
	# this done- so that I can deal with
	# case options.
	#
	# But this is better than nothing...
	#
	@sfile = grep /\{$action_item:=/, @sfile;
	for $element (@sfile) {
		# We are looking at a line that looks like
		#if [ "${WEBMIN:=-NO-}" = "-YES-" ]; then
		# We want the -NO- and -YES-
		if ( $element =~ /\"\$\{$action_item:=(.*)\}\"[ \t]*=[ \t]*\"(.*)\"/ ) {
			push @possible_settings, ($1, $2);
			}
		}
	# get rid of duplicate entries
	%unique = map { $_ => 1 } @possible_settings;
	@possible_settings = keys %unique;
	} # end of :if ( $startupfile ne "" )
	
if ( $possible_settings[0] eq "" ) {
	$buttons = "<input type=text name=choice value=\"$current\">";
	}
else {
	foreach $setting (@possible_settings) {
		if ( $setting ne $current ) {
			if ( $buttons eq "" ) {
				$pre = "";
				}
			else {
				$pre = "$buttons<br>\n";
				}
			$buttons = "$pre<input type=radio name=choice value=\"$setting\">$setting";
			}
		else {
			$option_selected = "yes";
			if ( $buttons eq "" ) {
				$pre = "";
				}
			else {
				$pre = "$buttons<br>\n";
				}
			$buttons = "$pre<input type=radio name=choice value=\"$setting\" checked>$setting";
			}
		} #end foreach
	# add custom text option
	if ( $option_selected eq "yes" ) {
		$buttons = "$buttons<br>\n<input type=radio name=choice value=custom> <input type=text name=custom size=60 value=\"\">";
		}
	else {
		$buttons = "$buttons<br>\n<input type=radio name=choice value=custom checked> <input type=text name=custom size=60 value=\"$current\">";
		}
	}
# add hidden value
$buttons = "$buttons\n<input type=hidden name=action value=$action_item>\n";
	
return $buttons;

}

sub hostconfig_createtext
{
# simply outputs the text in the create new action table
my($text_line,$required_field) = @_;
if ( $required_field ne "" ) {
	$output="<td><font size=-1 color=#ff0000>*</font><b>$text_line</b></td>\n";
	}
else {
	$output="<td><b>$text_line</b></td>\n";
	}
return $output;
}
1;

${this.title}

Code Editor : hostconfig-lib.pl