write-all-specs.tcl
Generates package specs for every enabled version.
- Location:
- /packages/acs-admin/www/apm/write-all-specs.tcl
- Author:
- Jon Salz <jsalz@arsdigita.com>
- Created:
- 17 April 2000
- CVS ID:
$Id: write-all-specs.tcl,v 1.9 2018/01/31 20:21:52 gustafn Exp $
Related Files
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { Generates package specs for every enabled version. @author Jon Salz (jsalz@arsdigita.com) @creation-date 17 April 2000 @cvs-id $Id: write-all-specs.tcl,v 1.9 2018/01/31 20:21:52 gustafn Exp $ } { } set title "Generate Package Specifications" set context [list [list "." "Package Manager"] $title] ad_return_top_of_page [ad_parse_template \ -params [list context title] \ [template::streaming_template]] ns_write { Regenerating all package specifications for locally maintained packages. <ul> } db_foreach apm_get_all_packages { select version_id, version_name, pretty_name, distribution_uri, v.package_key from apm_package_versions v, apm_package_types t where installed_p = 't' and v.package_key = t.package_key order by upper(pretty_name) } { if { $distribution_uri eq "" } { ns_log Debug "Generating package specification for $package_key" ns_write "<li>$pretty_name $version_name... " if { [catch { apm_package_install_spec $version_id } error] } { ns_write "error: $error\n" } else { ns_write "done.\n" } } else { ns_write "<li>$pretty_name $version_name was not generated locally.\n" } } ns_write [subst {</ul> <a href="./">Return to the Package Manager</a> }] # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: