#!/usr/bin/perl -I/opt/SUNWstade/lib
#<copyright>
# ----------------------------------------------------------
# Sun Proprietary/Confidential Code
# Copyright 2006, Sun Microsystems, Inc. All rights reserved.
# ----------------------------------------------------------
#</copyright>


open(O, ">/opt/SUNWstade/System/password");
print O "a6KNzVKvylBVU\\c";
close(O);

my $cmd = "/opt/SUNWstade/bin/ras_admin";
system("$cmd login_update -l peer -p peer");
system("$cmd login_update -l srm -p srm");
system("$cmd login_update -l ras -p agent");
system("$cmd login_update -l storade -p storade");

system("rm /opt/SUNWstade/DATA/IPC_Access");

print "\n'ras' password back to default value!\n\n";

print "Restarting services with default password...";
system("/usr/sbin/smcwebserver restart");
system("/usr/bin/pkill rashttp");
