rt/etc/upgrade/4.0.6/content


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

use strict;
use warnings;

our @Initial = (
    sub {
        my $txns = RT::Transactions->new( RT->SystemUser );
        $txns->Limit(
            FIELD => "ObjectType",
            VALUE => "RT::User",
        );
        $txns->Limit(
            FIELD => "Field",
            VALUE => "Password",
        );
        while (my $txn = $txns->Next) {
            $txn->__Set( Field => $_, Value => '********' )
                for qw/OldValue NewValue/;
        }
    },
);