rt/etc/upgrade/4.0.6/content

   1 use strict;
   2 use warnings;
   3
   4 our @Initial = (
   5     sub {
   6         my $txns = RT::Transactions->new( RT->SystemUser );
   7         $txns->Limit(
   8             FIELD => "ObjectType",
   9             VALUE => "RT::User",
  10         );
  11         $txns->Limit(
  12             FIELD => "Field",
  13             VALUE => "Password",
  14         );
  15         while (my $txn = $txns->Next) {
  16             $txn->__Set( Field => $_, Value => '********' )
  17                 for qw/OldValue NewValue/;
  18         }
  19     },
  20 );