SOLARIS: Script to check root mirroring

You can use below script to check the root mirroring in solaris

for root_mirror_list in `cat solaris_server`
do
echo $root_mirror_list
echo "========================"
localzone=`ssh -q $root_mirror_list pkgcond -n is_what |grep is_global_zone |awk -F'=' '{print $2}'`
zfs_mirror=`ssh -q $root_mirror_list df -h |grep "/rpool" |awk '{print $1}'`
if [ 0 -eq $localzone ];
then
echo "$root_mirror_list is a local zone"
elif [ rpool == "$zfs_mirror" ];
then
ssh -q $root_mirror_list zpool status | perl -ne 'BEGIN { $/="\n\n" }; print if $_ =~ /rpool/;'
else
svm_mirror=`ssh -q $root_mirror_list df -h / |grep -v Filesystem |awk -F'/' '{print $5}' |awk '{print $1}'`
ssh -q $root_mirror_list metastat | perl -ne 'BEGIN { $/="\n\n" }; print if $_ =~ /'$svm_mirror':/;'
ssh -q $root_mirror_list metastat | perl -ne 'BEGIN { $/="\n\n" }; print if $_ =~ /Submirror of '$svm_mirror'/;'
fi
echo
done