Backup Check

I think this backup script can be cleaned up… maybe with Perl.

#!/usr/bin/ksh
NETBACKUP_FILE="/usr/openv/netbackup/bin/version"
STATUS="NOT INSTALLED"
VERSION=","

if [ -f $NETBACKUP_FILE ] ; then
VERSION=$(perl -lane 'print $F[-1] if $F[-1] =~ m/\d+/' $NETBACKUP_FILE)
STATUS="NETBACKUP-INSTALLED"
C=$(netstat -an | perl -lane 'BEGIN{$c=0;}if(/tcp.*\.13782\s.*LISTEN/){$c++;}END{ print "$c";}')
[ $C -gt 0 ] && STATUS="NETBACKUP-RUNNING"
echo "NETBACKUP_STATUS: $STATUS"
echo "NETBACKUP_VERSION: $VERSION"
fi
C=$( ps -fed |perl -lane 'BEGIN{$c=0;}if(m#\s/usr/bin/dsmcad\b#){$c++;}END{print $c;}' )
if [ $C -gt 0 ] ; then
[ "$STATUS" == "NOT INSTALLED" ] && STATUS=""
STATUS="TSM-RUNNING"
VERSION=$(lslpp -cL tivoli.tsm.StorageAgent.rte|perl -F':' -lane 'print $F[2] if $F[0] =~ m/tivoli.tsm.StorageAgent.rte/')
echo "TSM_STATUS: $STATUS"
echo "TSM_VERSION: $VERSION"
fi

#echo "$STATUS,$VERSION"

Advertisement