From 6e36054be11543e52a8c475d2eff2782f4a0bc2a Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Thu, 4 Jul 2002 14:58:22 +0000
Subject: [PATCH] Added "Run On Registration" option.

---
 docs/upgrades/upgrade_4.1.0-4.2.0.sql | 3 ++-
 lib/WebGUI/Operation/Account.pm       | 2 ++
 lib/WebGUI/Operation/Settings.pm      | 2 ++
 3 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/docs/upgrades/upgrade_4.1.0-4.2.0.sql b/docs/upgrades/upgrade_4.1.0-4.2.0.sql
index a8914a47b..4398a8ef9 100644
--- a/docs/upgrades/upgrade_4.1.0-4.2.0.sql
+++ b/docs/upgrades/upgrade_4.1.0-4.2.0.sql
@@ -1,3 +1,4 @@
 insert into webguiVersion values ('4.2.0','upgrade',unix_timestamp());
 insert into international values (6,'Item','English','Edit Item');
-
+insert into settings values ('runOnRegistration','');
+insert into international values (559,'WebGUI','English','Run On Registration');
diff --git a/lib/WebGUI/Operation/Account.pm b/lib/WebGUI/Operation/Account.pm
index a6164cff3..168cf121b 100644
--- a/lib/WebGUI/Operation/Account.pm
+++ b/lib/WebGUI/Operation/Account.pm
@@ -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();
diff --git a/lib/WebGUI/Operation/Settings.pm b/lib/WebGUI/Operation/Settings.pm
index 8fd73b252..b620fd954 100644
--- a/lib/WebGUI/Operation/Settings.pm
+++ b/lib/WebGUI/Operation/Settings.pm
@@ -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();