I added the code to die if open failed, and it doesn't die. Looks to me like open is working?
open (PRM, "-|", $NE_obj->cmd("ssh $activepilotrcs reboot ; tailer PRM
+")) or die "Could not open PRM: $!\n";;
while (<PRM>) {
print "DEBUG: $_\n";
if ($_ =~ m/.*FAILED HEARTBEAT.*/sxi) {
print "$spacer $spacer $spacer $spacer Alarm Received That Act
+ive Pilot Has Gone Down...\n";
} elsif ($_ =~ m/.*STARTING OA&M LEAD TRANSITION.*/sxi) {
print "$spacer $spacer $spacer $spacer Standby Pilot $stdbypil
+otrcs Has Started Transitioning To Active...\n";
} elsif ($_ =~ m/.*FAILOVER INITIALIZATION COMPLETED.*/sxi) {
print "$spacer $spacer $spacer $spacer Standby Pilot $stdbypil
+otrsc Has Transitioned To Active...\n";
$NE_output = $NE_obj->cmd("\003");
last;
} else {
next;
}
}