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):
%3 packages/acs-subsite/www/admin/site-map/instance-delete.tcl packages/acs-subsite/ www/admin/site-map/instance-delete.tcl site_node::delete_service_nodes site_node::delete_service_nodes packages/acs-subsite/www/admin/site-map/instance-delete.tcl->site_node::delete_service_nodes db_0or1row db_0or1row (public) site_node::delete_service_nodes->db_0or1row site_node::delete site_node::delete (public) site_node::delete_service_nodes->site_node::delete site_node::get_children site_node::get_children (public) site_node::delete_service_nodes->site_node::get_children site_node::get_element site_node::get_element (public) site_node::delete_service_nodes->site_node::get_element site_node::get_object_id site_node::get_object_id (public) site_node::delete_service_nodes->site_node::get_object_id

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

[ hide source ] | [ make this the default ]
Show another procedure: