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: