arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

The start of a simple script to clean up xCAT on

Browse Source 
AIX.  May turn it into a real cmd some day.  

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1170 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
nott 2008-04-23 18:17:15 +00:00
parent 3cdd3f9bb4
commit e30b2a244d
1 changed files with 71 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
xCAT-server-2.0/share/xcat/tools/cleanxCATaix Normal file
View File

@ -0,0 +1,71 @@
#!/usr/bin/perl
#
#
# Used this script while testing the port of xCAT to AIX - might turn it
# into a real command some day.
#
# Just want to save it for future reference - Norm - 4/22/2008
#
#-----------------------------------------------------------------------
#
# This script can be used to completely clean up an AIX xCAT management node
# so that it can be used to do a fresh install.
#
# It will uninstall the xCAT RPMs and OSS prereq RPMs but doesn't remove
# the openssh and openssl installp packages.
#
# It will also remove some additional files/directories that were created by
# xCAT.
#
BEGIN
{
$::XCATDIR = $ENV{'XCATDIR'} ? $ENV{'XCATDIR'} : '/etc/xcat';
}
print " Removing xCAT RPMs.\n";
`rpm -e xCAT-2.0`;
`rpm -e xCAT-server-2.0`;
`rpm -e xCAT-client-2.0`;
`rpm -e perl-xCAT-2.0`;
print " Removing /install & /etc/xcat.\n";
# rm /install dir
`rm -rf /install`;
# remove /etc/xcat
`rm -rf $::XCATDIR`;
print " Removing SSH keys (/.ssh) and xcatd certificates (/.xcat).\n";
`rm -rf /.ssh`;
`rm -rf /.xcat`;
print " Removing OSS prerequisite software.\n";
`rpm -e fping-2.2b1-1`;
`rpm -e perl-Digest-MD5-2.36-1`;
`rpm -e perl-Net_SSLeay.pm-1.30-1`;
`rpm -e perl-IO-Socket-SSL-1.06-1`;
`rpm -e perl-IO-Stty-.02-1`;
`rpm -e perl-IO-Tty-1.07-1`;
`rpm -e perl-Expect-1.21-1`;
`rpm -e conserver-8.1.16-2`;
`rpm -e expect-5.42.1-3`;
`rpm -e tk-8.4.7-3`;
`rpm -e tcl-8.4.7-3`;
`rpm -e perl-DBD-SQLite-1.13-1`;
`rpm -e perl-DBI-1.55-1`;
print " Killing the xcatd processes.\n";
my @xpids = `ps -ef\|grep \"xcatd\"`;
foreach $ps (@xpids)
{
$ps =~ s/^\s+//; # strip any leading spaces
my ($uid, $pid, $ppid, $desc) = split /\s+/, $ps;
# if $ps contains "grep" then it's not one of the daemon processes
if ( $ps !~/grep/)
{
# print "pid=$pid\n";
`/bin/kill -9 $pid`;
}
}
exit 0;