| 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] |
|---|
