index.tcl

Front page of admin

Location:
/packages/xml-rpc/www/admin/index.tcl
Author:
Vinod Kurup [vinod@kurup.com]
Created:
Thu Oct 9 15:22:41 2003
CVS ID:
$Id: index.tcl,v 1.2 2019/09/09 09:36:56 antoniop Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

# /packages/xml-rpc/www/admin/index.tcl
ad_page_contract {
     Front page of admin
     @author Vinod Kurup [vinod@kurup.com]
     @creation-date Thu Oct  9 15:22:41 2003
     @cvs-id $Id: index.tcl,v 1.2 2019/09/09 09:36:56 antoniop Exp $
} {
} -properties {
    rpc_url:onevalue
    server_enabled_p:onevalue
    rpc_procs:multirow
}

set rpc_url [ad_url][xmlrpc::url]
set server_enabled_p [xmlrpc::enabled_p]

multirow create rpc_procs name url enabled_p

foreach proc_name [xmlrpc::list_methods] {
    if { $server_enabled_p } {
        set enabled_p [ad_decode [nsv_get xmlrpc_procs $proc_name] 0 No Yes]
    } else {
        set enabled_p No
    }

    multirow append rpc_procs $proc_name [api_proc_url $proc_name] $enabled_p
}