package-delete-2.tcl

Deletes a package from the database and the filesystem.

Location:

/packages/acs-admin/www/apm/package-delete-2.tcl

Author:

Bryan Quinn <bquinn@arsdigita.com>

Created:

Fri Oct 13 08:42:50 2000

CVS ID:

$Id: package-delete-2.tcl,v 1.9.2.2 2023/10/06 12:09:19 gustafn Exp $

Related Files

• packages/acs-admin/www/apm/package-delete-2.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {

    Deletes a package from the database and the filesystem.

    @author Bryan Quinn (bquinn@arsdigita.com)
    @creation-date Fri Oct 13 08:42:50 2000
    @cvs-id $Id: package-delete-2.tcl,v 1.9.2.2 2023/10/06 12:09:19 gustafn Exp $
} {
    version_id:naturalnum,notnull
    {remove_files:boolean,notnull 0}
    {sql_drop_scripts:multiple ""}
}


if {![apm_version_installed_p $version_id]} {
    set title "Package Deleted"
    set context [list [list "/acs-admin/apm/" "Package Manager"] $title]
    set body {The version you have indicated has been deleted.<p>
    Return to the <a href="index">index</a>.
    }
} else {
    apm_version_info $version_id

    set title "Delete"
    set context [list [list "/acs-admin/apm/" "Package Manager"] $title]
    set body ""
    set ::__apm_body ""
    if { [catch {apm_package_delete \
             -sql_drop_scripts $sql_drop_scripts \
             -remove_files=0 \
                     -delete_site_nodes \
             -callback apm_body_callback $package_key} errmsg] } {
    append body [subst {
        We encountered the following error when deleting package "$package_key":
        <pre><blockquote>[ns_quotehtml $errmsg]</blockquote></pre>
    }]
    append body $::__apm_body
    
    } else {
    append body {
        </ul>
        <p>You should restart the server now to make sure the memory footprint 
        and cache of the package is cleared out.
      } 
      append body [anchor_form -id restart -action ../server-restart -label "Click here"] \
            " to restart the server now.</p>"
    }
}

ad_return_template apm




# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: