[Rt-commit] r11051 - in rt/branches/3.8-TESTING: etc/upgrade

ruz at bestpractical.com ruz at bestpractical.com
Wed Mar 12 12:47:38 EDT 2008


Author: ruz
Date: Wed Mar 12 12:47:38 2008
New Revision: 11051

Added:
   rt/branches/3.8-TESTING/etc/upgrade/3.8-ical-extension.in
Modified:
   rt/branches/3.8-TESTING/UPGRADING
   rt/branches/3.8-TESTING/configure.ac

Log:
* add script to upgrade old ical data, update upgrading docs

Modified: rt/branches/3.8-TESTING/UPGRADING
==============================================================================
--- rt/branches/3.8-TESTING/UPGRADING	(original)
+++ rt/branches/3.8-TESTING/UPGRADING	Wed Mar 12 12:47:38 2008
@@ -25,6 +25,10 @@
 RT::Action::LinearEscalate extension has been integrated into core,
 so you MUST uninstall it before upgrading.
 
+RT::Extension::iCal has been integrated into core, so you MUST uninstall
+it before upgrading. As well, you must run etc/upgrade/3.8-ical-extension
+script to convert old data.
+
 UPGRADING FROM 3.7.80 and earlier - Changes:
 
 Added indexes to CachedGroupMembers for MySQL and Oracle.

Modified: rt/branches/3.8-TESTING/configure.ac
==============================================================================
--- rt/branches/3.8-TESTING/configure.ac	(original)
+++ rt/branches/3.8-TESTING/configure.ac	Wed Mar 12 12:47:38 2008
@@ -301,6 +301,7 @@
 dnl Binaries that should be +x
 AC_CONFIG_FILES([
                  etc/upgrade/3.8-branded-queues-extension
+                 etc/upgrade/3.8-ical-extension
 		 sbin/rt-dump-database
 		 sbin/rt-setup-database
 		 sbin/rt-test-dependencies

Added: rt/branches/3.8-TESTING/etc/upgrade/3.8-ical-extension.in
==============================================================================
--- (empty file)
+++ rt/branches/3.8-TESTING/etc/upgrade/3.8-ical-extension.in	Wed Mar 12 12:47:38 2008
@@ -0,0 +1,96 @@
+#!@PERL@
+# BEGIN BPS TAGGED BLOCK {{{
+# 
+# COPYRIGHT:
+#  
+# This software is Copyright (c) 1996-2008 Best Practical Solutions, LLC 
+#                                          <jesse at bestpractical.com>
+# 
+# (Except where explicitly superseded by other copyright notices)
+# 
+# 
+# LICENSE:
+# 
+# This work is made available to you under the terms of Version 2 of
+# the GNU General Public License. A copy of that license should have
+# been provided with this software, but in any event can be snarfed
+# from www.gnu.org.
+# 
+# This work is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+# 02110-1301 or visit their web page on the internet at
+# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
+# 
+# 
+# CONTRIBUTION SUBMISSION POLICY:
+# 
+# (The following paragraph is not intended to limit the rights granted
+# to you to modify and distribute this software under the terms of
+# the GNU General Public License and is only of importance to you if
+# you choose to contribute your changes and enhancements to the
+# community by submitting them to Best Practical Solutions, LLC.)
+# 
+# By intentionally submitting any modifications, corrections or
+# derivatives to this work, or any other work intended for use with
+# Request Tracker, to Best Practical Solutions, LLC, you confirm that
+# you are the copyright holder for those contributions and you grant
+# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
+# royalty-free, perpetual, license to use, copy, create derivative
+# works based on those contributions, and sublicense and distribute
+# those contributions and any derivatives thereof.
+# 
+# END BPS TAGGED BLOCK }}}
+use strict;
+use warnings;
+
+use lib "@LOCAL_LIB_PATH@";
+use lib "@RT_LIB_PATH@";
+
+
+use RT;
+RT::LoadConfig();
+RT::Init();
+
+use RT::Attributes;
+my $attrs = RT::Attributes->new( $RT::SystemUser );
+$attrs->Limit(FIELD => 'ObjectType', OPERATOR=> '=', VALUE => 'RT::User');
+$attrs->Limit(FIELD => 'Name', OPERATOR=> '=', VALUE => 'ical-auth-token');
+while ( my $attr = $attrs->Next ) {
+    my $uid = $attr->ObjectId;
+    print "Processing auth token of user #". $uid ."...\n";
+
+    my $user = RT::User->new( $RT::SystemUser );
+    $user->Load( $uid );
+    unless ( $user->id ) {
+        print STDERR "\tERROR. Couldn't load user record\n";
+        next;
+    }
+
+    my ($status, $msg);
+
+    ($status, $msg) = $user->DeleteAttribute('AuthToken')
+        if $user->FirstAttribute('AuthToken');
+    unless ( $status ) {
+        print STDERR "\tERROR. Couldn't delete duplicated attribute: $msg\n";
+        next;
+    } else {
+        print "\tdeleted duplicate attribute\n";
+    }
+
+    ($status, $msg) = $attr->SetName('AuthToken');
+    unless ( $status ) {
+        print STDERR "\tERROR. Couldn't rename attribute: $msg\n";
+        next;
+    } else {
+        print "\trenamed attribute\n";
+    }
+    print "\tDONE\n";
+}
+
+exit 0;


More information about the Rt-commit mailing list