Added "Run On Registration" option.

This commit is contained in:
JT Smith 2002-07-04 14:58:22 +00:00
parent f5959ad3a4
commit 6e36054be1
3 changed files with 6 additions and 1 deletions

View file

@ -19,6 +19,7 @@ use WebGUI::DateTime;
use WebGUI::ErrorHandler;
use WebGUI::HTMLForm;
use WebGUI::International;
use WebGUI::Macro;
use WebGUI::Mail;
use WebGUI::MessageLog;
use WebGUI::Paginator;
@ -253,6 +254,7 @@ sub www_createAccountSave {
}
WebGUI::Session::start($u->userId);
_logLogin($u->userId,"success");
system(WebGUI::Macro::process($session{setting}{runOnRegistration})) if ($session{setting}{runOnRegistration} ne "");
WebGUI::MessageLog::addInternationalizedEntry('',$session{setting}{onNewUserAlertGroup},'',536) if ($session{setting}{alertOnNewUser});
} else {
$output = "<h1>".WebGUI::International::get(70)."</h1>".$error.www_createAccount();

View file

@ -42,6 +42,7 @@ sub www_editUserSettings {
$f->integer("sessionTimeout",WebGUI::International::get(142),$session{setting}{sessionTimeout});
$f->yesNo("anonymousRegistration",WebGUI::International::get(118),$session{setting}{anonymousRegistration});
$f->yesNo("alertOnNewUser",WebGUI::International::get(534),$session{setting}{alertOnNewUser});
$f->text("runOnRegistration",WebGUI::International::get(559),$session{setting}{runOnRegistration});
$f->group("onNewUserAlertGroup",WebGUI::International::get(535),[$session{setting}{onNewUserAlertGroup}]);
$f->yesNo("useKarma",WebGUI::International::get(539),$session{setting}{useKarma});
$f->integer("karmaPerLogin",WebGUI::International::get(540),$session{setting}{karmaPerLogin});
@ -74,6 +75,7 @@ sub www_editUserSettingsSave {
_saveSetting("ldapPasswordName");
_saveSetting("anonymousRegistration");
_saveSetting("usernameBinding");
_saveSetting("runOnRegistration");
return www_manageSettings();
} else {
return WebGUI::Privilege::adminOnly();