index.tcl

A place holder for access to the admin pages.

Location:

/packages/irc-logger/www/index.tcl

Author:

Bart Teeuwisse <bart.teeuwisse@thecodemill.biz>

Created:

2003-01-29

Related Files

• packages/irc-logger/www/index.xql
• packages/irc-logger/www/index.tcl
• packages/irc-logger/www/index.adp

[ hide source ]

File Contents

ad_page_contract {

    A place holder for access to the admin pages.

    @author Bart Teeuwisse (bart.teeuwisse@thecodemill.biz)
    @creation-date 2003-01-29
    @cvs $Id: index.tcl,v 1.4 2013/09/12 20:34:21 gustafn Exp $
    @arch-tag: 0c66c417-b410-49da-954d-d53d90287f26
} {
} -properties {
    title:onevalue
}

# Authenticate the user

set user_id [auth::require_login]

# Check for admin privileges

set package_id [ad_conn package_id]
set admin_p [permission::permission_p -object_id $package_id -privilege admin]

# Get the name of the package

if {[db_0or1row get_package_name "
    select p.instance_name 
    from apm_packages p, apm_package_versions v
    where p.package_id = :package_id
    and p.package_key = v.package_key
    and v.enabled_p = 't'"]} {
    set title "$instance_name"
} else {
    set title "IRC Logger"
}