site_node::delete_service_nodes (public)

 site_node::delete_service_nodes -node_id node_id

Defined in packages/acs-tcl/tcl/site-nodes-procs.tcl

Unmount and delete all (shared) service packages under this site_node.

Switches:

-node_id (required)

starting node_id

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

    set sub_node_urls [site_node::get_children  -node_id $node_id]
    foreach sub_node_url $sub_node_urls {
        set sub_node_id [site_node::get_element -url $sub_node_url -element node_id]
        set package_id [site_node::get_object_id -node_id $sub_node_id]
        if {$package_id ne ""
            && [db_0or1row is_apm_service {
                select 1 from apm_services
                where service_id = :package_id
            }]} {
            site_node::unmount -node_id $sub_node_id
            site_node::delete -node_id $sub_node_id
        }
    }

Generic XQL file:

packages/acs-tcl/tcl/site-nodes-procs.xql

PostgreSQL XQL file:

packages/acs-tcl/tcl/site-nodes-procs-postgresql.xql

Oracle XQL file:

packages/acs-tcl/tcl/site-nodes-procs-oracle.xql