Ticket #1970: patch-portinstall.tcl.2.diff

base/src/port1.0/portinstall.tcl

@@ -156 +156 @@
         registry_store $rhandle [list uninstall [proc_disasm pkg_uninstall]]
     }
     registry_close $rhandle
+
+        # Check for startup items in etc/rc.d (${destroot}${prefix}/etc/rc.d)
+        if {[file exists ${destroot}${prefix}/etc/rc.d]} {
+                if {[file isdirectory ${destroot}${prefix}/etc/rc.d]} {
+                        foreach fileIdentifier [glob -dir ${destroot}${prefix}/etc/rc.d *.sh] {
+                                # Create entry of form DAEMON=-NO- (from etc/rc.d/daemon.sh)
+                                set fileName [file tail ${fileIdentifier}]
+                                regexp -nocase {(.*)\.sh} $fileName $fileName startupItem
+                                set daemonName [string toupper ${startupItem}]
+                                set hostconfigEntry [concat ${daemonName}=-NO-]
+                                # Only write entry if not already present
+                                system "if ! grep -q ${daemonName}= ${prefix}/etc/hostconfig; then \
+                                        echo ${hostconfigEntry} >> ${prefix}/etc/hostconfig; fi"
+                        }
+                }
+        }
     return 0
 }