--- tiger/scripts/check_inetd	2003-11-18 15:59:03.000000000 -0700
+++ tiger-hp/scripts/check_inetd	2004-04-04 21:15:59.000000000 -0600
@@ -191,12 +191,15 @@
       message INFO inet010i "" "$currbinary for $currservice does not exist."
     fi
     
+    owner=root
+    [ "X$OS" = "XTru64" ] && owner=bin
+
     if [ "X$OS" = "XIRIX" -a "X`echo $currbinary | $SED 's:[?]::'`" != "X$currbinary" ]; then
 	lgetpermit "`echo $currbinary | $SED 's:[?]::'`" |
-	pathmsg inet008 inet009 "`echo $currbinary | $SED 's:[?]::'`" root "inetd entry for $currservice service uses"
+	pathmsg inet008 inet009 "`echo $currbinary | $SED 's:[?]::'`" $owner "inetd entry for $currservice service uses"
     else
 	lgetpermit "$currbinary" |
-	pathmsg inet008 inet009 "$currbinary" root "inetd entry for $currservice service uses"
+	pathmsg inet008 inet009 "$currbinary" $owner "inetd entry for $currservice service uses"
     fi
 
     if [ "$currbinary" = "$tcpdpath" ]; then
@@ -209,7 +212,7 @@
       fi
     
       lgetpermit "$parm1" |
-      pathmsg inet008 inet009 "$parm1" root "inetd entry for $currservice service uses"
+      pathmsg inet008 inet009 "$parm1" $owner "inetd entry for $currservice service uses"
     fi
   done 
 
@@ -293,12 +296,25 @@
 do
      [ "$ur$uw$ux$gr$gw$gx$or$ow$ox" != '110000000' -a "$_group" != "root" ] && \
          message WARN inet017w "" "The $_namefile permissions are not 600."
+
+     eval "case $_group in
+         $Tiger_ROOT_PATH_OK_Group_Write)
+	     gw=0
+     esac"
+
      [ "$gw" != '0' ] && \
          message WARN inet018w "" "The $_namefile file can be written by any user of the group $_group."
+
      [ "$ow" != '0' ] && \
          message ALERT inet019a "" "The $_namefile file can be written by any user."
-     [ "$_owner" != 'root' ] && \
-         message FAIL inet020f "" "The $_namefile file is not owned by root (owned by $_owner)."
+
+     eval "case $_owner in
+         $Tiger_ROOT_PATH_OK_Owners)
+	     ;;
+	 *)
+             message FAIL inet020f \"\" \"The $_namefile file is not owned by root (owned by $_owner).\"
+	     ;;
+     esac"
 done
 
 
