sec_populate_secret_tokens_db (private)

 sec_populate_secret_tokens_db

Defined in packages/acs-tcl/tcl/security-procs.tcl

Populates the secret_tokens table. Note that this will take a while to run.

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

Testcases:

No testcase defined.

Source code:

    set num_tokens [parameter::get  -package_id $::acs::kernel_id  -parameter NumberOfCachedSecretTokens  -default 100]
    # we assume sample size of 10%.
    set num_tokens [expr {$num_tokens * 10}]
    set counter 0
    set list_of_tokens [list]

    # the best thing to use here would be an array_dml, except
    # that an array_dml makes it hard to use sysdate and sequences.
    while { $counter < $num_tokens } {
        set random_token [sec_random_token]

        db_dml insert_random_token {}
        incr counter
    }

    db_release_unused_handles

Generic XQL file:

packages/acs-tcl/tcl/security-procs.xql

PostgreSQL XQL file:

<fullquery name="sec_populate_secret_tokens_db.insert_random_token">
    <querytext>

	    insert into secret_tokens(token_id, token, token_timestamp)
	    values(nextval('t_sec_security_token_id_seq'), :random_token, now())

      </querytext>
</fullquery>

packages/acs-tcl/tcl/security-procs-postgresql.xql

Oracle XQL file:

<fullquery name="sec_populate_secret_tokens_db.insert_random_token">
    <querytext>

	    insert /*+ APPEND */ into secret_tokens(token_id, token, token_timestamp)
	    values(sec_security_token_id_seq.nextval, :random_token, sysdate)

      </querytext>
</fullquery>

packages/acs-tcl/tcl/security-procs-oracle.xql