| |
6 |
6 |
# |
| |
7 |
7 |
# $Id$ |
| |
8 |
8 |
|
| |
9 |
9 |
ad_page_variables { |
| |
10 |
10 |
{ request_limit 25 } |
| |
11 |
11 |
} |
| |
12 |
12 |
|
| |
13 |
13 |
ds_require_permission [ad_conn package_id] "admin" |
| |
14 |
14 |
|
| |
15 |
15 |
set enabled_p [nsv_get ds_properties enabled_p] |
| |
16 |
16 |
set user_switching_enabled_p [nsv_get ds_properties user_switching_enabled_p] |
| |
17 |
17 |
set database_enabled_p [nsv_get ds_properties database_enabled_p] |
| |
18 |
18 |
|
| |
19 |
19 |
set package_id [ad_conn package_id] |
| |
20 |
20 |
|
| |
21 |
21 |
set page_title "Developer Support" |
| |
22 |
22 |
set context {} |
| |
23 |
23 |
|
| |
24 |
24 |
append body " |
| |
25 |
25 |
<ul> |
| |
26 |
|
<li><a href=\"shell\">OpenACS Shell</a> |
| |
27 |
|
<li>Developer support information is currently |
| |
|
26 |
<li><a href=\"shell.tcl\">OpenACS Shell</a> |
| |
|
27 |
<li>Developer support toolbar is currently |
| |
28 |
28 |
[ad_decode $enabled_p 1 \ |
| |
29 |
29 |
"on (<a href=\"set-enabled?enabled_p=0\">turn it off</a>)" \ |
| |
30 |
30 |
"off (<a href=\"set-enabled?enabled_p=1\">turn it on</a>)"] |
| |
31 |
31 |
|
| |
32 |
32 |
<li>Developer support information is currently |
| |
33 |
33 |
restricted to the following IP addresses: |
| |
34 |
34 |
<ul type=disc> |
| |
35 |
35 |
" |
| |
36 |
36 |
|
| |
37 |
37 |
set enabled_ips [nsv_get ds_properties enabled_ips] |
| |
38 |
38 |
set includes_this_ip_p 0 |
| |
39 |
39 |
if { [llength $enabled_ips] == 0 } { |
| |
40 |
40 |
append body "<li><i>(none)</i>\n" |
| |
41 |
41 |
} else { |
| |
42 |
42 |
foreach ip $enabled_ips { |
| |
43 |
43 |
if { [string match $ip [ad_conn peeraddr]] } { |
| |
44 |
44 |
set includes_this_ip_p 1 |
| |
45 |
45 |
} |
| |
46 |
46 |
if { [regexp {[\*\?\[\]]} $ip] } { |
| |
47 |
47 |
append body "<li>IPs matching the pattern \"<code>$ip</code>\"\n" |
