|
|
|
@ -156,11 +156,6 @@ sub mount_vol
|
|
|
|
|
close(PW_INPUT);
|
|
|
|
|
|
|
|
|
|
$pagedata->setValue('Data.ProgOutput',"$output") if ($output);
|
|
|
|
|
|
|
|
|
|
if (!&check_mounted()) {
|
|
|
|
|
$pagedata->setValue('Data.Warning', 'MountFailed');
|
|
|
|
|
$pagedata->setValue('Data.Action', 'umount_form');
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
@ -252,7 +247,12 @@ if ( ! &check_ssl()) {
|
|
|
|
|
} else {
|
|
|
|
|
# mounten
|
|
|
|
|
&mount_vol($query->param('password'));
|
|
|
|
|
$pagedata->setValue('Data.Action', 'umount_form');
|
|
|
|
|
if (!&check_mounted()) {
|
|
|
|
|
$pagedata->setValue('Data.Warning', 'MountFailed');
|
|
|
|
|
$pagedata->setValue('Data.Action', 'mount_form');
|
|
|
|
|
} else {
|
|
|
|
|
$pagedata->setValue('Data.Action', 'umount_form');
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
################## mount_ask #######################
|
|
|
|
|
} elsif ($action eq 'mount_ask') {
|
|
|
|
@ -334,11 +334,16 @@ if ( ! &check_ssl()) {
|
|
|
|
|
$pagedata->setValue('Data.Action', 'intro');
|
|
|
|
|
#################### config_do #######################
|
|
|
|
|
} elsif ($action eq 'config_do') {
|
|
|
|
|
# TODO: parse for valid values
|
|
|
|
|
system("$CB_SCRIPT", "set_config", "language", $query->param('language'));
|
|
|
|
|
system("$CB_SCRIPT", "set_config", "timeout", $query->param('timeout'));
|
|
|
|
|
system("$CB_SCRIPT", "set_config", "ip", $query->param('ip'));
|
|
|
|
|
$pagedata->setValue('Data.Action', 'intro');
|
|
|
|
|
if ( ! &check_config()) {
|
|
|
|
|
$pagedata->setValue('Data.Warning', 'NotConfigured');
|
|
|
|
|
$pagedata->setValue('Data.Action', 'init_form');
|
|
|
|
|
} else {
|
|
|
|
|
# TODO: parse for valid values
|
|
|
|
|
system("$CB_SCRIPT", "set_config", "language", $query->param('language'));
|
|
|
|
|
system("$CB_SCRIPT", "set_config", "timeout", $query->param('timeout'));
|
|
|
|
|
system("$CB_SCRIPT", "set_config", "ip", $query->param('ip'));
|
|
|
|
|
$pagedata->setValue('Data.Action', 'intro');
|
|
|
|
|
}
|
|
|
|
|
#################### show_log ########################
|
|
|
|
|
} elsif ($action eq 'show_log') {
|
|
|
|
|
$pagedata->setValue('Data.Action', 'show_log');
|
|
|
|
|