Ticket #11824: patch-portstartupitem.tcl

--- portstartupitem.tcl.org     2007-11-01 17:31:40.000000000 -0700
+++ portstartupitem.tcl 2007-11-02 01:14:28.000000000 -0700
@@ -41,6 +41,14 @@
 #       This is exclusive of init, start, stop, restart
 #       - This may be composed of exec arguments only--not shell code
 #
+#   startupitem.inetdsockname
+#       This keywork can only be used with startupitem.executable and sets the inetdCompatibility
+#       .plist key and specifies the xinetd socket servicename to be placed in /etc/services
+# 
+#   startupitem.inetdwait
+#        This optional command can only be used with startupitem.inetsocket; it corresponds
+#        turns on the "wait" option of services in xinetd
+#
 #   startupitem.pidfile     none
 #       There is no pidfile we can track
 #
@@ -386,6 +394,7 @@
     global startupitem.name startupitem.requires startupitem.init
     global startupitem.start startupitem.stop startupitem.restart startupitem.executable
     global startupitem.pidfile startupitem.logfile startupitem.logevents startupitem.netchange
+    global startupitem.inetdsockname startupitem.inetdwait
 
     set scriptdir ${prefix}/etc/startup
     
@@ -564,7 +573,13 @@
     
     puts ${plist} "<key>ProgramArguments</key>"
     puts ${plist} "<array>"
-    foreach arg ${args} { puts ${plist} "\t<string>${arg}</string>" }
+
+    if { ![llength ${startupitem.inetdsockname}] } {
+       foreach arg ${args} { puts ${plist} "\t<string>${arg}</string>" }
+        } else {
+            puts ${plist} "<string>${startupitem.executable}</string>"
+    }
+
     puts ${plist} "</array>"
     
     puts ${plist} "<key>Debug</key><false/>"
@@ -576,6 +591,28 @@
         puts ${plist} "<key>StandardOutPath</key><string>${startupitem.logfile}</string>"
     }
     
+    if { [llength ${startupitem.inetdsockname}] } {
+
+    puts ${plist} "<key>inetdCompatibility</key>"
+    puts ${plist} "\t<dict>"
+
+    if { [tbool startupitem.inetdwait] } {
+            puts ${plist} "\t<key>Wait</key><true/>"
+        } else {
+            puts ${plist} "\t<key>Wait</key><false/>"
+    }
+
+    puts ${plist} "\t</dict>"
+    puts ${plist} "<key>Sockets</key>"
+    puts ${plist} "\t<dict>"
+    puts ${plist} "\t<key>Listeners</key>"
+    puts ${plist} "\t\t<dict>"
+    puts ${plist} "\t\t<key>SockServiceName</key>"
+    puts ${plist} "\t\t<string>${startupitem.inetdsockname}</string>"
+    puts ${plist} "\t\t</dict>"
+    puts ${plist} "\t</dict>"
+    }
+
     puts ${plist} "</dict>"
     puts ${plist} "</plist>"