lang::apm::after_mount (private)

 lang::apm::after_mount -package_id package_id -node_id node_id

Defined in packages/acs-lang/tcl/apm-callback-procs.tcl

Modify default permissions after mount to restrict read access to the package from public read to read access for registered users.

Switches:

-package_id

(required)

-node_id

(required)

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

Testcases:

No testcase defined.

Source code:

    #ns_log notice "-- After mount callback package_id $package_id node_id $node_id"
    
    #
    # Turn off inheritance from public site
    #
    permission::set_not_inherit -object_id $package_id
    #
    # Allow registered users to read
    #
    permission::grant -party_id [acs_magic_object registered_users]  -object_id $package_id  -privilege read

XQL Not present:

Generic, PostgreSQL, Oracle