Edit file File name : corosync.pl Content :#!/usr/bin/perl my $sudo = '/usr/bin/sudo'; my $cfgtool = '/usr/sbin/corosync-cfgtool -s'; $num_args = $#ARGV + 1; if ($num_args != 1) { print "\nUsage: corosync.pl ring number\n"; exit; } my $ringNumber = $ARGV[0]; open( $fh, "$cfgtool |" ) or die ( "Running corosync-cfgtool failed" ); foreach my $line (<$fh>) { if ( $line =~ m/status\s*=\s*(\S.+)/ ) { my $status = $1; if ( $status =~ m/^ring $ringNumber/ ) { # print "RING NUMBER $ringNumber STATUS: $status\n"; if ( $status =~ m/^ring $ringNumber active with no faults/ ) { print "0"; } else { print "1"; } exit; } } } close($fh) or die ( "Running corosync-cfgtool failed" ); Save