rt/etc/upgrade/4.0.6/content

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