my $root = RT::User->new( RT->SystemUser );
$root->Load('root');
my ($ok, $val) = $root->SetPassword( $RT::Installer->{InstallConfig}{Password} );
my $root = RT::User->new( RT->SystemUser );
$root->Load('root');
my ($ok, $val) = $root->SetPassword( $RT::Installer->{InstallConfig}{Password} );