Listing 2 sulog check script

#!/usr/bin/awk -f
#
# check the sulog for failures..
# copyright 2001 (c) jose nazario
#
# works for Solaris, IRIX and HPUX 10.20
BEGIN { 
  print "\n--- checking sulog" 
  failed=0
  }
{
if ($4 == "-") {
  print "failed su:\t"$6"\tat\t"$2"\t"$3
  failed=failed+1
  }
}
END {
print "---------------------------------------"
printf("\ttotal number of records:\t%d\n", NR)
printf("\ttotal number of failed su's:\t%d\n\n",failed)
}