From ba1295aae5f5a6bf8bf9b4a6559e0e435762050b Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 27 Oct 2005 01:02:21 +0000
Subject: [PATCH] sf #1336414, protect all default user profile fields

---
 docs/upgrades/upgrade_6.7.7-6.7.8.pl | 38 ++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 docs/upgrades/upgrade_6.7.7-6.7.8.pl

diff --git a/docs/upgrades/upgrade_6.7.7-6.7.8.pl b/docs/upgrades/upgrade_6.7.7-6.7.8.pl
new file mode 100644
index 000000000..00aed4782
--- /dev/null
+++ b/docs/upgrades/upgrade_6.7.7-6.7.8.pl
@@ -0,0 +1,38 @@
+use lib "../../lib";
+use strict;
+use Getopt::Long;
+use WebGUI::Session;
+use WebGUI::SQL;
+use WebGUI::Asset;
+use WebGUI::Setting;
+
+my $toVersion = "6.7.8";
+my $configFile;
+my $quiet;
+
+start();
+protectUserProfileFields();
+finish();
+
+#-------------------------------------------------
+sub start {
+	$|=1; #disable output buffering
+	GetOptions(
+    		'configFile=s'=>\$configFile,
+        	'quiet'=>\$quiet
+	);
+	WebGUI::Session::open("../..",$configFile);
+	WebGUI::Session::refreshUserInfo(3);
+	WebGUI::SQL->write("insert into webguiVersion values (".quote($toVersion).",'upgrade',".time().")");
+}
+
+#-------------------------------------------------
+sub protectUserProfileFields {
+	WebGUI::SQL->write("update userProfileField set protected=1 where fieldName in ('discussionLayout','INBOXNotifications','alias','signature','publicProfile','publicEmail','toolbar')");
+}
+
+#-------------------------------------------------
+sub finish {
+	WebGUI::Session::close();
+}
+