|
|
|
@ -227,7 +227,7 @@ sub validate_language()
|
|
|
|
|
{
|
|
|
|
|
my $language = shift;
|
|
|
|
|
# check for non-alphanumeric character
|
|
|
|
|
return 0 if ($language = ~/\W/);
|
|
|
|
|
return 0 if ($language =~ /\W/);
|
|
|
|
|
return 0 if ( ! -e "$LANGUAGE_DIR/$language" . '.hdf');
|
|
|
|
|
return 1;
|
|
|
|
|
}
|
|
|
|
@ -385,15 +385,15 @@ if ( ! &check_ssl()) {
|
|
|
|
|
$pagedata->setValue('Data.Warning', 'NotConfigured');
|
|
|
|
|
$pagedata->setValue('Data.Action', 'init_form');
|
|
|
|
|
} else {
|
|
|
|
|
if ( ! &validate_language()) {
|
|
|
|
|
if ( ! &validate_language($query->param('language'))) {
|
|
|
|
|
$pagedata->setValue('Data.Warning', 'InvalidLanguage');
|
|
|
|
|
$pagedata->setValue('Data.Action', 'config_ask');
|
|
|
|
|
} elsif ( ! &validate_ip()) {
|
|
|
|
|
$pagedata->setValue('Data.Action', 'config_form');
|
|
|
|
|
} elsif ( ! &validate_ip($query->param('ip'))) {
|
|
|
|
|
$pagedata->setValue('Data.Warning', 'InvalidIP');
|
|
|
|
|
$pagedata->setValue('Data.Action', 'config_ask');
|
|
|
|
|
} elsif ( ! &validate_timeout()) {
|
|
|
|
|
$pagedata->setValue('Data.Action', 'config_form');
|
|
|
|
|
} elsif ( ! &validate_timeout($query->param('timeout'))) {
|
|
|
|
|
$pagedata->setValue('Data.Warning', 'InvalidTimeOut');
|
|
|
|
|
$pagedata->setValue('Data.Action', 'config_ask');
|
|
|
|
|
$pagedata->setValue('Data.Action', 'config_form');
|
|
|
|
|
} else {
|
|
|
|
|
system("$CB_SCRIPT", "set_config", "language", $query->param('language'));
|
|
|
|
|
system("$CB_SCRIPT", "set_config", "timeout", $query->param('timeout'));
|
|
|
|
|