Index: openacs-4/packages/acs-admin/www/apm/build-repository.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/Attic/build-repository.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-admin/www/apm/build-repository.tcl 22 Jan 2004 15:53:52 -0000 1.6 +++ openacs-4/packages/acs-admin/www/apm/build-repository.tcl 26 Jan 2004 13:06:04 -0000 1.7 @@ -16,6 +16,8 @@ set repository_dir "[acs_root_dir]/www/repository/" set repository_url "http://openacs.org/repository/" +set exclude_package_list { cms cms-news-demo glossary site-wide-search spam library } + set head_channel "5-1" @@ -97,7 +99,6 @@ cd $work_dir foreach channel [lsort -decreasing [array names channel_tag]] { - ns_write "
  • Starting channel $channel with tag $channel_tag($channel)\n" # Wipe and re-create the checkout directory @@ -120,14 +121,20 @@ catch { exec $cvs_command -d $cvs_root -z3 co openacs-4/contrib/packages } output } - append manifest {} \n + set manifest {} + append manifest \n foreach packages_dir [list "${work_dir}openacs-4/packages" "${work_dir}openacs-4/contrib/packages"] { - foreach spec_file [apm_scan_packages $packages_dir] { + foreach spec_file [lsort [apm_scan_packages $packages_dir]] { set package_path [eval file join [lrange [file split $spec_file] 0 end-1]] set package_key [lindex [file split $spec_file] end-1] + if { [lsearch -exact $exclude_package_list $package_key] != -1 } { + ns_write "Package $package_key is on list of packages to exclude - skipping" + continue + } + if { [array exists version] } { array unset version } @@ -204,6 +211,7 @@ } append manifest {} \n + ns_write "
  • Writing $channel manifest to ${channel_dir}manifest.xml" set fw [open "${channel_dir}manifest.xml" w] puts $fw $manifest close $fw