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 -N -r1.15 -r1.15.6.1 --- openacs-4/packages/acs-admin/www/apm/build-repository.tcl 21 May 2004 11:00:29 -0000 1.15 +++ openacs-4/packages/acs-admin/www/apm/build-repository.tcl 15 Jan 2007 07:42:08 -0000 1.15.6.1 @@ -12,7 +12,7 @@ #---------------------------------------------------------------------- set cvs_command "cvs" -set cvs_root ":pserver:anonymous@openacs.org:/cvsroot" +set cvs_root ":pserver:anonymous@cvs.openacs.org:/cvsroot" set work_dir "[acs_root_dir]/repository-builder/" @@ -26,7 +26,7 @@ # 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-2" +set head_channel "5-3" # Set this to 1 to only checkout sample packages -- useful for debugging and testing set debug_p 0 @@ -48,8 +48,8 @@ file mkdir $work_dir cd $work_dir -catch { exec $cvs_command -d $cvs_root -z3 co openacs-4/readme.txt } +catch { exec $cvs_command -d $cvs_root -z3 co openacs-4/readme.txt } catch { exec $cvs_command -d $cvs_root -z3 log -h openacs-4/readme.txt } output set lines [split $output \n] @@ -224,11 +224,15 @@ # The path to the 'packages' directory in the checkout set packages_root_path [eval file join [lrange [file split $spec_file] 0 end-2]] - - lappend cmd -C $packages_root_path + set tmp_filename [ns_tmpnam] + lappend cmd --files-from $tmp_filename -C $packages_root_path + + set fp [open $tmp_filename w] foreach file $files { - lappend cmd $package_key/$file + puts $fp $package_key/$file } + close $fp + lappend cmd "|" [apm_gzip_cmd] -c ">" $apm_file #ns_log Notice "Executing: [ad_quotehtml $cmd]" eval $cmd