Forum OpenACS Q&A: Response to /monitor.tcl

4: Response to /monitor.tcl (response to 1)
Posted by MaineBob OConnor on

Hi David,

    ...I may have scripts that I have written where I wish their existence to be a secret as the general public has no need to know of their existence.

Here is some simple code that you can put at the top of any tcl proc so only your eyes see it.

# Assume that YOU are user_id 7 :

set user_id [ad_verify_and_get_user_id]

if { $user_id != 7 } {
    ns_returnredirect "/"

Also you could just move the tcl file to the /admin directory then only admin useres could run it....