From 91d0b0faa8463445f835d5737e0d009ba35391b9 Mon Sep 17 00:00:00 2001
From: deuce <>
Date: Tue, 13 Jan 2009 05:09:08 +0000
Subject: [PATCH] Add a can_access property to the xtrn_area.sec objects.
---
src/sbbs3/js_xtrn_area.c | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/src/sbbs3/js_xtrn_area.c b/src/sbbs3/js_xtrn_area.c
index a35166e637..9b7559419b 100644
--- a/src/sbbs3/js_xtrn_area.c
+++ b/src/sbbs3/js_xtrn_area.c
@@ -48,6 +48,7 @@ static char* xtrn_sec_prop_desc[] = {
,"external program section internal code"
,"external program section name"
,"external program section access requirements"
+ ,"user has sufficient access to enter this section <i>(introduced in v3.15)</i>"
,NULL
};
@@ -285,6 +286,13 @@ JSObject* DLLCALL js_CreateXtrnAreaObject(JSContext* cx, JSObject* parent, scfg_
if(!JS_SetProperty(cx, secobj, "ars", &val))
return(NULL);
+ if(user==NULL || chk_ar(cfg,cfg->xtrnsec[l]->ar,user))
+ val=JSVAL_TRUE;
+ else
+ val=JSVAL_FALSE;
+ if(!JS_SetProperty(cx, progobj, "can_access", &val))
+ return(NULL);
+
/* prog_list[] */
if((prog_list=JS_NewArrayObject(cx, 0, NULL))==NULL)
return(NULL);
--
GitLab