[Rt-commit] r20055 - rtir/2.5/trunk/etc/upgrade/2.5.1

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Jun 25 22:35:42 2009
New Revision: 20055

Added:
   rtir/2.5/trunk/etc/upgrade/2.5.1/update_saved_searches.pl

Log:
add script to update saved_searches because the stripping _RTIR_ prefix

Added: rtir/2.5/trunk/etc/upgrade/2.5.1/update_saved_searches.pl
==============================================================================
--- (empty file)
+++ rtir/2.5/trunk/etc/upgrade/2.5.1/update_saved_searches.pl	Thu Jun 25 22:35:42 2009
@@ -0,0 +1,33 @@
+#!/usr/bin/env perl 
+use strict;
+use warnings;
+use lib '/opt/rt/local/lib', '/opt/rt/3.8/lib';
+use RT;
+RT->LoadConfig;
+RT->Init;
+
+my $saved_searches = RT::Attributes->new($RT::SystemUser);
+$saved_searches->Limit( FIELD => 'Name', VALUE => 'SavedSearch' );
+while ( my $s = $saved_searches->Next ) {
+    my $content    = $s->Content;
+    my $old_query  = $content->{Query};
+    my $old_format = $content->{Format};
+    $content->{Query}  =~ s/(?<=CF\.{)_RTIR_//ig;
+    $content->{Format} =~ s/(?<=CF\.{)_RTIR_//ig;
+
+    if ( $old_query ne $content->{Query} || $old_format ne $content->{Format} )
+    {
+        my ( $status, $msg ) = $s->SetContent($content);
+        if ($status) {
+            print 'update content of saved search ' . $s->Description . ' with
+                success';
+        }
+        else {
+            print 'failed to update content of saved search '
+              . $s->Description
+              . ": $msg";
+        }
+        print "\n";
+    }
+}
+