}
}
+
+
+
#- Wait for children
foreach my $cur_child_pid (@process_list) {
waitpid($cur_child_pid,0);
}
+
+ ### just kill the remaining stuff
+ @process_list = ();
+
+ foreach my $ip (@EB_IP_list){
+ my $cmd = qq|ssh scs\@$ip "/usr/bin/pkill -f \\"SCREEN -dmS ioc_eb\\""|;
+ print $cmd;
+ &forkMe($cmd, "/tmp/ioc_kill_$ip", \@process_list);
+ }
+
+ foreach my $cur_child_pid (@process_list) {
+ waitpid($cur_child_pid,0);
+ }
+
+ sleep 1;
+
+ ### just kill the remaining stuff
+ @process_list = ();
+ foreach my $ip (@EB_IP_list){
+ my $cmd = qq|ssh scs\@$ip "/usr/bin/pkill -9 -f \\"SCREEN -dmS ioc_eb\\""|;
+ &forkMe($cmd, "/tmp/ioc_kill2_$ip", \@process_list);
+ }
+
+ foreach my $cur_child_pid (@process_list) {
+ waitpid($cur_child_pid,0);
+ }
+
}
sub forkMe()
push( @$proc_list, $child );
}
elsif( $child == 0 ) { # child
- system("$cmd > $log");
+ system("$cmd >$log 2>&1 ");
exit(0);
}
else{