- Publicity: Public Only All
acs-kernel-procs.tcl
- Location:
- packages/acs-tcl/tcl/acs-kernel-procs.tcl
- Created:
- 2000-09-09
- Author:
- rhs@mit.edu
- CVS Identification:
$Id: acs-kernel-procs.tcl,v 1.15 2024/09/11 06:15:48 gustafn Exp $
Procedures in this file
- ad_acs_admin_node (public)
- ad_acs_administrator_exists_p (private)
- ad_acs_require_basic_schemata (private)
- ad_verify_install (public)
Detailed information
ad_acs_admin_node (public)
ad_acs_admin_node
- Returns:
- The node id of the ACS administration service if it is mounted, 0 otherwise.
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- acs_system_information_api
ad_acs_administrator_exists_p (private)
ad_acs_administrator_exists_p
- Returns:
- 1 if a user with admin privileges exists, 0 otherwise.
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
ad_acs_require_basic_schemata (private)
ad_acs_require_basic_schemata
This is a transitional code to ensure that the SQL schemata required for bootstrapping (i.e. before the upgrade script) are already installed.
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
ad_verify_install (public)
ad_verify_install
Returns 1 if the acs is properly installed, 0 otherwise.
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- No testcase defined.
Content File Source
ad_library { @author rhs@mit.edu @creation-date 2000-09-09 @cvs-id $Id: acs-kernel-procs.tcl,v 1.15 2024/09/11 06:15:48 gustafn Exp $ } ad_proc -private ad_acs_administrator_exists_p {} { @return 1 if a user with admin privileges exists, 0 otherwise. } { ad_acs_require_basic_schemata return [db_string admin_exists_p { select 1 as admin_exists_p from dual where exists ( select 1 from acs_permissions p, party_approved_member_map m, users u, acs_magic_objects amo where amo.name = 'security_context_root' and p.object_id = amo.object_id and p.grantee_id = m.party_id and u.user_id = m.member_id and acs_permission.permission_p(amo.object_id, u.user_id, 'admin') = 't' ) } -default 0] } ad_proc -private ad_acs_require_basic_schemata {} { This is a transitional code to ensure that the SQL schemata required for bootstrapping (i.e. before the upgrade script) are already installed. } { set schema_name "acs_permission" if {![db_string has_schema {}]} { set kernelSqlDir "$::acs::rootdir/packages/acs-kernel/sql/[db_driverkey {}]/upgrade" set files "upgrade-5.9.1d10-5.9.1d11.sql" foreach file $files { set fn $kernelSqlDir/$file if {[ad_file readable $fn]} { ns_log notice "bootstrap: upgrading SQL file $fn" db_source_sql_file -callback apm_dummy_callback $fn } } } } ad_proc -public ad_acs_admin_node {} { @return The node id of the ACS administration service if it is mounted, 0 otherwise. } { # # acs-admin is a singleton, so there is no chance that we have # multiple instances of it. If we do, something is wrong with our # setup. # return [db_string acs_admin_node { select node_id from site_nodes n, apm_packages p where n.object_id = p.package_id and p.package_key = 'acs-admin' } -default 0] } ad_proc -public ad_verify_install {} { Returns 1 if the acs is properly installed, 0 otherwise. } { # Define util_memoize with proc here to avoid error messages about multiple # defines. if { ![db_table_exists apm_packages] || ![db_table_exists site_nodes] } { ns_log warning "ad_verify_install: apm_packages [db_table_exists apm_packages] site_nodes [db_table_exists site_nodes]" proc util_memoize {script {max_age ""}} {{*}$script} return 0 } set kernel_install_p [apm_package_installed_p acs-kernel] set admin_exists_p [ad_acs_administrator_exists_p] if { $kernel_install_p && $admin_exists_p} { return 1 } else { ns_log warning "ad_verify_install: kernel_install_p $kernel_install_p admin_exists_p $admin_exists_p" proc util_memoize {script {max_age ""}} {{*}$script} return 0 } } # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: