244 lines
11 KiB
Perl
244 lines
11 KiB
Perl
package WebGUI::Operation::Settings;
|
|
|
|
#-------------------------------------------------------------------
|
|
# WebGUI is Copyright 2001-2002 Plain Black Software.
|
|
#-------------------------------------------------------------------
|
|
# Please read the legal notices (docs/legal.txt) and the license
|
|
# (docs/license.txt) that came with this distribution before using
|
|
# this software.
|
|
#-------------------------------------------------------------------
|
|
# http://www.plainblack.com info@plainblack.com
|
|
#-------------------------------------------------------------------
|
|
|
|
use Exporter;
|
|
use strict;
|
|
use WebGUI::HTMLForm;
|
|
use WebGUI::Icon;
|
|
use WebGUI::International;
|
|
use WebGUI::Privilege;
|
|
use WebGUI::Session;
|
|
use WebGUI::SQL;
|
|
use WebGUI::URL;
|
|
|
|
our @ISA = qw(Exporter);
|
|
our @EXPORT = qw(&www_editAuthenticationSettings &www_editAuthenticationSettingsSave &www_editCompanyInformation &www_editCompanyInformationSave &www_editFileSettings &www_editFileSettingsSave &www_editMailSettings &www_editMailSettingsSave &www_editMiscSettings &www_editMiscSettingsSave &www_manageSettings);
|
|
|
|
#-------------------------------------------------------------------
|
|
sub _saveSetting {
|
|
WebGUI::SQL->write("update settings set value=".quote($session{form}{$_[0]})." where name='$_[0]'");
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editAuthenticationSettings {
|
|
my ($output, %authMethod, $f);
|
|
%authMethod = ('WebGUI'=>'WebGUI', 'LDAP'=>'LDAP');
|
|
if (WebGUI::Privilege::isInGroup(3)) {
|
|
$output .= helpIcon(2);
|
|
$output .= '<h1>'.WebGUI::International::get(117).'</h1>';
|
|
$f = WebGUI::HTMLForm->new;
|
|
$f->hidden("op","editAuthenticationSettingsSave");
|
|
$f->yesNo("anonymousRegistration",WebGUI::International::get(118),[$session{setting}{anonymousRegistration}]);
|
|
$f->select("authMethod",\%authMethod,WebGUI::International::get(119),[$session{setting}{authMethod}]);
|
|
$f->yesNo("usernameBinding",WebGUI::International::get(306),$session{setting}{usernameBinding});
|
|
$f->url("ldapURL",WebGUI::International::get(120),$session{setting}{ldapURL});
|
|
$f->text("ldapId",WebGUI::International::get(121),$session{setting}{ldapId});
|
|
$f->text("ldapIdName",WebGUI::International::get(122),$session{setting}{ldapIdName});
|
|
$f->text("ldapPasswordName",WebGUI::International::get(123),$session{setting}{ldapPasswordName});
|
|
$f->submit;
|
|
$output .= $f->print;
|
|
} else {
|
|
$output = WebGUI::Privilege::adminOnly();
|
|
}
|
|
return $output;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editAuthenticationSettingsSave {
|
|
if (WebGUI::Privilege::isInGroup(3)) {
|
|
_saveSetting("authMethod");
|
|
_saveSetting("ldapURL");
|
|
_saveSetting("ldapId");
|
|
_saveSetting("ldapIdName");
|
|
_saveSetting("ldapPasswordName");
|
|
_saveSetting("anonymousRegistration");
|
|
_saveSetting("usernameBinding");
|
|
return www_manageSettings();
|
|
} else {
|
|
return WebGUI::Privilege::adminOnly();
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editCompanyInformation {
|
|
my ($output, $f);
|
|
if (WebGUI::Privilege::isInGroup(3)) {
|
|
$output .= helpIcon(6);
|
|
$output .= '<h1>'.WebGUI::International::get(124).'</h1>';
|
|
$f = WebGUI::HTMLForm->new;
|
|
$f->hidden("op","editCompanyInformationSave");
|
|
$f->text("companyName",WebGUI::International::get(125),$session{setting}{companyName});
|
|
$f->email("companyEmail",WebGUI::International::get(126),$session{setting}{companyEmail});
|
|
$f->url("companyURL",WebGUI::International::get(127),$session{setting}{companyURL});
|
|
$f->submit;
|
|
$output .= $f->print;
|
|
} else {
|
|
$output = WebGUI::Privilege::adminOnly();
|
|
}
|
|
return $output;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editCompanyInformationSave {
|
|
if (WebGUI::Privilege::isInGroup(3)) {
|
|
_saveSetting("companyName");
|
|
_saveSetting("companyEmail");
|
|
_saveSetting("companyURL");
|
|
return www_manageSettings();
|
|
} else {
|
|
return WebGUI::Privilege::adminOnly();
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editFileSettings {
|
|
my ($output, $f);
|
|
if (WebGUI::Privilege::isInGroup(3)) {
|
|
$output .= helpIcon(11);
|
|
$output .= '<h1>'.WebGUI::International::get(128).'</h1>';
|
|
$f = WebGUI::HTMLForm->new;
|
|
$f->hidden("op","editFileSettingsSave");
|
|
$f->text("lib",WebGUI::International::get(129),$session{setting}{lib});
|
|
$f->integer("maxAttachmentSize",WebGUI::International::get(130),$session{setting}{maxAttachmentSize});
|
|
$f->integer("thumbnailSize",WebGUI::International::get(406),$session{setting}{thumbnailSize});
|
|
$f->text("attachmentDirectoryWeb",WebGUI::International::get(131),$session{setting}{attachmentDirectoryWeb});
|
|
$f->text("attachmentDirectoryLocal",WebGUI::International::get(132),$session{setting}{attachmentDirectoryLocal});
|
|
$f->submit;
|
|
$output .= $f->print;
|
|
} else {
|
|
$output = WebGUI::Privilege::adminOnly();
|
|
}
|
|
return $output;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editFileSettingsSave {
|
|
if (WebGUI::Privilege::isInGroup(3)) {
|
|
_saveSetting("lib");
|
|
_saveSetting("maxAttachmentSize");
|
|
_saveSetting("thumbnailSize");
|
|
_saveSetting("attachementDirectoryWeb");
|
|
_saveSetting("attachmentDirectoryLocal");
|
|
return www_manageSettings();
|
|
} else {
|
|
return WebGUI::Privilege::adminOnly();
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editMailSettings {
|
|
my ($output, $f);
|
|
if (WebGUI::Privilege::isInGroup(3)) {
|
|
$output .= helpIcon(13);
|
|
$output .= '<h1>'.WebGUI::International::get(133).'</h1>';
|
|
$f = WebGUI::HTMLForm->new;
|
|
$f->hidden("op","editMailSettingsSave");
|
|
$f->textarea("recoverPasswordEmail",WebGUI::International::get(134),$session{setting}{recoverPasswordEmail});
|
|
$f->text("smtpServer",WebGUI::International::get(135),$session{setting}{smtpServer});
|
|
$f->submit;
|
|
$output .= $f->print;
|
|
} else {
|
|
$output = WebGUI::Privilege::adminOnly();
|
|
}
|
|
return $output;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editMailSettingsSave {
|
|
if (WebGUI::Privilege::isInGroup(3)) {
|
|
_saveSetting("recoverPasswordEmail");
|
|
_saveSetting("smtpServer");
|
|
return www_manageSettings();
|
|
} else {
|
|
return WebGUI::Privilege::adminOnly();
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editMiscSettings {
|
|
my ($output, %notFoundPage, %criticalError, %htmlFilter, %editor, $f);
|
|
%htmlFilter = ('none'=>WebGUI::International::get(420), 'most'=>WebGUI::International::get(421), 'all'=>WebGUI::International::get(419));
|
|
%criticalError = ('debug'=>WebGUI::International::get(414), 'friendly'=>WebGUI::International::get(415));
|
|
%notFoundPage = (1=>WebGUI::International::get(136), 4=>WebGUI::International::get(137));
|
|
%editor = ('built-in'=>WebGUI::International::get(495), 'edit-on-pro'=>WebGUI::International::get(494));
|
|
if (WebGUI::Privilege::isInGroup(3)) {
|
|
$output .= helpIcon(24);
|
|
$output .= '<h1>'.WebGUI::International::get(140).'</h1>';
|
|
$f = WebGUI::HTMLForm->new;
|
|
$f->hidden("op","editMiscSettingsSave");
|
|
$f->select("notFoundPage",\%notFoundPage,WebGUI::International::get(141),[$session{setting}{notFoundPage}]);
|
|
$f->integer("sessionTimeout",WebGUI::International::get(142),$session{setting}{sessionTimeout});
|
|
$f->text("docTypeDec",WebGUI::International::get(398),$session{setting}{docTypeDec});
|
|
$f->yesNo("preventProxyCache",WebGUI::International::get(400),$session{setting}{preventProxyCache});
|
|
$f->select("onCriticalError",\%criticalError,WebGUI::International::get(413),[$session{setting}{onCriticalError}]);
|
|
$f->select("filterContributedHTML",\%htmlFilter,WebGUI::International::get(418),[$session{setting}{filterContributedHTML}]);
|
|
$f->integer("textAreaRows",WebGUI::International::get(463),$session{setting}{textAreaRows});
|
|
$f->integer("textAreaCols",WebGUI::International::get(464),$session{setting}{textAreaCols});
|
|
$f->integer("textBoxSize",WebGUI::International::get(465),$session{setting}{textBoxSize});
|
|
$f->select("richEditor",\%editor,WebGUI::International::get(496),[$session{setting}{richEditor}]);
|
|
$f->submit;
|
|
$output .= $f->print;
|
|
} else {
|
|
$output = WebGUI::Privilege::adminOnly();
|
|
}
|
|
return $output;
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_editMiscSettingsSave {
|
|
if (WebGUI::Privilege::isInGroup(3)) {
|
|
_saveSetting("sessionTimeout");
|
|
_saveSetting("notFoundPage");
|
|
_saveSetting("docTypeDec");
|
|
_saveSetting("preventProxyCache");
|
|
_saveSetting("onCriticalError");
|
|
_saveSetting("filterContributedHTML");
|
|
_saveSetting("textAreaRows");
|
|
_saveSetting("textAreaCols");
|
|
_saveSetting("textBoxSize");
|
|
_saveSetting("richEditor");
|
|
return www_manageSettings();
|
|
} else {
|
|
return WebGUI::Privilege::adminOnly();
|
|
}
|
|
}
|
|
|
|
#-------------------------------------------------------------------
|
|
sub www_manageSettings {
|
|
my ($output);
|
|
if (WebGUI::Privilege::isInGroup(3)) {
|
|
$output .= helpIcon(12);
|
|
$output .= '<h1>'.WebGUI::International::get(143).'</h1>';
|
|
$output .= '<ul>';
|
|
$output .= '<li><a href="'.WebGUI::URL::page('op=editAuthenticationSettings').
|
|
'">'.WebGUI::International::get(117).'</a>';
|
|
$output .= '<li><a href="'.WebGUI::URL::page('op=editCompanyInformation').
|
|
'">'.WebGUI::International::get(124).'</a>';
|
|
$output .= '<li><a href="'.WebGUI::URL::page('op=editFileSettings').
|
|
'">'.WebGUI::International::get(128).'</a>';
|
|
$output .= '<li><a href="'.WebGUI::URL::page('op=editMailSettings').
|
|
'">'.WebGUI::International::get(133).'</a>';
|
|
$output .= '<li><a href="'.WebGUI::URL::page('op=editMiscSettings').
|
|
'">'.WebGUI::International::get(140).'</a>';
|
|
$output .= '<li><a href="'.WebGUI::URL::page('op=editProfileSettings').
|
|
'">'.WebGUI::International::get(308).'</a>';
|
|
$output .= '</ul>';
|
|
} else {
|
|
$output = WebGUI::Privilege::adminOnly();
|
|
}
|
|
return $output;
|
|
}
|
|
|
|
|
|
|
|
1;
|
|
|