Ticket #2426: patch-portdestroot.tcl

File patch-portdestroot.tcl, 788 bytes (added by mww@…, 20 years ago)

patch for portdestroot.tcl

Line 
1--- ./src/port1.0/portdestroot.tcl      Wed Jan  5 12:35:41 2005
2+++ ./src/port1.0/portdestroot.tcl.new  Wed Jan  5 13:11:43 2005
3@@ -40,6 +40,8 @@
4 
5 # define options
6 options destroot.target destroot.destdir destroot.clean destroot.keepdirs
7+options startupitem.create startupitem.requires
8+options startupitem.name startupitem.start startupitem.stop startupitem.restart
9 commands destroot
10 
11 # Set defaults
12@@ -77,7 +79,13 @@
13 }
14 
15 proc destroot_finish {args} {
16-    global UI_PREFIX destroot prefix portname
17+    global UI_PREFIX destroot prefix portname startupitem.create
18+
19+    # Create startup-scripts/items
20+       if {[tbool startupitem.create]} {
21+               package require portstartupitem 1.0
22+               startupitem_create
23+       }
24 
25     # Prune empty directories in ${destroot}
26     set exclude_dirs [list]