[Rt-commit] r18490 - rt/3.8/trunk/etc/upgrade/3.8.3

[ruz at bestpractical.com]

Author: ruz
Date: Fri Feb 20 00:17:24 2009
New Revision: 18490

Added:
   rt/3.8/trunk/etc/upgrade/3.8.3/
   rt/3.8/trunk/etc/upgrade/3.8.3/content

Log:
* add an upgrade script that canonicalizes rights in DB

Added: rt/3.8/trunk/etc/upgrade/3.8.3/content
==============================================================================
--- (empty file)
+++ rt/3.8/trunk/etc/upgrade/3.8.3/content	Fri Feb 20 00:17:24 2009
@@ -0,0 +1,25 @@
+ at Final = (
+    sub {
+        $RT::Logger->debug("Going to adjust 'Bookmarked Tickets'");
+        my $sys = RT::System->new($RT::SystemUser);
+
+        my $acl = RT::ACL->new( $RT::SystemUser );
+        $acl->UnLimit;
+        while ( my $ace = $acl->Next ) {
+            my $old = $ace->__Value('RightName');
+            my $new = $old;
+            $new =~ s/s$//i;
+            next if $new eq $old;
+
+            my ($status, $msg) = $ace->__Set( Field => 'RightName', Value => $new );
+            $RT::Logger->error( "Couldn't change right name: $msg" )
+                unless $status;
+        }
+
+        $RT::Logger->debug("Canonicalized ACLs in the DB.");
+        return 1;
+    },
+);
+
+
+