acs::test::auth::install (private)

 acs::test::auth::install

Defined in packages/acs-authentication/tcl/test-authority-procs.tcl

Register the service contract implementations for the acs_testing authority and update the authority accordingly. Do nothing, when the registry exists already.

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

Testcases:

No testcase defined.

Source code:

    set authority_name acs_testing

    if {[auth::authority::get_id -short_name $authority_name] eq ""} {
        ns_log notice "create authority $authority_name"

        set register_impl_id [acs_sc::impl::get_id  -owner acs-authentication  -name acs_testing  -contract auth_registration]
        if {$register_impl_id eq ""} {
            acs::test::auth::registration::register_impl
            set register_impl_id  [acs_sc::impl::get_id  -owner acs-authentication  -name acs_testing  -contract auth_registration]
            ns_log notice "create authority $authority_name => register_impl_id $register_impl_id"
        }

        set auth_impl_id      [acs_sc::impl::get_id -owner acs-authentication -name local -contract auth_authentication]
        set pwd_impl_id       [acs_sc::impl::get_id -owner acs-authentication -name local -contract auth_password]
        set user_info_impl_id [acs_sc::impl::get_id -owner acs-authentication -name local -contract auth_user_info]

        db_transaction {
            array set row [list  short_name        $authority_name  pretty_name       "ACS Automated Testing"  auth_impl_id      $auth_impl_id  pwd_impl_id       $pwd_impl_id  register_impl_id  $register_impl_id  user_info_impl_id $user_info_impl_id  ]
            auth::authority::create -array row
        }
    }

XQL Not present:

Generic, PostgreSQL, Oracle