This isnt pulling up the access list can someone help me fix it & am not sure what prt of the code is wrong I cant figure it ut.
dialog access {
title "Access List - [/_access]"
size -1 -1 332 194
option pixels notheme
list 1, 6 32 318 134, size
box "", 2, 2 22 328 170
button "Remove", 3, 120 168 52 20, ok
combo 4, 44 4 198 24, drop
text "Channel", 5, 2 6 40 16
combo 7, 244 4 84 24, drop
button "Ok", 6, 270 168 52 20, default ok
radio "Add", 8, 8 168 52 20, push
box "Add Access", 9, 334 4 238 188
text "Type", 10, 342 56 50 16
combo 11, 400 52 164 26, drop
text "Mask", 12, 342 86 50 16
combo 13, 400 82 164 26, edit drop
text "Duration", 14, 342 114 50 16
text "Reason", 16, 342 146 50 16
edit "", 17, 400 142 164 20
text "Channel", 18, 342 26 50 16
combo 19, 400 22 164 26, drop
combo 15, 400 112 164 26, edit drop
button "Add", 20, 512 166 52 20
button "Update", 21, 64 168 52 20
button "Clear", 22, 175 168 52 20
}
on *:dialog:access:init:0: {
dll $mdx SetMircVersion $version
dll $mdx MarkDialog $dname
dll $mdx SetBorderStyle 3,6,8,20,21,22 staticedge
dll $mdx SetControlMDX $dname 1 listview report showsel rowselect nosortheader > $mdx.view
did -i access 1 1 headerdims 40:1 100:2 100:3 100:4
did -i access 1 1 headertext + 0 Type $+ $chr(9) $+ 0 Mask $+ $chr(9) $+ 0 Set By $+ $chr(9) $+ Reason $+ $chr(9) $+ Duration
var %x = 1
while (%x <= $chan(0)) {
did -a access 4,19 $chan(%x)
if ($active == $chan(%x)) { did -c access 4,19 %x }
inc %x
}
if ($chan(0) == 0) { did -a access 4,19 listing was denied (No access) | .splay accesd.wav | did -c access 4,19 1 }
did -a access 7 All
did -a access 7,11 Owner
did -a access 7,11 Host
did -a access 7,11 Voice
did -a access 7,11 Grant
did -a access 7,11 Deny
did -c access 7,11 1
did -a access 13 *!*@*$*
did -a access 13 >*!*@*$*
did -a access 13 $ial($me)
did -a access 13 $address($me,1)
did -a access 15 0
did -a access 15 1
did -a access 15 15
did -a access 15 30
did -a access 15 60
did -a access 15 120
did -a access 15 180
did -a access 15 720
did -a access 15 1440
did -c access 15 1
did -a access 17 Access Dialog
set -u5 %access. [ $+ [ $$did(access,4) ] ] $true
access $did(access,4)
}
on *:dialog:access:sclick:8: {
if ($dialog(access).w <= 400) {
dialog -s access -1 -1 573 193
did -c access 8
}
elseif ($dialog(access).w > 400) {
dialog -s access -1 -1 331 193
did -u access 8
}
}
on *:dialog:access:sclick:4,7,21: {
set -u5 %access. [ $+ [ $did(access,4) ] ] $true
access $did(access,4)
}
on *:dialog:access:sclick:3: {
access $did(access,4) delete $gettok($gettok($did(access,1).seltext,1,9),6,32) $gettok($gettok($did(access,1).seltext,2,9),5,32)
set -u5 %access. [ $+ [ $did(access,4) ] ] $true
access $did(access,4)
}
on *:dialog:access:sclick:22: {
access $did(access,4) clear
set -u5 %access. [ $+ [ $did(access,4) ] ] $true
access $did(access,4)
}
on *:dialog:access:sclick:20: {
access $did(19) add $did(11) $did(13) $did(15) : $+ $did(17)
set -u5 %access. [ $+ [ $did(access,4) ] ] $true
access $did(access,4)
}
raw 803:*: {
if (%access. [ $+ [ $2 ] ] == $true) {
did -r access 1
}
}
raw 804:*: {
if (%access. [ $+ [ $2 ] ] == $true) {
if ($3 == $did(access,7)) || ($did(access,7) == all) {
did -a access 1 $3 $+ $chr(9) $+ $4 $+ $chr(9) $+ $iif($ial($+(*,$6,*),1),$ial($+(*,$6,*),1).nick,$6) $+ $chr(9) $+ $strip($7-)
}
}
}
raw 805:*: {
if (%access. [ $+ [ $2 ] ] == $true) {
did -i access 1 1 headerdims 50:1 200:2 auto:3 auto:4
}
}
raw 913:*: {
if (%access. [ $+ [ $2 ] ] == $true) {
did -ra access 1 $chr(32) $+ $chr(9) $+ No Access
}
}
