$ENV{PATH} = "/bin:/usr/bin:/usr/local/bin:/usr/sbin"; use strict; require "$ENV{EMDROOT}/sysman/admin/scripts/provisioning/provisionCommon.pl"; #pre install directive for orarun component main(); sub main() { my $CLONE_USER_KEY = "NAME_Image.Component_Orarun.NAME_CloneUser"; my $CLONE_PASSWD_KEY = "NAME_Image.Component_Orarun.NAME_ClonePassword"; my $m_cloneUser = get_oraProperty($CLONE_USER_KEY); my $m_clonePasswd = get_oraProperty( $CLONE_PASSWD_KEY); my $command = "/usr/sbin/usermod -p $m_clonePasswd $m_cloneUser"; system($command); my $m_exitstatus = $? >> 8; if ($m_exitstatus != 0) { print "\nFailed while changing the password of clone user oraem"; exit $m_exitstatus; } }