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.10 -r1.11
--- openacs-4/packages/acs-admin/www/apm/build-repository.tcl 11 Feb 2004 17:15:31 -0000 1.10
+++ openacs-4/packages/acs-admin/www/apm/build-repository.tcl 12 Feb 2004 10:37:12 -0000 1.11
@@ -23,21 +23,22 @@
set channel_index_template "/packages/acs-admin/www/apm/repository-channel-index"
set index_template "/packages/acs-admin/www/apm/repository-index"
-set exclude_package_list { cms cms-news-demo glossary site-wide-search spam library }
-
+# this shouldn't be necessary because I removed the openacs-5-0-compat tags
+# from these packages
+#set exclude_package_list { cms cms-news-demo glossary site-wide-search spam library }
+set exclude_package_list {}
set head_channel "5-1"
# Set this to 1 to only checkout sample packages -- useful for debugging and testing
set debug_p 0
-
#----------------------------------------------------------------------
# Prepare output
#----------------------------------------------------------------------
ReturnHeaders
ns_write [ad_header "Building repository"]
-ns_write "
Building OpenACS Package Repository
"
+ns_write "Building Package Repository
"
ns_write
#----------------------------------------------------------------------
@@ -124,6 +125,7 @@
set checkout_list [list \
$work_dir $cvs_root openacs-4/packages/acs-kernel \
$work_dir $cvs_root openacs-4/contrib/packages/bcms \
+ $work_dir $cvs_root openacs-4/packages/spam \
${work_dir}dotlrn/packages/ $dotlrn_cvs_root dotlrn]
} else {
# Full list for real use
@@ -136,9 +138,13 @@
foreach { cur_work_dir cur_cvs_root cur_module } $checkout_list {
cd $cur_work_dir
if { ![string equal $channel_tag($channel) HEAD] } {
+ ns_write "- Checking out $cur_module from CVS:"
catch { exec $cvs_command -d $cur_cvs_root -z3 co -r $channel_tag($channel) $cur_module } output
+ ns_write " [llength $output] files\n"
} else {
+ ns_write "
- Checking out $cur_module from CVS:"
catch { exec $cvs_command -d $cur_cvs_root -z3 co $cur_module } output
+ ns_write " [llength $output] files\n"
}
}
cd $work_dir
@@ -254,6 +260,9 @@
ns_write "
- Writing $channel index page to ${channel_dir}index.html"
set fw [open "${channel_dir}index.html" w]
+
+ # sort by package name
+ set packages [lsort $packages]
puts $fw [ad_parse_template -params [list channel packages] -- $channel_index_template]
close $fw
@@ -279,7 +288,7 @@
set repository_dirname [string range $repository_dir 0 end-1]
set repository_bak "[string range $repository_dir 0 end-1].bak"
-ns_write "
- Moving work repository $work_repository_dirname to live repository dir at $repository_dir\n"
+ns_write "
- Moving work repository $work_repository_dirname to live repository dir at $repository_dir\n"
if { [file exists $repository_bak] } {
file delete -force $repository_bak
Index: openacs-4/packages/acs-admin/www/apm/repository-channel-index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/repository-channel-index.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/apm/repository-channel-index.adp 11 Feb 2004 17:15:01 -0000 1.1
+++ openacs-4/packages/acs-admin/www/apm/repository-channel-index.adp 12 Feb 2004 10:37:12 -0000 1.2
@@ -1,15 +1,17 @@
-
OpenACS Repository Channel @channel@
+OpenACS @channel@ Core and compatibile packages
-
+
Package |
Description |
+ Release |
- @packages.pretty_name@ key: @packages.package_key@ |
- @packages.summary@ @packages.description@ |
-
+ @packages.pretty_name@ |
+ @packages.summary@ @packages.description;noquote@ |
+ @packages.package_key@ @packages.version@
+ released @packages.release_date@ by @packages.vendor@ |
+
-