fixed for RMC event batching response scripts comply with thte new batch file format

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@3761 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
linggao 2009-07-11 19:49:18 +00:00
parent 5c166919f9
commit a896e7ed17
2 changed files with 6 additions and 2 deletions

View File

@ -56,6 +56,8 @@ if (!$batch) { #handle single event
}
open(FILE1, "<$filename");
readline(FILE1);#skip first 2 lines
readline(FILE1);
my $line1=readline(FILE1);
my @aTemp=split(/=/, $line1);
my $num_events=$aTemp[1];
@ -63,7 +65,7 @@ if (!$batch) { #handle single event
my $count;
for ($count = 1; $count <= $num_events; $count++) {
my $content=`sed -n "/Event $count\$/, /(null)/ p" $filename`;
my $content=`sed -n "/Event $count\$/,/ERRM_COND_BATCH/ p" $filename`;
my @content_array=split(/\n/, $content);
pop(@content_array); #get rid of last line

View File

@ -93,6 +93,8 @@ if (!$batch) {
}
open(FILE1, "<$filename");
readline(FILE1);#skip first 2 lines
readline(FILE1);
my $line1=readline(FILE1);
my @aTemp=split(/=/, $line1);
my $num_events=$aTemp[1];
@ -103,7 +105,7 @@ if (!$batch) {
my @inactive=();
my %new_value=();
for ($count = 1; $count <= $num_events; $count++) {
my $content=`sed -n "/Event $count\$/, /(null)/ p" $filename`;
my $content=`sed -n "/Event $count\$/,/ERRM_COND_BATCH/ p" $filename`;
my @content_array=split(/\n/, $content);
pop(@content_array); #get rid of last line