Ticket #5525: portpkg.tcl.diff

portpkg.tcl

@@ -1 +1 @@
 # et:ts=4
 # portpkg.tcl
-# $Id: portpkg.tcl,v 1.5 2005/08/27 00:07:27 pguyot Exp $
+# $Id: portpkg.tcl,v 1.2.6.2 2005/09/05 01:12:16 pguyot Exp $
 #
 # Copyright (c) 2002 - 2003 Apple Computer, Inc.
 # All rights reserved.
@@ -43 +43 @@
 }
 
 # define options
-options package.type package.destpath
+options package.type package.destpath package.resources
 
 # Set defaults
 default package.destpath {${workpath}}
@@ -51 +51 @@
 set_ui_prefix
 
 proc pkg_main {args} {
-    global portname portversion portrevision package.type package.destpath UI_PREFIX
+    global portname portversion portrevision package.type package.destpath package.resources UI_PREFIX
 
     ui_msg "$UI_PREFIX [format [msgcat::mc "Creating pkg for %s-%s"] ${portname} ${portversion}]"
 
@@ -59 +59 @@
 }
 
 proc package_pkg {portname portversion portrevision} {
-    global UI_PREFIX portdbpath destpath workpath prefix portresourcepath description package.destpath long_description homepage portpath
+    global UI_PREFIX portdbpath destpath workpath prefix portresourcepath\
+     description package.destpath package.resources long_description homepage portpath filespath
 
     set resourcepath ${workpath}/pkg_resources
     # XXX: we need to support .lproj in resources.
@@ -84 +85 @@
     }
     write_welcome_html ${pkgpath}/Contents/Resources/Welcome.html $portname $portversion $pkg_long_description $pkg_description $pkg_homepage
     file copy -force -- ${portresourcepath}/package/background.tiff ${pkgpath}/Contents/Resources/background.tiff
+
+        if {[info exists package.resources]} {
+        foreach file ${package.resources} {
+                if {![file exists ${file}]} {
+              ui_msg "$UI_PREFIX ${file} from package.resources not found."
+            } else {
+              file copy -force -- ${file} ${pkgpath}/Contents/Resources/
+                }
+        }
+        }
+    
     system "mkbom ${destpath} ${pkgpath}/Contents/Archive.bom"
     system "cd ${destpath} && pax -x cpio -w -z . > ${pkgpath}/Contents/Archive.pax.gz"