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:
parent
5c166919f9
commit
a896e7ed17
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user