Gecko [ 122.154.134.11 ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
backup_config.pl	923 B	-rwxr-xr-x
config	63 B	-rw-r--r--
config.info	109 B	-rw-r--r--
config.info.ca	127 B	-rw-r--r--
config.info.ca.UTF-8	131 B	-rw-r--r--
config.info.cz	121 B	-rw-r--r--
config.info.cz.UTF-8	124 B	-rw-r--r--
config.info.de	119 B	-rw-r--r--
config.info.de.UTF-8	119 B	-rw-r--r--
config.info.es	139 B	-rw-r--r--
config.info.es.UTF-8	139 B	-rw-r--r--
config.info.hu	119 B	-rw-r--r--
config.info.hu.UTF-8	127 B	-rw-r--r--
config.info.ms_MY	111 B	-rw-r--r--
config.info.ms_MY.UTF-8	111 B	-rw-r--r--
config.info.nl	113 B	-rw-r--r--
config.info.nl.UTF-8	113 B	-rw-r--r--
config.info.no	108 B	-rw-r--r--
config.info.no.UTF-8	108 B	-rw-r--r--
config.info.pl	129 B	-rw-r--r--
config.info.pl.UTF-8	133 B	-rw-r--r--
config.info.ru.UTF-8	169 B	-rw-r--r--
config.info.ru_RU	115 B	-rw-r--r--
config.info.ru_RU.UTF-8	169 B	-rw-r--r--
config.info.ru_SU	115 B	-rw-r--r--
config.info.uk_UA	120 B	-rw-r--r--
config.info.uk_UA.UTF-8	169 B	-rw-r--r--
delete.cgi	1.31 KB	-rwxr-xr-x
edit_options.cgi	4.85 KB	-rwxr-xr-x
edit_vgetty.cgi	2.78 KB	-rwxr-xr-x
email.pl	1018 B	-rwxr-xr-x
index.cgi	1.41 KB	-rwxr-xr-x
install_check.pl	387 B	-rwxr-xr-x
list_messages.cgi	2.48 KB	-rwxr-xr-x
list_received.cgi	1.87 KB	-rwxr-xr-x
list_vgetty.cgi	1.18 KB	-rwxr-xr-x
listen.cgi	511 B	-rwxr-xr-x
log_parser.pl	749 B	-rwxr-xr-x
module.info	172 B	-rw-r--r--
module.info.ca	115 B	-rw-r--r--
module.info.ca.UTF-8	128 B	-rw-r--r--
module.info.cz	25 B	-rw-r--r--
module.info.cz.UTF-8	31 B	-rw-r--r--
module.info.de	91 B	-rw-r--r--
module.info.de.UTF-8	103 B	-rw-r--r--
module.info.es	45 B	-rw-r--r--
module.info.es.UTF-8	51 B	-rw-r--r--
module.info.hu	27 B	-rw-r--r--
module.info.hu.UTF-8	34 B	-rw-r--r--
module.info.ms_MY	126 B	-rw-r--r--
module.info.ms_MY.UTF-8	138 B	-rw-r--r--
module.info.nl	25 B	-rw-r--r--
module.info.nl.UTF-8	31 B	-rw-r--r--
module.info.no	25 B	-rw-r--r--
module.info.no.UTF-8	31 B	-rw-r--r--
module.info.pl	31 B	-rw-r--r--
module.info.pl.UTF-8	38 B	-rw-r--r--
module.info.ru.UTF-8	57 B	-rw-r--r--
module.info.ru_RU	34 B	-rw-r--r--
module.info.ru_RU.UTF-8	60 B	-rw-r--r--
module.info.ru_SU	34 B	-rw-r--r--
save_options.cgi	3.9 KB	-rwxr-xr-x
save_vgetty.cgi	3.09 KB	-rwxr-xr-x
upload.cgi	1.78 KB	-rwxr-xr-x
vgetty-lib.pl	4.3 KB	-rwxr-xr-x
vgetty_apply.cgi	228 B	-rwxr-xr-x

Code Editor : save_options.cgi

#!/usr/bin/perl
# save_options.cgi
# Save voicemail server options

require './vgetty-lib.pl';
&ReadParse();
&error_setup($text{'options_err'});
@conf = &get_config();

# Validate inputs
$in{'rings'} =~ /^\d+$/ || &error($text{'options_erings'});
$in{'rings'} >= 2 || &error($text{'options_erings2'});
$ans = &parse_answer_mode("ans");
$in{'maxlen'} =~ /^\d+$/ || &error($text{'options_emaxlen'});
$in{'minlen'} =~ /^\d+$/ || &error($text{'options_eminlen'});
$in{'thresh'} =~ /^\d+$/ || &error($text{'options_ethresh'});
if (!$in{'rgain_def'}) {
	$in{'rgain'} =~ /^\d+$/ || &error($text{'options_ergain'});
	$in{'rgain'} >= 0 && $in{'rgain'} <= 100 ||
		&error($text{'options_ergain2'});
	}
if (!$in{'tgain_def'}) {
	$in{'tgain'} =~ /^\d+$/ || &error($text{'options_etgain'});
	$in{'tgain'} >= 0 && $in{'tgain'} <= 100 ||
		&error($text{'options_etgain2'});
	}
defined(getpwnam($in{'owner'})) || &error($text{'options_eowner'});
defined(getgrnam($in{'group'})) || &error($text{'options_egroup'});
$in{'mode'} =~ /^0[0-7]{3}$/ || &error($text{'options_emode'});
if ($in{'prog_mode'} == 1) {
	$in{'email'} =~ /^\S+$/ || &error($text{'options_eemail'});
	}
elsif ($in{'prog_mode'} == 2) {
	$in{'prog'} =~ /^(\S+)/ && &has_command($1) ||
		&error($text{'options_eprog'});
	}

# Write to config files
&lock_file($config{'vgetty_config'});
$rings = &find_value("rings", \@conf);
if ($in{'rings_port'}) {
	local $tf = $rings =~ /^\// ? $rings : "/etc/rings";
	&open_lock_tempfile(TF, ">$tf");
	&print_tempfile(TF, $in{'rings'},"\n");
	&close_tempfile(TF);
	&save_directive(\@conf, "rings", $tf);
	}
else {
	if ($rings =~ /^\//) {
		&lock_file($rings);
		unlink($rings);
		&unlock_file($rings);
		}
	&save_directive(\@conf, "rings", $in{'rings'});
	}
$ans = &find_value("answer_mode", \@conf);
$mode = &parse_answer_mode("ans");
if ($in{'ans_port'}) {
	local $tf = $ans =~ /^\// ? $ans : "/etc/answer";
	&open_lock_tempfile(TF, ">$tf");
	&print_tempfile(TF, "$mode\n");
	&close_tempfile(TF);
	&save_directive(\@conf, "answer_mode", $tf);
	}
else {
	if ($ans =~ /^\//) {
		&lock_file($ans);
		unlink($ans)
		&unlock_file($ans);
		}
	&save_directive(\@conf, "answer_mode", $mode);
	}

&save_directive(\@conf, "rec_max_len", $in{'maxlen'});
&save_directive(\@conf, "rec_min_len", $in{'minlen'});
&save_directive(\@conf, "rec_remove_silence", $in{'silence'} ? "true" :"false");
&save_directive(\@conf, "rec_silence_threshold", $in{'thresh'});
&save_directive(\@conf, "receive_gain", $in{'rgain_def'} ? -1 : $in{'rgain'});
&save_directive(\@conf, "transmit_gain", $in{'tgain_def'} ? -1 : $in{'tgain'});
&save_directive(\@conf, "rec_always_keep", $in{'keep'} ? "true" : "false");
&save_directive(\@conf, "do_message_light", $in{'light'} ? "true" : "false");
&save_directive(\@conf, "phone_owner", $in{'owner'});
&save_directive(\@conf, "phone_group", $in{'group'});
&save_directive(\@conf, "phone_mode", $in{'mode'});
if ($in{'prog_mode'} == 1) {
	# Need to create the email wrapper script
	local $script = "$module_config_directory/email.pl";
	$perl_path = &get_perl_path();
	&lock_file($script);
	&open_tempfile(SCRIPT, ">$script");
	&print_tempfile(SCRIPT, <<EOF
#!/bin/sh -- # -*- perl -*-
eval 'exec $perl_path -S \$0 \${1+"\$\@"}'
        if \$running_under_some_shell;
open(CONF, "$config_directory/miniserv.conf");
while(<CONF>) {
	\$root = \$1 if (/^root=(.*)/);
	}
close(CONF);
\$ENV{'WEBMIN_CONFIG'} = "$ENV{'WEBMIN_CONFIG'}";
\$ENV{'WEBMIN_VAR'} = "$ENV{'WEBMIN_VAR'}";
chdir("\$root/$module_name");
exec("\$root/$module_name/email.pl", \$ARGV[0]);
EOF
	);
	&close_tempfile(CMD);
	chmod(0755, $script);
	&unlock_file($script);
	&save_directive(\@conf, "message_program", $script);
	$config{'email_to'} = $in{'email'};
	&save_module_config();
	}
elsif ($in{'prog_mode'} == 2) {
	&save_directive(\@conf, "message_program", $in{'prog'});
	}
else {
	&save_directive(\@conf, "message_program", "");
	}
&flush_file_lines();
&unlock_file($config{'vgetty_config'});
&webmin_log("options");
&redirect("");

${this.title}

Code Editor : save_options.cgi