diff --git a/xCAT-server/lib/xcat/plugins/web.pm b/xCAT-server/lib/xcat/plugins/web.pm
index 9e7ecae94..f8869fe84 100644
--- a/xCAT-server/lib/xcat/plugins/web.pm
+++ b/xCAT-server/lib/xcat/plugins/web.pm
@@ -1,8 +1,9 @@
-# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
+# IBM(c) 2011 EPL license http://www.eclipse.org/legal/epl-v10.html
 #-------------------------------------------------------
 
 =head 1
-    xCAT plugin package to handle webrun command
+
+    xCAT plugin to handle xCAT UI commands
 
 =cut
 
@@ -10,11 +11,8 @@
 
 package xCAT_plugin::web;
 use strict;
-
 require xCAT::Utils;
-
 require xCAT::MsgUtils;
-
 use Getopt::Long;
 use Data::Dumper;
 use LWP::Simple;
@@ -30,22 +28,14 @@ sub process_request {
 	my $callback        = shift;
 	my $sub_req         = shift;
 	my %authorized_cmds = (
-
-		#command => function
-		'pping'         => \&web_pping,
 		'update'        => \&web_update,
-		'chtab'         => \&web_chtab,
 		'lscondition'   => \&web_lscond,
 		'lsresponse'    => \&web_lsresp,
 		'lscondresp'    => \&web_lscondresp,
 		'mkcondresp'    => \&web_mkcondresp,
 		'startcondresp' => \&web_startcondresp,
 		'stopcondresp'  => \&web_stopcondresp,
-		'lsrsrc'        => \&web_lsrsrc,
-		'lsrsrcdef-api' => \&web_lsrsrcdef,
-		'gettab'        => \&web_gettab,
 		'lsevent'       => \&web_lsevent,
-		'lsdef'         => \&web_lsdef,
 		'unlock'        => \&web_unlock,
 		'rmcstart'      => \&web_rmcmonStart,
 		'rmcshow'       => \&web_rmcmonShow,
@@ -58,310 +48,226 @@ sub process_request {
 		'discover'      => \&web_discover,
 		'updatevpd'     => \&web_updatevpd,
 		'createimage'   => \&web_createimage
-		#'xdsh' => \&web_xdsh,
-		#THIS list needs to be updated
 	);
 
-	#to check whether the request is authorized or not
+	#check whether the request is authorized or not
 	split ' ', $request->{arg}->[0];
 	my $cmd = $_[0];
 	if ( grep { $_ eq $cmd } keys %authorized_cmds ) {
 		my $func = $authorized_cmds{$cmd};
 		$func->( $request, $callback, $sub_req );
-	}
-	else {
+	} else {
 		$callback->( { error => "$cmd is not authorized!\n", errorcode => [1] } );
 	}
 }
 
-sub web_lsdef {
-	my ( $request, $callback, $sub_req ) = @_;
-	print Dumper($request);
-
-	#TODO: web_lsdef works only for "lsdef <noderange> -i nodetype"
-	my $ret   = `$request->{arg}->[0]`;
-	my @lines = split '\n', $ret;
-
-	split '=', $lines[2];
-	my $ntype = $_[1];
-
-	$callback->( { data => "$ntype" } );
-}
-
 sub web_lsevent {
 	my ( $request, $callback, $sub_req ) = @_;
 	my @ret = `$request->{arg}->[0]`;
 
-	#print Dumper(\@ret);
 	#please refer the manpage for the output format of "lsevent"
-
-	my $data = [];
-
+	my $data   = [];
 	my $record = '';
-
-	my $i = 0;
-	my $j = 0;
+	my $i      = 0;
+	my $j      = 0;
 
 	foreach my $item (@ret) {
 		if ( $item ne "\n" ) {
 			chomp $item;
 			my ( $key, $value ) = split( "=", $item );
-			if ($j < 2){
+			if ( $j < 2 ) {
 				$record .= $value . ';';
-			}
-			else{
+			} else {
 				$record .= $value;
 			}
-			
+
 			$j++;
 			if ( $j == 3 ) {
 				$i++;
 				$j = 0;
-				push(@$data, $record);
+				push( @$data, $record );
 				$record = '';
 			}
 		}
 
 	}
 
-	#print Dumper(\%data);
-
 	$callback->( { data => $data } );
 }
 
-sub web_lsrsrcdef {
-	my ( $request, $callback, $sub_req ) = @_;
-	my $ret = `$request->{arg}->[0]`;
-
-	my @lines = split '\n', $ret;
-	shift @lines;
-	print Dumper( \@lines );
-	my $data = join( "=", @lines );
-	$callback->( { data => "$data" } );
-
-}
-
-sub web_lsrsrc {
-	my ( $request, $callback, $sub_req ) = @_;
-	my $ret = `$request->{arg}->[0]`;
-	my @classes;
-
-	my @lines = split '\n', $ret;
-	shift @lines;
-	foreach my $line (@lines) {
-		my $index = index( $line, '"', 1 );
-		push @classes, substr( $line, 1, $index - 1 );
-	}
-	my $data = join( "=", @classes );
-	$callback->( { data => "$data" } );
-}
-
 sub web_mkcondresp {
 	my ( $request, $callback, $sub_req ) = @_;
 	my $conditionName = $request->{arg}->[1];
-	my $temp = $request->{arg}->[2];
-	my $cmd = '';
+	my $temp          = $request->{arg}->[2];
+	my $cmd           = '';
+	my @resp          = split( ':', $temp );
 
-	my @resp = split(':', $temp);
 	#create new associations
-	if (1 < length(@resp[0])){
-		$cmd = substr(@resp[0], 1);
+	if ( 1 < length( @resp[0] ) ) {
+		$cmd = substr( @resp[0], 1 );
 		$cmd =~ s/,/ /;
 		$cmd = 'mkcondresp ' . $conditionName . ' ' . $cmd;
-		my $retInfo = xCAT::Utils->runcmd($cmd, -1, 1);
+		my $retInfo = xCAT::Utils->runcmd( $cmd, -1, 1 );
 	}
 
 	#delete old associations
-	if (1 < length(@resp[1])){
-		$cmd = substr(@resp[1], 1);
+	if ( 1 < length( @resp[1] ) ) {
+		$cmd = substr( @resp[1], 1 );
 		$cmd =~ s/,/ /;
 		$cmd = 'rmcondresp ' . $conditionName . ' ' . $cmd;
-		my $retInfo = xCAT::Utils->runcmd($cmd, -1, 1);
+		my $retInfo = xCAT::Utils->runcmd( $cmd, -1, 1 );
 	}
+
 	#there's no output for "mkcondresp"
 	$cmd = 'startcondresp ' . $conditionName;
-	my $refInfo = xCAT::Utils->runcmd($cmd, -1, 1);
-	$callback->({ data => "Success." });
+	my $refInfo = xCAT::Utils->runcmd( $cmd, -1, 1 );
+	$callback->( { data => "Success." } );
 }
 
 sub web_startcondresp {
 	my ( $request, $callback, $sub_req ) = @_;
 	my $conditionName = $request->{arg}->[1];
-	my $cmd = 'startcondresp "' . $conditionName . '"';
-	my $retInfo = xCAT::Utils->runcmd($cmd, -1, 1);
-	$callback->({ data => 'start monitor "' . $conditionName .  '" Successful.' });
+	my $cmd           = 'startcondresp "' . $conditionName . '"';
+	my $retInfo       = xCAT::Utils->runcmd( $cmd, -1, 1 );
+	$callback->( { data => 'start monitor "' . $conditionName . '" Successful.' } );
 }
 
 sub web_stopcondresp {
 	my ( $request, $callback, $sub_req ) = @_;
 	my $conditionName = $request->{arg}->[1];
-	my $cmd = 'stopcondresp "' . $conditionName . '"';
-	my $retInfo = xCAT::Utils->runcmd($cmd, -1, 1);
-	$callback->({ data => 'stop monitor "' . $conditionName .  '" Successful.' });
+	my $cmd           = 'stopcondresp "' . $conditionName . '"';
+	my $retInfo       = xCAT::Utils->runcmd( $cmd, -1, 1 );
+	$callback->( { data => 'stop monitor "' . $conditionName . '" Successful.' } );
 }
 
 sub web_lscond {
 	my ( $request, $callback, $sub_req ) = @_;
 	my $nodeRange = $request->{arg}->[1];
-	my $names = '';
+	my $names     = '';
 
-	#list all the conditions on all lpars in this group 
-	if ($nodeRange){
+	#list all the conditions on all lpars in this group
+	if ($nodeRange) {
 		my @nodes = xCAT::NodeRange::noderange($nodeRange);
 		my %tempHash;
 		my $nodeCount = @nodes;
+
 		#no node in this group
-		if (1 > $nodeCount){
+		if ( 1 > $nodeCount ) {
 			return;
 		}
 
 		#no conditions return
-		my $tempCmd = 'lscondition -d :' . join(',', @nodes);
-		my $retInfo = xCAT::Utils->runcmd($tempCmd, -1, 1);
-		if (1 > @$retInfo){
+		my $tempCmd = 'lscondition -d :' . join( ',', @nodes );
+		my $retInfo = xCAT::Utils->runcmd( $tempCmd, -1, 1 );
+		if ( 1 > @$retInfo ) {
 			return;
 		}
 
 		shift @$retInfo;
 		shift @$retInfo;
-
-		foreach my $line (@$retInfo){
-			my @temp = split(':', $line);
-			$tempHash{@temp[0]}++;
+		foreach my $line (@$retInfo) {
+			my @temp = split( ':', $line );
+			$tempHash{ @temp[0] }++;
 		}
 
-		foreach my $name (keys (%tempHash)){
-			if ($nodeCount == $tempHash{$name}){
+		foreach my $name ( keys(%tempHash) ) {
+			if ( $nodeCount == $tempHash{$name} ) {
 				$names = $names . $name . ';';
 			}
 		}
 	}
-	#only list the conditions on local.
-	else{
-		my $retInfo = xCAT::Utils->runcmd('lscondition -d', -1, 1);
 
-		if (2 > @$retInfo){
+	#only list the conditions on local.
+	else {
+		my $retInfo = xCAT::Utils->runcmd( 'lscondition -d', -1, 1 );
+		if ( 2 > @$retInfo ) {
 			return;
 		}
-		
+
 		shift @$retInfo;
 		shift @$retInfo;
 		foreach my $line (@$retInfo) {
-			my @temp = split(':', $line);
-			$names = $names . @temp[0] . ':' . substr(@temp[2], 1, 3) .  ';';		
-		}		
+			my @temp = split( ':', $line );
+			$names = $names . @temp[0] . ':' . substr( @temp[2], 1, 3 ) . ';';
+		}
 	}
-	if ('' eq $names){
+
+	if ( '' eq $names ) {
 		return;
 	}
-	$names = substr($names, 0, (length($names) - 1));
-	
+
+	$names = substr( $names, 0, ( length($names) - 1 ) );
 	$callback->( { data => $names } );
 }
 
-sub web_mkcondition{
+sub web_mkcondition {
 	my ( $request, $callback, $sub_req ) = @_;
 
-	if ('change' eq $request->{arg}->[1]){
+	if ( 'change' eq $request->{arg}->[1] ) {
 		my @nodes;
 		my $conditionName = $request->{arg}->[2];
-		my $groupName = $request->{arg}->[3];
+		my $groupName     = $request->{arg}->[3];
 
-		my $retInfo = xCAT::Utils->runcmd('nodels ' . $groupName . " nodetype.nodetype", -1, 1);
-		foreach my $line (@$retInfo){
-			my @temp = split(':', $line);
-			if (@temp[1] !~ /lpar/){
+		my $retInfo = xCAT::Utils->runcmd( 'nodels ' . $groupName . " nodetype.nodetype", -1, 1 );
+		foreach my $line (@$retInfo) {
+			my @temp = split( ':', $line );
+			if ( @temp[1] !~ /lpar/ ) {
 				$callback->( { data => 'Error : only the compute nodes\' group could select.' } );
 				return;
 			}
-			push (@nodes, @temp[0]);
+
+			push( @nodes, @temp[0] );
 		}
 
-		xCAT::Utils->runcmd('chcondition -n ' + join(',', @nodes) + '-m m ' + $conditionName);
+		xCAT::Utils->runcmd( 'chcondition -n ' + join( ',', @nodes ) + '-m m ' + $conditionName );
 		$callback->( { data => 'Change scope success.' } );
 	}
-	
+
 }
 
 sub web_lsresp {
 	my ( $request, $callback, $sub_req ) = @_;
 	my $names = '';
 	my @temp;
-	my $retInfo = xCAT::Utils->runcmd('lsresponse -d', -1, 1);
+	my $retInfo = xCAT::Utils->runcmd( 'lsresponse -d', -1, 1 );
 
 	shift @$retInfo;
 	shift @$retInfo;
 	foreach my $line (@$retInfo) {
-		@temp = split(':', $line);
+		@temp = split( ':', $line );
 		$names = $names . @temp[0] . ';';
 	}
 
-	$names = substr($names, 0, (length($names) - 1));
+	$names = substr( $names, 0, ( length($names) - 1 ) );
 	$callback->( { data => $names } );
 }
 
 sub web_lscondresp {
 	my ( $request, $callback, $sub_req ) = @_;
-	my $names = ''; 
+	my $names = '';
 	my @temp;
+
 	#if there is condition name, then we only show the condition linked associations.
-	if ($request->{arg}->[1]){
+	if ( $request->{arg}->[1] ) {
 		my $cmd = 'lscondresp -d ' . $request->{arg}->[1];
-		my $retInfo = xCAT::Utils->runcmd($cmd, -1, 1);
-		if (2 > @$retInfo){
+		my $retInfo = xCAT::Utils->runcmd( $cmd, -1, 1 );
+		if ( 2 > @$retInfo ) {
 			$callback->( { data => '' } );
 			return;
 		}
 
 		shift @$retInfo;
 		shift @$retInfo;
-		for my $line (@$retInfo){
-			@temp = split(':', $line);
+		for my $line (@$retInfo) {
+			@temp = split( ':', $line );
 			$names = $names . @temp[1] . ';';
 		}
 	}
-	else{
-	}
 
-	$names = substr($names, 0, (length($names) - 1));
+	$names = substr( $names, 0, ( length($names) - 1 ) );
 	$callback->( { data => $names } );
 }
 
-sub web_gettab {
-
-	#right now, gettab only support the monitoring table
-	my ( $request, $callback, $sub_req ) = @_;
-	split ' ', $request->{arg}->[0];
-	my $tmp_str = $_[2];
-	split '\.', $tmp_str;
-	my $table = $_[0];
-	if ( $table == "monitoring" ) {
-		my $val = `$request->{arg}->[0]`;
-		chomp $val;
-		$callback->( { data => $val } );
-	}
-	else {
-		$callback->(
-			{
-				error     => "The table $table is not authorized to get!\n",
-				errorcode => [1]
-			}
-		);
-	}
-}
-
-#-------------------------------------------------------
-
-=head3   web_update
-
-	Description	: Update the xCAT associate RPM on manangement node
-    Arguments	: RPM Name
-    			  Repository address
-    Returns		: Nothing
-    
-=cut
-
-#-------------------------------------------------------
 sub web_update {
 	my ( $request, $callback, $sub_req ) = @_;
 	my $os         = "unknow";
@@ -443,7 +349,8 @@ sub web_update {
 			unless ( -e $LocalRpmFilePath ) {
 				$cmd = "wget -O " . $LocalRpmFilePath . " " . $RemoteRpmFilePath;
 				if ( 0 != system($cmd) ) {
-					$ReturnInfo = $ReturnInfo . "update " . $_ . " failed: can not download the rpm\n";
+					$ReturnInfo =
+					  $ReturnInfo . "update " . $_ . " failed: can not download the rpm\n";
 					$callback->( { error => $ReturnInfo, errorcode => [1] } );
 					return;
 				}
@@ -453,83 +360,22 @@ sub web_update {
 			$cmd        = "rpm -U " . $LocalRpmFilePath . " 2>&1";
 			$ReturnInfo = $ReturnInfo . readpipe($cmd);
 		}
+
 		$callback->( { info => $ReturnInfo } );
 	}
 }
 
-#-------------------------------------------------------
-
-=head3   web_pping
-
-	Description	: Get the ping status of a given node
-    Arguments	: Node
-    Returns		: Nothing
-    
-=cut
-
-#-------------------------------------------------------
-sub web_pping {
-	my ( $request, $callback, $sub_req ) = @_;
-
-	# Treat the argument as the commandline, run it, and get the return message
-	my $out = `$request->{arg}->[0]`;
-
-	# Parse output, and use $callback to send back to the web interface
-	# Output looks like:
-	# 	xcat_n02: ping
-	# 	xcat_n03: ping
-	# 	xcat_n51: ping
-	# 	xcat_n52: noping
-	my @lines = split( '\n', $out );
-	my $line;
-	foreach $line (@lines) {
-		split( ':', $line );
-		$callback->(
-			{
-				node => [
-					{
-						name => [ $_[0] ],    # Node name
-						data => [ $_[1] ]     # Output
-					}
-				]
-			}
-		);
-	}
-}
-
-#-------------------------------------------------------
-
-=head3   web_unlock
-
-	Description	: Unlock a node by setting up the SSH keys
-    Arguments	: 	Node
-    				Password
-    Returns		: Nothing
-    
-=cut
-
-#-------------------------------------------------------
 sub web_unlock {
 	my ( $request, $callback, $sub_req ) = @_;
-
 	my $node     = $request->{arg}->[1];
 	my $password = $request->{arg}->[2];
-	my $out      = `DSH_REMOTE_PASSWORD=$password xdsh $node -K`;
+
+	# Unlock a node by setting up the SSH keys
+	my $out = `DSH_REMOTE_PASSWORD=$password xdsh $node -K`;
 
 	$callback->( { data => $out } );
 }
 
-#-------------------------------------------------------
-
-=head3   web_gangliastatus
-
-	Description	: Get the status of Ganglia on a given node
-    Arguments	: Node
-    Returns		: Nothing
-    
-=cut
-
-#-------------------------------------------------------
 sub web_gangliastatus {
 	my ( $request, $callback, $sub_req ) = @_;
 
@@ -547,8 +393,7 @@ sub web_gangliastatus {
 	foreach $line (@lines) {
 		if ( $line =~ m/running/i ) {
 			$status = 'on';
-		}
-		else {
+		} else {
 			$status = 'off';
 		}
 
@@ -566,17 +411,6 @@ sub web_gangliastatus {
 	}
 }
 
-#-------------------------------------------------------
-
-=head3   web_gangliastart
-
-	Description	: Start ganglia monitoring
-    Arguments	: Node range
-    Returns		: Nothing
-    
-=cut
-
-#-------------------------------------------------------
 sub web_gangliastart() {
 	my ( $request, $callback, $sub_req ) = @_;
 
@@ -620,17 +454,6 @@ sub web_gangliastart() {
 	return;
 }
 
-#-------------------------------------------------------
-
-=head3   web_gangliastop
-
-	Description	: Stop ganglia monitoring
-    Arguments	: Node range
-    Returns		: Nothing
-    
-=cut
-
-#-------------------------------------------------------
 sub web_gangliastop() {
 	my ( $request, $callback, $sub_req ) = @_;
 
@@ -654,17 +477,6 @@ sub web_gangliastop() {
 	return;
 }
 
-#-------------------------------------------------------
-
-=head3   web_gangliacheck
-
-	Description	: Check if ganglia RPMs are installed
-    Arguments	: Node range
-    Returns		: Nothing
-    
-=cut
-
-#-------------------------------------------------------
 sub web_gangliacheck() {
 	my ( $request, $callback, $sub_req ) = @_;
 
@@ -681,57 +493,6 @@ sub web_gangliacheck() {
 	return;
 }
 
-#-------------------------------------------------------
-
-=head3   web_chtab
-
-	Description	: Add, delete or update rows in the database tables
-    Arguments	: The chtab command to run
-    Returns		: Nothing
-    
-=cut
-
-#-------------------------------------------------------
-sub web_chtab {
-	my ( $request, $callback, $sub_req ) = @_;
-
-	# Get command
-	my $cmd = $request->{arg}->[0];
-	
-	# Get node name
-	my @args = split( ' ', $cmd );
-	my $node = $args[1];	
-	$node =~ s/node=//g;
-	
-	my $info;
-	if ( $args[0] =~ m/chtab/i ) {
-		# Take argument as command and run it
-		system($cmd);
-		$info = 'Tables updated';
-	}
-	else {
-		$info = 'Unsupported command';
-	}
-	
-	$callback->({
-		node => [{
-			name => [$node], 	# Node name
-			data => [$info]     # Output
-		}]
-	});
-}
-
-#-------------------------------------------------------
-
-=head3   web_rmcStart
-
-	Description	: Start the RMC monitoring on management node
-    Arguments	: Nothing
-    Returns		: Nothing
-    
-=cut
-
-#-------------------------------------------------------
 sub web_rmcmonStart {
 	my ( $request, $callback, $sub_req ) = @_;
 	my $nodeRange = $request->{arg}->[1];
@@ -772,7 +533,8 @@ sub web_rmcmonStart {
 	#configure before but there is not performance monitoring, so change the table
 	else {
 		if ( !( $rmcmonType->{value} =~ /perf/ ) ) {
-			$output = xCAT::Utils->runcmd( 'chtab name=rmcmon,key=montype monsetting.value=perf', -1, 1 );
+			$output =
+			  xCAT::Utils->runcmd( 'chtab name=rmcmon,key=montype monsetting.value=perf', -1, 1 );
 			foreach (@$output) {
 				$retData .= ( $_ . "\n" );
 			}
@@ -792,8 +554,8 @@ sub web_rmcmonStart {
 		$retData .= ( $_ . "\n" );
 	}
 
-	#check the monfiguration
-	#use lsrsrc -a IBM.Host Name. compare the command's return and the noderange, then decide witch node should be refrsrc
+#check the monfiguration
+#use lsrsrc -a IBM.Host Name. compare the command's return and the noderange, then decide witch node should be refrsrc
 
 	#start the rmc monitor
 	$output = xCAT::Utils->runcmd( "monstart rmcmon", -1, 1 );
@@ -803,14 +565,12 @@ sub web_rmcmonStart {
 
 	$callback->( { info => $retData } );
 	return;
-
-	#configure the rmc monitoring
 }
 
 sub web_rmcmonShow() {
 	my ( $request, $callback, $sub_req ) = @_;
 	my $nodeRange = $request->{arg}->[1];
-	my $attr = $request->{arg}->[2];
+	my $attr      = $request->{arg}->[2];
 	my @nodes;
 	my $retInfo;
 	my $retHash = {};
@@ -823,8 +583,7 @@ sub web_rmcmonShow() {
 	#only get the system rmc info
 	#like this PctTotalTimeIdle=>"10.0000, 20.0000, 12.0000, 30.0000"
 	if ( 'summary' eq $nodeRange ) {
-		$output =
-		  xCAT::Utils->runcmd( "monshow rmcmon -s -t 60 -a " . $attr, -1, 1 );
+		$output = xCAT::Utils->runcmd( "monshow rmcmon -s -t 60 -a " . $attr, -1, 1 );
 		foreach $temp (@$output) {
 
 			#the attribute name
@@ -834,8 +593,7 @@ sub web_rmcmonShow() {
 				#the first one
 				if ( "" eq $retInfo ) {
 					$retInfo .= ( $temp . ':' );
-				}
-				else {
+				} else {
 					$retInfo =~ s/,$/;/;
 					$retInfo .= ( $temp . ':' );
 				}
@@ -892,8 +650,7 @@ sub web_rmcmonShow() {
 			my @temp = split( /:/, $_ );
 			if ( @temp[1] =~ /not installed/ ) {
 				push( @{ $retHash->{node} }, { name => @temp[0], data => 'NI' } );
-			}
-			else {
+			} else {
 				push( @rmcNodes, @temp[0] );
 			}
 		}
@@ -905,7 +662,10 @@ sub web_rmcmonShow() {
 		}
 
 		$tempNodes = join( ',', @rmcNodes );
-		$output = xCAT::Utils->runcmd( "xdsh $tempNodes \"/bin/ps -ef | /bin/grep rmcd | /bin/grep -v grep\" | /bin/awk '{print \$1\$9}'", -1, 1 );
+		$output = xCAT::Utils->runcmd(
+"xdsh $tempNodes \"/bin/ps -ef | /bin/grep rmcd | /bin/grep -v grep\" | /bin/awk '{print \$1\$9}'",
+			-1, 1
+		);
 		foreach (@$output) {
 			my @temp = split( /:/, $_ );
 			if ( @temp[1] =~ /rmcd/ ) {
@@ -924,8 +684,7 @@ sub web_rmcmonShow() {
 
 	my $attrName  = "";
 	my @attrValue = ();
-	$output =
-	  xCAT::Utils->runcmd( "monshow rmcmon $nodeRange -t 60 -a " . $attr, -1, 1 );
+	$output = xCAT::Utils->runcmd( "monshow rmcmon $nodeRange -t 60 -a " . $attr, -1, 1 );
 	foreach (@$output) {
 		$temp = $_;
 		if ( $temp =~ /\t/ ) {
@@ -939,7 +698,10 @@ sub web_rmcmonShow() {
 
 			#the first one
 			if ( "" ne $attrName ) {
-				push( @{ $retHash->{node} }, { name => $attrName, data => join( ',', @attrValue ) } );
+				push(
+					@{ $retHash->{node} },
+					{ name => $attrName, data => join( ',', @attrValue ) }
+				);
 				$attrName  = "";
 				@attrValue = ();
 			}
@@ -959,393 +721,405 @@ sub web_rmcmonShow() {
 	$callback->($retHash);
 }
 
-sub web_monls(){
+sub web_monls() {
 	my ( $request, $callback, $sub_req ) = @_;
 	my $retInfo = xCAT::Utils->runcmd( "monls", -1, 1 );
 	my $ret = '';
-	foreach my $line (@$retInfo){
-		my @temp = split(/\s+/, $line);
+	foreach my $line (@$retInfo) {
+		my @temp = split( /\s+/, $line );
 		$ret .= @temp[0];
-		if('not-monitored' eq @temp[1]){
+		if ( 'not-monitored' eq @temp[1] ) {
 			$ret .= ':Off;';
-		}
-		else{
+		} else {
 			$ret .= ':On;';
 		}
 	}
-	if ('' eq $ret){
+	if ( '' eq $ret ) {
 		return;
 	}
 
-	$ret = substr($ret, 0, length($ret) - 1);
-	$callback->({data=>$ret});
+	$ret = substr( $ret, 0, length($ret) - 1 );
+	$callback->( { data => $ret } );
 }
 
-sub web_discover{
-    my ( $request, $callback, $sub_req ) = @_;
-    my $type1 = '';
-    my $type2 = uc($request->{arg}->[1]);
+sub web_discover {
+	my ( $request, $callback, $sub_req ) = @_;
+	my $type1 = '';
+	my $type2 = uc( $request->{arg}->[1] );
 
-    if ('FRAME' eq $type1){
-        $type1 = 'BPA';
-    }
-    elsif('CEC' eq $request->{arg}->[1]) {
-        $type1 = 'FSP';
-    }
-    elsif ('HMC' eq $request->{arg}->[1]){
-        $type1 = 'HMC';
-    }
-    
-    my $retStr = '';
-    my $retInfo = xCAT::Utils->runcmd( "lsslp -s $type1 2>null | grep $type2 | awk '{print \$2\"-\"\$3}'", -1, 1 );
-    if (scalar(@$retInfo) < 1){
-        $retStr = 'Error: Can not discover frames in cluster!';
-    }
-    else{
-        foreach my $line (@$retInfo){
-            $retStr .= $line . ';';
-        }
-        $retStr = substr($retStr, 0, -1);
-    }
-    $callback->({data=>$retStr});
+	if ( 'FRAME' eq $type1 ) {
+		$type1 = 'BPA';
+	} elsif ( 'CEC' eq $request->{arg}->[1] ) {
+		$type1 = 'FSP';
+	} elsif ( 'HMC' eq $request->{arg}->[1] ) {
+		$type1 = 'HMC';
+	}
+
+	my $retStr  = '';
+	my $retInfo =
+	  xCAT::Utils->runcmd( "lsslp -s $type1 2>null | grep $type2 | awk '{print \$2\"-\"\$3}'",
+		-1, 1 );
+	if ( scalar(@$retInfo) < 1 ) {
+		$retStr = 'Error: Can not discover frames in cluster!';
+	} else {
+		foreach my $line (@$retInfo) {
+			$retStr .= $line . ';';
+		}
+		$retStr = substr( $retStr, 0, -1 );
+	}
+	$callback->( { data => $retStr } );
 }
 
-sub web_updatevpd{
-    my ( $request, $callback, $sub_req ) = @_;
-    my $harwareMtmsPair = $request->{arg}->[1];
-    my @hardware = split(/:/, $harwareMtmsPair);
+sub web_updatevpd {
+	my ( $request, $callback, $sub_req ) = @_;
+	my $harwareMtmsPair = $request->{arg}->[1];
+	my @hardware        = split( /:/, $harwareMtmsPair );
 
-    my $vpdtab = xCAT::Table->new('vpd');
-    unless($vpdtab){
-        return;
-    }
-    foreach my $hard (@hardware){
-        #the sequence must be object name, mtm, serial
-        my @temp = split(/,/, $hard);
-        $vpdtab->setAttribs({'node' => @temp[0]}, {'serial' => @temp[2], 'mtm'=>@temp[1]});
-    }
+	my $vpdtab = xCAT::Table->new('vpd');
+	unless ($vpdtab) {
+		return;
+	}
+	foreach my $hard (@hardware) {
 
-    $vpdtab->close();
+		#the sequence must be object name, mtm, serial
+		my @temp = split( /,/, $hard );
+		$vpdtab->setAttribs( { 'node' => @temp[0] }, { 'serial' => @temp[2], 'mtm' => @temp[1] } );
+	}
+
+	$vpdtab->close();
 }
 
-sub web_createimage{
-    my ( $request, $callback, $sub_req ) = @_;
-    my $ostype = $request->{arg}->[1];
-    my $osarch = lc($request->{arg}->[2]);
-    my $profile = $request->{arg}->[3];
-    my $bootif = $request->{arg}->[4];
-    my $imagetype = lc($request->{arg}->[5]);
-    my @softArray;
-    my $netdriver = '';
-    my $installdir = xCAT::Utils->getInstallDir();
-    my $tempos = $ostype;
-    $tempos =~ s/[0-9]//;
-    my $CONFILE;
-    my $archFlag = 0;
-    my $ret = '';
-    my $cmdPath = '';
+sub web_createimage {
+	my ( $request, $callback, $sub_req ) = @_;
+	my $ostype    = $request->{arg}->[1];
+	my $osarch    = lc( $request->{arg}->[2] );
+	my $profile   = $request->{arg}->[3];
+	my $bootif    = $request->{arg}->[4];
+	my $imagetype = lc( $request->{arg}->[5] );
+	my @softArray;
+	my $netdriver  = '';
+	my $installdir = xCAT::Utils->getInstallDir();
+	my $tempos     = $ostype;
+	$tempos =~ s/[0-9]//;
+	my $CONFILE;
+	my $archFlag = 0;
+	my $ret      = '';
+	my $cmdPath  = '';
 
-    if ($request->{arg}->[6]){
-        @softArray = split(',' , $request->{arg}->[6]);
+	if ( $request->{arg}->[6] ) {
+		@softArray = split( ',', $request->{arg}->[6] );
 
-        #check the arch 
-        if('ppc64' ne $osarch){
-            $callback->({data=>'Error: only support PPC64!'});
-            return;
-        }
+		#check the arch
+		if ( 'ppc64' ne $osarch ) {
+			$callback->( { data => 'Error: only support PPC64!' } );
+			return;
+		}
 
-        #check the osver
-        unless (-e "/opt/xcat/share/xcat/IBMhpc/IBMhpc.$ostype.ppc64.pkglist"){
-            $callback->({data=>'Error: only support rhels6 and sles11!'});
-            return;
-        }
+		#check the osver
+		unless ( -e "/opt/xcat/share/xcat/IBMhpc/IBMhpc.$ostype.ppc64.pkglist" ) {
+			$callback->( { data => 'Error: only support rhels6 and sles11!' } );
+			return;
+		}
 
-        #check the custom package, if the path is not exist, must create the dir first
-        if (-e "$installdir/custom/netboot/$ostype/"){
-            #the path is exist, so archive all file under this path.
-            opendir(TEMPDIR, "$installdir/custom/netboot/$ostype/");
-            my @fileArray = readdir(TEMPDIR);
-            closedir(TEMPDIR);
-            if (2 < scalar(@fileArray)){
-                $archFlag = 1;
-                unless (-e "/tmp/webImageArch/"){
-                    system("mkdir -p /tmp/webImageArch/");
-                }
-                system("mv $installdir/custom/netboot/$ostype/*.* /tmp/webImageArch/");
-            }
-            else{
-                $archFlag = 0;
-            }
-        }
-        else{
-            #do not need to archive
-            $archFlag = 0;
-            system("mkdir -p $installdir/custom/netboot/$ostype/");
-        }
-        
-        #write pkglist
-        open($CONFILE, ">$installdir/custom/netboot/$ostype/$profile.pkglist");
-        print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/IBMhpc.$ostype.ppc64.pkglist# \n";
-        close($CONFILE);
+		#check the custom package, if the path is not exist, must create the dir first
+		if ( -e "$installdir/custom/netboot/$ostype/" ) {
 
-        #write otherpkglist
-        open($CONFILE, ">$installdir/custom/netboot/$ostype/$profile.otherpkgs.pkglist");
-        print $CONFILE "\n";
-        close($CONFILE);
+			#the path is exist, so archive all file under this path.
+			opendir( TEMPDIR, "$installdir/custom/netboot/$ostype/" );
+			my @fileArray = readdir(TEMPDIR);
+			closedir(TEMPDIR);
+			if ( 2 < scalar(@fileArray) ) {
+				$archFlag = 1;
+				unless ( -e "/tmp/webImageArch/" ) {
+					system("mkdir -p /tmp/webImageArch/");
+				}
+				system("mv $installdir/custom/netboot/$ostype/*.* /tmp/webImageArch/");
+			} else {
+				$archFlag = 0;
+			}
+		} else {
 
-        #write exlist for stateless
-        open($CONFILE, ">$installdir/custom/netboot/$ostype/$profile.exlist");
-        print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/IBMhpc.$ostype.$osarch.exlist#\n";
-        close($CONFILE);
+			#do not need to archive
+			$archFlag = 0;
+			system("mkdir -p $installdir/custom/netboot/$ostype/");
+		}
 
-        #write postinstall
-        open($CONFILE, ">$installdir/custom/netboot/$ostype/$profile.postinstall");
-        print $CONFILE "/opt/xcat/share/xcat/IBMhpc/IBMhpc.$tempos.postinstall \$1 \$2 \$3 \$4 \$5 \n";
-        close($CONFILE);
+		#write pkglist
+		open( $CONFILE, ">$installdir/custom/netboot/$ostype/$profile.pkglist" );
+		print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/IBMhpc.$ostype.ppc64.pkglist# \n";
+		close($CONFILE);
 
-        for my $soft (@softArray){
-            $soft = lc($soft);
-            if ('gpfs' eq $soft){
-                web_gpfsConfigure($ostype, $profile, $osarch, $installdir);
-            }
-            elsif ('rsct' eq $soft){
-                web_rsctConfigure($ostype, $profile, $osarch, $installdir);
-            }
-            elsif('pe' eq $soft){
-                web_peConfigure($ostype, $profile, $osarch, $installdir);
-            }
-            elsif('essl' eq $soft){
-                web_esslConfigure($ostype, $profile, $osarch, $installdir);
-            }
-        }
+		#write otherpkglist
+		open( $CONFILE, ">$installdir/custom/netboot/$ostype/$profile.otherpkgs.pkglist" );
+		print $CONFILE "\n";
+		close($CONFILE);
 
-        #chmod 
-        system("chmod 755 $installdir/custom/netboot/$ostype/*.*");
-    }
+		#write exlist for stateless
+		open( $CONFILE, ">$installdir/custom/netboot/$ostype/$profile.exlist" );
+		print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/IBMhpc.$ostype.$osarch.exlist#\n";
+		close($CONFILE);
 
-    if ($bootif =~ /hf/i){
-        $netdriver = 'hf_if';
-    }
-    else{
-        $netdriver = 'ibmveth';
-    }
+		#write postinstall
+		open( $CONFILE, ">$installdir/custom/netboot/$ostype/$profile.postinstall" );
+		print $CONFILE
+		  "/opt/xcat/share/xcat/IBMhpc/IBMhpc.$tempos.postinstall \$1 \$2 \$3 \$4 \$5 \n";
+		close($CONFILE);
 
-    if ($tempos =~ /rh/i){
-        $cmdPath = "/opt/xcat/share/xcat/netboot/rh";
-    }
-    else{
-        $cmdPath = "/opt/xcat/share/xcat/netboot/sles";
-    }
-    #for stateless only run packimage is ok
-    if ('stateless' eq $imagetype){
-        my $retInfo = xCAT::Utils->runcmd( "${cmdPath}/genimage -i $bootif -n $netdriver -o $ostype -p $profile", -1, 1 );
-        $ret = join ("\n", @$retInfo);
-        if ($::RUNCMD_RC){
-            web_restoreChange($request->{arg}->[6], $archFlag, $imagetype, $ostype, $installdir);
-            $callback->({data=>$ret});
-            return;
-        }
-        $ret .= "\n";
-        my $retInfo = xCAT::Utils->runcmd( "packimage -o $ostype -p $profile -a $osarch", -1, 1 );
-        $ret .= join ("\n", @$retInfo);
-    }
-    else{
-        #for statelist we should check the litefile table
-        #step1 save the old litefile table content into litefilearchive.csv
-        system('tabdump litefile > /tmp/litefilearchive.csv');
+		for my $soft (@softArray) {
+			$soft = lc($soft);
+			if ( 'gpfs' eq $soft ) {
+				web_gpfsConfigure( $ostype, $profile, $osarch, $installdir );
+			} elsif ( 'rsct' eq $soft ) {
+				web_rsctConfigure( $ostype, $profile, $osarch, $installdir );
+			} elsif ( 'pe' eq $soft ) {
+				web_peConfigure( $ostype, $profile, $osarch, $installdir );
+			} elsif ( 'essl' eq $soft ) {
+				web_esslConfigure( $ostype, $profile, $osarch, $installdir );
+			}
+		}
 
-        #step2 write the new litefile.csv for this lite image
-        open ($CONFILE, ">/tmp/litefile.csv");
-        print $CONFILE "#image,file,options,comments,disable\n";
-        print $CONFILE '"ALL","/etc/lvm/","tmpfs",,' . "\n";
-        print $CONFILE '"ALL","/etc/ntp.conf","tmpfs",,' . "\n";
-        print $CONFILE '"ALL","/etc/resolv.conf","tmpfs",,' . "\n";
-        print $CONFILE '"ALL","/etc/sysconfig/","tmpfs",,' . "\n";
-        print $CONFILE '"ALL","/etc/yp.conf","tmpfs",,' . "\n";
-        print $CONFILE '"ALL","/etc/ssh/","tmpfs",,' . "\n";
-        print $CONFILE '"ALL","/var/","tmpfs",,' . "\n";
-        print $CONFILE '"ALL","/tmp/","tmpfs",,' . "\n";
-        print $CONFILE '"ALL","/root/.ssh/","tmpfs",,' . "\n";
-        print $CONFILE '"ALL","/opt/xcat/","tmpfs",,' . "\n";
-        print $CONFILE '"ALL","/xcatpost/","tmpfs",,' . "\n";
+		#chmod
+		system("chmod 755 $installdir/custom/netboot/$ostype/*.*");
+	}
 
-        if ('rhels' eq $tempos){
-            print $CONFILE '"ALL","/etc/adjtime","tmpfs",,' . "\n";
-            print $CONFILE '"ALL","/etc/securetty","tmpfs",,' . "\n";
-            print $CONFILE '"ALL","/etc/rsyslog.conf","tmpfs",,' . "\n";
-            print $CONFILE '"ALL","/etc/rsyslog.conf.XCATORIG","tmpfs",,' . "\n";
-            print $CONFILE '"ALL","/etc/udev/","tmpfs",,' . "\n";
-            print $CONFILE '"ALL","/etc/ntp.conf.predhclient","tmpfs",,' . "\n";
-            print $CONFILE '"ALL","/etc/resolv.conf.predhclient","tmpfs",,' . "\n";
-        }
-        else{
-            print $CONFILE '"ALL","/etc/ntp.conf.org","tmpfs",,' . "\n";
-            print $CONFILE '"ALL","/etc/syslog-ng/","tmpfs",,' . "\n";
-            print $CONFILE '"ALL","/etc/fstab","tmpfs",,' . "\n";
-        }
-        close($CONFILE);
+	if ( $bootif =~ /hf/i ) {
+		$netdriver = 'hf_if';
+	} else {
+		$netdriver = 'ibmveth';
+	}
 
-        #write the hpc software litefile into temp litefile.csv
-        for my $soft (@softArray){
-            $soft = lc($soft);
-            if (-e "/opt/xcat/share/xcat/IBMhpc/$soft/litefile.csv"){
-                system ("grep '^[^#]' /opt/xcat/share/xcat/IBMhpc/$soft/litefile.csv >> /tmp/litefile.csv");
-            }
-        }
-        
-        system("tabrestore /tmp/litefile.csv");
+	if ( $tempos =~ /rh/i ) {
+		$cmdPath = "/opt/xcat/share/xcat/netboot/rh";
+	} else {
+		$cmdPath = "/opt/xcat/share/xcat/netboot/sles";
+	}
 
-        #create the image
-        my $retInfo = xCAT::Utils->runcmd( "${cmdPath}/genimage -i $bootif -n $netdriver -o $ostype -p $profile", -1, 1 );
-        $ret = join ("\n", @$retInfo);
-        if ($::RUNCMD_RC){
-            web_restoreChange($request->{arg}->[6], $archFlag, $imagetype, $ostype, $installdir);
-            $callback->({data=>$ret});
-            return;
-        }
-        $ret .= "\n";
-        my $retInfo = xCAT::Utils->runcmd( "liteimg -o $ostype -p $profile -a $osarch", -1, 1 );
-        $ret .= join ("\n", @$retInfo);
-    }
+	#for stateless only run packimage is ok
+	if ( 'stateless' eq $imagetype ) {
+		my $retInfo =
+		  xCAT::Utils->runcmd(
+			"${cmdPath}/genimage -i $bootif -n $netdriver -o $ostype -p $profile",
+			-1, 1 );
+		$ret = join( "\n", @$retInfo );
 
-    web_restoreChange($request->{arg}->[6], $archFlag, $imagetype, $ostype, $installdir);
-    $callback->({data=>$ret});
-    return;
+		if ($::RUNCMD_RC) {
+			web_restoreChange( $request->{arg}->[6], $archFlag, $imagetype, $ostype, $installdir );
+			$callback->( { data => $ret } );
+			return;
+		}
+
+		$ret .= "\n";
+		my $retInfo = xCAT::Utils->runcmd( "packimage -o $ostype -p $profile -a $osarch", -1, 1 );
+		$ret .= join( "\n", @$retInfo );
+	} else {
+
+		#for statelist we should check the litefile table
+		#step1 save the old litefile table content into litefilearchive.csv
+		system('tabdump litefile > /tmp/litefilearchive.csv');
+
+		#step2 write the new litefile.csv for this lite image
+		open( $CONFILE, ">/tmp/litefile.csv" );
+		print $CONFILE "#image,file,options,comments,disable\n";
+		print $CONFILE '"ALL","/etc/lvm/","tmpfs",,' . "\n";
+		print $CONFILE '"ALL","/etc/ntp.conf","tmpfs",,' . "\n";
+		print $CONFILE '"ALL","/etc/resolv.conf","tmpfs",,' . "\n";
+		print $CONFILE '"ALL","/etc/sysconfig/","tmpfs",,' . "\n";
+		print $CONFILE '"ALL","/etc/yp.conf","tmpfs",,' . "\n";
+		print $CONFILE '"ALL","/etc/ssh/","tmpfs",,' . "\n";
+		print $CONFILE '"ALL","/var/","tmpfs",,' . "\n";
+		print $CONFILE '"ALL","/tmp/","tmpfs",,' . "\n";
+		print $CONFILE '"ALL","/root/.ssh/","tmpfs",,' . "\n";
+		print $CONFILE '"ALL","/opt/xcat/","tmpfs",,' . "\n";
+		print $CONFILE '"ALL","/xcatpost/","tmpfs",,' . "\n";
+
+		if ( 'rhels' eq $tempos ) {
+			print $CONFILE '"ALL","/etc/adjtime","tmpfs",,' . "\n";
+			print $CONFILE '"ALL","/etc/securetty","tmpfs",,' . "\n";
+			print $CONFILE '"ALL","/etc/rsyslog.conf","tmpfs",,' . "\n";
+			print $CONFILE '"ALL","/etc/rsyslog.conf.XCATORIG","tmpfs",,' . "\n";
+			print $CONFILE '"ALL","/etc/udev/","tmpfs",,' . "\n";
+			print $CONFILE '"ALL","/etc/ntp.conf.predhclient","tmpfs",,' . "\n";
+			print $CONFILE '"ALL","/etc/resolv.conf.predhclient","tmpfs",,' . "\n";
+		} else {
+			print $CONFILE '"ALL","/etc/ntp.conf.org","tmpfs",,' . "\n";
+			print $CONFILE '"ALL","/etc/syslog-ng/","tmpfs",,' . "\n";
+			print $CONFILE '"ALL","/etc/fstab","tmpfs",,' . "\n";
+		}
+		close($CONFILE);
+
+		#write the hpc software litefile into temp litefile.csv
+		for my $soft (@softArray) {
+			$soft = lc($soft);
+			if ( -e "/opt/xcat/share/xcat/IBMhpc/$soft/litefile.csv" ) {
+				system(
+"grep '^[^#]' /opt/xcat/share/xcat/IBMhpc/$soft/litefile.csv >> /tmp/litefile.csv"
+				);
+			}
+		}
+
+		system("tabrestore /tmp/litefile.csv");
+
+		#create the image
+		my $retInfo =
+		  xCAT::Utils->runcmd(
+			"${cmdPath}/genimage -i $bootif -n $netdriver -o $ostype -p $profile",
+			-1, 1 );
+		$ret = join( "\n", @$retInfo );
+		if ($::RUNCMD_RC) {
+			web_restoreChange( $request->{arg}->[6], $archFlag, $imagetype, $ostype, $installdir );
+			$callback->( { data => $ret } );
+			return;
+		}
+		$ret .= "\n";
+		my $retInfo = xCAT::Utils->runcmd( "liteimg -o $ostype -p $profile -a $osarch", -1, 1 );
+		$ret .= join( "\n", @$retInfo );
+	}
+
+	web_restoreChange( $request->{arg}->[6], $archFlag, $imagetype, $ostype, $installdir );
+	$callback->( { data => $ret } );
+	return;
 }
 
-sub web_gpfsConfigure{
-    my ($ostype, $profile, $osarch, $installdir) = @_;
-    my $CONFILE;
-    
-    #createrepo
-    system('createrepo $installdir/post/otherpkgs/$ostype/$osarch/gpfs');
-    
-    #other pakgs
-    open($CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.otherpkgs.pkglist");
-    print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/gpfs/gpfs.otherpkgs.pkglist#\n";
-    close($CONFILE);
+sub web_gpfsConfigure {
+	my ( $ostype, $profile, $osarch, $installdir ) = @_;
+	my $CONFILE;
 
-    #exlist
-    open ($CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.exlist");
-    print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/gpfs/gpfs.exlist#\n";
-    close ($CONFILE);
+	#createrepo
+	system('createrepo $installdir/post/otherpkgs/$ostype/$osarch/gpfs');
 
-    #postinstall
-    system ('cp /opt/xcat/share/xcat/IBMhpc/gpfs/gpfs_mmsdrfs $installdir/postscripts/gpfs_mmsdrfs');
-    open($CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.postinstall");
-    print $CONFILE "NODESETSTATE=genimage installroot=\$1 /opt/xcat/share/xcat/IBMhpc/gpfs/gpfs_updates\n";
-    print $CONFILE "installroot=\$1 $installdir/postscripts/gpfs_mmsdrfs\n";
-    close($CONFILE);
+	#other pakgs
+	open( $CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.otherpkgs.pkglist" );
+	print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/gpfs/gpfs.otherpkgs.pkglist#\n";
+	close($CONFILE);
+
+	#exlist
+	open( $CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.exlist" );
+	print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/gpfs/gpfs.exlist#\n";
+	close($CONFILE);
+
+	#postinstall
+	system('cp /opt/xcat/share/xcat/IBMhpc/gpfs/gpfs_mmsdrfs $installdir/postscripts/gpfs_mmsdrfs');
+	open( $CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.postinstall" );
+	print $CONFILE
+	  "NODESETSTATE=genimage installroot=\$1 /opt/xcat/share/xcat/IBMhpc/gpfs/gpfs_updates\n";
+	print $CONFILE "installroot=\$1 $installdir/postscripts/gpfs_mmsdrfs\n";
+	close($CONFILE);
 }
 
-sub web_rsctConfigure{
-    my ($ostype, $profile, $osarch, $installdir) = @_;
-    my $CONFILE;
+sub web_rsctConfigure {
+	my ( $ostype, $profile, $osarch, $installdir ) = @_;
+	my $CONFILE;
 
-    #createrepo
-    system('createrepo $installdir/post/otherpkgs/$ostype/$osarch/rsct');
+	#createrepo
+	system('createrepo $installdir/post/otherpkgs/$ostype/$osarch/rsct');
 
-    #packagelist for sles11
-    if ($ostype =~ /sles/i){
-        open($CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.pkglist");
-        print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/rsct/rsct.pkglist# \n";
-        close($CONFILE);
-    }
+	#packagelist for sles11
+	if ( $ostype =~ /sles/i ) {
+		open( $CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.pkglist" );
+		print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/rsct/rsct.pkglist# \n";
+		close($CONFILE);
+	}
 
-    #exlist
-    open ($CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.exlist");
-    print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/rsct/rsct.exlist#\n";
-    close ($CONFILE);
+	#exlist
+	open( $CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.exlist" );
+	print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/rsct/rsct.exlist#\n";
+	close($CONFILE);
 
-    #postinstall
-    open($CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.postinstall");
-    print $CONFILE "installroot=\$1 rsctdir=$installdir/post/otherpkgs/rhels6/ppc64/rsct NODESETSTATE=genimage   /opt/xcat/share/xcat/IBMhpc/rsct/rsct_install\n";
-    close ($CONFILE);
+	#postinstall
+	open( $CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.postinstall" );
+	print $CONFILE
+"installroot=\$1 rsctdir=$installdir/post/otherpkgs/rhels6/ppc64/rsct NODESETSTATE=genimage   /opt/xcat/share/xcat/IBMhpc/rsct/rsct_install\n";
+	close($CONFILE);
 }
 
-sub web_peConfigure{
-    my ($ostype, $profile, $osarch, $installdir) = @_;
-    my $CONFILE;
+sub web_peConfigure {
+	my ( $ostype, $profile, $osarch, $installdir ) = @_;
+	my $CONFILE;
 
-    #createrepo
-    system('createrepo $installdir/post/otherpkgs/$ostype/$osarch/pe');
-    system('createrepo $installdir/post/otherpkgs/$ostype/$osarch/compilers');
+	#createrepo
+	system('createrepo $installdir/post/otherpkgs/$ostype/$osarch/pe');
+	system('createrepo $installdir/post/otherpkgs/$ostype/$osarch/compilers');
 
-    #pkglist
-    open($CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.pkglist");
-    if ($ostype =~ /rh/i){
-        print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe.$ostype.pkglist#\n";
-    }
-    else{
-        print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/compilers/compilers.pkglist#\n";
-        print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe.pkglist#\n";
-    }
-    close($CONFILE);
+	#pkglist
+	open( $CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.pkglist" );
+	if ( $ostype =~ /rh/i ) {
+		print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe.$ostype.pkglist#\n";
+	} else {
+		print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/compilers/compilers.pkglist#\n";
+		print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe.pkglist#\n";
+	}
+	close($CONFILE);
 
-    #otherpaglist
-    open($CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.otherpkgs.pkglist");
-    print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe.otherpkgs.pkglist#\n";
-    close($CONFILE);
+	#otherpaglist
+	open( $CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.otherpkgs.pkglist" );
+	print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe.otherpkgs.pkglist#\n";
+	close($CONFILE);
 
-    #exlist
-    open ($CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.exlist");
-    print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/compilers/compilers.exlist#\n";
-    print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe.exlist#\n";
-    close ($CONFILE);
+	#exlist
+	open( $CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.exlist" );
+	print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/compilers/compilers.exlist#\n";
+	print $CONFILE "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe.exlist#\n";
+	close($CONFILE);
 
-    #postinstall
-    open($CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.postinstall");
-    print $CONFILE "installroot=\$1 NODESETSTATE=genimage   /opt/xcat/share/xcat/IBMhpc/compilers/compilers_license";
-    print $CONFILE "installroot=\$1 pedir=$installdir/post/otherpkgs/rhels6/ppc64/pe NODESETSTATE=genimage   /opt/xcat/share/xcat/IBMhpc/pe/pe_install";
-    close ($CONFILE);
+	#postinstall
+	open( $CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.postinstall" );
+	print $CONFILE
+"installroot=\$1 NODESETSTATE=genimage   /opt/xcat/share/xcat/IBMhpc/compilers/compilers_license";
+	print $CONFILE
+"installroot=\$1 pedir=$installdir/post/otherpkgs/rhels6/ppc64/pe NODESETSTATE=genimage   /opt/xcat/share/xcat/IBMhpc/pe/pe_install";
+	close($CONFILE);
 }
 
-sub web_esslConfigure{
-    my ($ostype, $profile, $osarch, $installdir) = @_;
-    my $CONFILE;
-    
-    #reaterepo
-    system('createrepo $installdir/post/otherpkgs/$ostype/$osarch/essl');
-    
-    #pkglist
-    open($CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.pkglist");
-    if ($ostype =~ /rh/i){
-        print $CONFILE, "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/compilers/compilers.rhels6.pkglist#\n";
-    }
-    else{
-        print $CONFILE, "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/essl/essl.pkglist#\n";
-    }
+sub web_esslConfigure {
+	my ( $ostype, $profile, $osarch, $installdir ) = @_;
+	my $CONFILE;
 
-    #otherpkgs
-    open($CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.otherpkgs.pkglist");
-    print $CONFILE, "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/essl/essl.otherpkgs.pkglist#\n";
-    close($CONFILE);
+	#reaterepo
+	system('createrepo $installdir/post/otherpkgs/$ostype/$osarch/essl');
 
-    #exlist
-    open ($CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.exlist");
-    print $CONFILE, "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/essl/essl.exlist#\n";
-    close($CONFILE);
+	#pkglist
+	open( $CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.pkglist" );
+	if ( $ostype =~ /rh/i ) {
+		print $CONFILE,
+		  "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/compilers/compilers.rhels6.pkglist#\n";
+	} else {
+		print $CONFILE, "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/essl/essl.pkglist#\n";
+	}
 
-    #postinstall
-    open($CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.postinstall");
-    print $CONFILE, "installroot=\$1 essldir=$installdir/post/otherpkgs/rhels6/ppc64/essl NODESETSTATE=genimage   /opt/xcat/share/xcat/IBMhpc/essl/essl_install";
-    close ($CONFILE);
+	#otherpkgs
+	open( $CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.otherpkgs.pkglist" );
+	print $CONFILE, "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/essl/essl.otherpkgs.pkglist#\n";
+	close($CONFILE);
+
+	#exlist
+	open( $CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.exlist" );
+	print $CONFILE, "#INCLUDE:/opt/xcat/share/xcat/IBMhpc/essl/essl.exlist#\n";
+	close($CONFILE);
+
+	#postinstall
+	open( $CONFILE, ">>$installdir/custom/netboot/$ostype/$profile.postinstall" );
+	print $CONFILE,
+"installroot=\$1 essldir=$installdir/post/otherpkgs/rhels6/ppc64/essl NODESETSTATE=genimage   /opt/xcat/share/xcat/IBMhpc/essl/essl_install";
+	close($CONFILE);
 }
 
-sub web_restoreChange{
-    my ($software, $archFlag, $imagetype, $ostype, $installdir) = @_;
-    #recover all file in the $installdir/custom/netboot/$ostype/
-    if ($software){
-        system("rm -f $installdir/custom/netboot/$ostype/*.*");
-    }
+sub web_restoreChange {
+	my ( $software, $archFlag, $imagetype, $ostype, $installdir ) = @_;
 
-    if ($archFlag){
-        system("mv /tmp/webImageArch/*.* $installdir/custom/netboot/$ostype/");
-    }
+	#recover all file in the $installdir/custom/netboot/$ostype/
+	if ($software) {
+		system("rm -f $installdir/custom/netboot/$ostype/*.*");
+	}
 
-    #recover the litefile table for statelite image
-    if ('statelite' == $imagetype){
-        system("rm -r /tmp/litefile.csv ; mv /tmp/litefilearchive.csv /tmp/litefile.csv ; tabrestore /tmp/litefile.csv");
-    }
+	if ($archFlag) {
+		system("mv /tmp/webImageArch/*.* $installdir/custom/netboot/$ostype/");
+	}
+
+	#recover the litefile table for statelite image
+	if ( 'statelite' == $imagetype ) {
+		system(
+"rm -r /tmp/litefile.csv ; mv /tmp/litefilearchive.csv /tmp/litefile.csv ; tabrestore /tmp/litefile.csv"
+		);
+	}
 }
-1;
\ No newline at end of file
+1;