home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2003-04-16 | 17.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 7f 9d 02 2f 2f 20 3d 3d |........|...// ==|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000050| 3d 3d 0d 0a 2f 2f 20 20 | 43 6c 61 73 73 3a 20 20 |==..// |Class: |
|00000060| 58 41 64 6d 69 6e 2e 78 | 57 65 62 51 75 65 72 79 |XAdmin.x|WebQuery|
|00000070| 44 65 66 61 75 6c 74 73 | 0d 0a 2f 2f 20 20 50 61 |Defaults|..// Pa|
|00000080| 72 65 6e 74 3a 20 58 57 | 65 62 41 64 6d 69 6e 2e |rent: XW|ebAdmin.|
|00000090| 78 57 65 62 51 75 65 72 | 79 48 61 6e 64 6c 65 72 |xWebQuer|yHandler|
|000000a0| 0d 0a 2f 2f 0d 0a 2f 2f | 20 20 57 65 62 41 64 6d |..//..//| WebAdm|
|000000b0| 69 6e 20 68 61 6e 64 6c | 65 72 20 66 6f 72 20 6d |in handl|er for m|
|000000c0| 6f 64 69 66 79 69 6e 67 | 20 64 65 66 61 75 6c 74 |odifying| default|
|000000d0| 20 67 61 6d 65 20 73 65 | 74 74 69 6e 67 73 0d 0a | game se|ttings..|
|000000e0| 2f 2f 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |// =====|========|
|000000f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000120| 3d 3d 3d 3d 3d 3d 3d 0d | 0a 0d 0a 63 6c 61 73 73 |=======.|...class|
|00000130| 20 78 57 65 62 51 75 65 | 72 79 44 65 66 61 75 6c | xWebQue|ryDefaul|
|00000140| 74 73 20 65 78 74 65 6e | 64 73 20 78 57 65 62 51 |ts exten|ds xWebQ|
|00000150| 75 65 72 79 48 61 6e 64 | 6c 65 72 0d 0a 09 63 6f |ueryHand|ler...co|
|00000160| 6e 66 69 67 3b 0d 0a 0d | 0a 76 61 72 20 63 6f 6e |nfig;...|.var con|
|00000170| 66 69 67 20 73 74 72 69 | 6e 67 20 44 65 66 61 75 |fig stri|ng Defau|
|00000180| 6c 74 73 49 6e 64 65 78 | 50 61 67 65 3b 09 2f 2f |ltsIndex|Page;.//|
|00000190| 20 44 65 66 61 75 6c 74 | 73 20 4d 65 6e 75 20 50 | Default|s Menu P|
|000001a0| 61 67 65 0d 0a 76 61 72 | 20 63 6f 6e 66 69 67 20 |age..var| config |
|000001b0| 73 74 72 69 6e 67 20 44 | 65 66 61 75 6c 74 73 4d |string D|efaultsM|
|000001c0| 61 70 73 50 61 67 65 3b | 0d 0a 76 61 72 20 63 6f |apsPage;|..var co|
|000001d0| 6e 66 69 67 20 73 74 72 | 69 6e 67 20 44 65 66 61 |nfig str|ing Defa|
|000001e0| 75 6c 74 73 52 75 6c 65 | 73 50 61 67 65 3b 0d 0a |ultsRule|sPage;..|
|000001f0| 76 61 72 20 63 6f 6e 66 | 69 67 20 73 74 72 69 6e |var conf|ig strin|
|00000200| 67 20 44 65 66 61 75 6c | 74 73 49 50 50 6f 6c 69 |g Defaul|tsIPPoli|
|00000210| 63 79 50 61 67 65 3b 09 | 2f 2f 20 53 70 65 63 69 |cyPage;.|// Speci|
|00000220| 61 6c 20 43 61 73 65 20 | 6f 66 20 4d 75 6c 74 69 |al Case |of Multi|
|00000230| 2d 70 61 72 74 20 6c 69 | 73 74 20 70 61 67 65 0d |-part li|st page.|
|00000240| 0a 76 61 72 20 63 6f 6e | 66 69 67 20 73 74 72 69 |.var con|fig stri|
|00000250| 6e 67 20 44 65 66 61 75 | 6c 74 73 52 65 73 74 61 |ng Defau|ltsResta|
|00000260| 72 74 50 61 67 65 3b 0d | 0a 0d 0a 2f 2f 20 43 75 |rtPage;.|...// Cu|
|00000270| 73 74 6f 6d 20 53 6b 69 | 6e 20 53 75 70 70 6f 72 |stom Ski|n Suppor|
|00000280| 74 0d 0a 76 61 72 20 63 | 6f 6e 66 69 67 20 73 74 |t..var c|onfig st|
|00000290| 72 69 6e 67 20 44 65 66 | 61 75 6c 74 73 52 6f 77 |ring Def|aultsRow|
|000002a0| 50 61 67 65 3b 0d 0a 0d | 0a 2f 2f 20 65 76 6f 20 |Page;...|.// evo |
|000002b0| 2d 2d 2d 0d 0a 76 61 72 | 20 6c 6f 63 61 6c 69 7a |---..var| localiz|
|000002c0| 65 64 20 73 74 72 69 6e | 67 20 44 65 66 61 75 6c |ed strin|g Defaul|
|000002d0| 74 73 4d 61 70 73 4c 69 | 6e 6b 3b 0d 0a 76 61 72 |tsMapsLi|nk;..var|
|000002e0| 20 6c 6f 63 61 6c 69 7a | 65 64 20 73 74 72 69 6e | localiz|ed strin|
|000002f0| 67 20 44 65 66 61 75 6c | 74 73 49 50 50 6f 6c 69 |g Defaul|tsIPPoli|
|00000300| 63 79 4c 69 6e 6b 3b 0d | 0a 76 61 72 20 6c 6f 63 |cyLink;.|.var loc|
|00000310| 61 6c 69 7a 65 64 20 73 | 74 72 69 6e 67 20 44 65 |alized s|tring De|
|00000320| 66 61 75 6c 74 73 52 65 | 73 74 61 72 74 4c 69 6e |faultsRe|startLin|
|00000330| 6b 3b 0d 0a 76 61 72 20 | 6c 6f 63 61 6c 69 7a 65 |k;..var |localize|
|00000340| 64 20 73 74 72 69 6e 67 | 20 49 44 42 61 6e 3b 0d |d string| IDBan;.|
|00000350| 0a 0d 0a 2f 2f 20 45 72 | 72 6f 72 20 6d 65 73 73 |...// Er|ror mess|
|00000360| 61 67 65 73 0d 0a 76 61 | 72 20 6c 6f 63 61 6c 69 |ages..va|r locali|
|00000370| 7a 65 64 20 73 74 72 69 | 6e 67 20 41 63 74 69 76 |zed stri|ng Activ|
|00000380| 65 4d 61 70 4e 6f 74 46 | 6f 75 6e 64 3b 0d 0a 76 |eMapNotF|ound;..v|
|00000390| 61 72 20 6c 6f 63 61 6c | 69 7a 65 64 20 73 74 72 |ar local|ized str|
|000003a0| 69 6e 67 20 49 6e 61 63 | 74 69 76 65 4d 61 70 4e |ing Inac|tiveMapN|
|000003b0| 6f 74 46 6f 75 6e 64 3b | 0d 0a 76 61 72 20 6c 6f |otFound;|..var lo|
|000003c0| 63 61 6c 69 7a 65 64 20 | 73 74 72 69 6e 67 20 43 |calized |string C|
|000003d0| 61 6e 6e 6f 74 4d 6f 64 | 69 66 79 3b 0d 0a 2f 2f |annotMod|ify;..//|
|000003e0| 20 2d 2d 2d 20 65 76 6f | 0d 0a 0d 0a 76 61 72 20 | --- evo|....var |
|000003f0| 6c 6f 63 61 6c 69 7a 65 | 64 20 73 74 72 69 6e 67 |localize|d string|
|00000400| 20 4e 6f 74 65 4d 61 70 | 73 50 61 67 65 3b 0d 0a | NoteMap|sPage;..|
|00000410| 76 61 72 20 6c 6f 63 61 | 6c 69 7a 65 64 20 73 74 |var loca|lized st|
|00000420| 72 69 6e 67 20 4e 6f 74 | 65 52 75 6c 65 73 50 61 |ring Not|eRulesPa|
|00000430| 67 65 3b 0d 0a 76 61 72 | 20 6c 6f 63 61 6c 69 7a |ge;..var| localiz|
|00000440| 65 64 20 73 74 72 69 6e | 67 20 4e 6f 74 65 50 6f |ed strin|g NotePo|
|00000450| 6c 69 63 79 50 61 67 65 | 3b 0d 0a 0d 0a 66 75 6e |licyPage|;....fun|
|00000460| 63 74 69 6f 6e 20 62 6f | 6f 6c 20 49 6e 69 74 28 |ction bo|ol Init(|
|00000470| 29 0d 0a 7b 0d 0a 09 6c | 6f 63 61 6c 20 69 6e 74 |)..{...l|ocal int|
|00000480| 20 69 3b 0d 0a 0d 0a 09 | 69 66 20 28 47 61 6d 65 | i;.....|if (Game|
|00000490| 50 49 20 3d 3d 20 4e 6f | 6e 65 29 0d 0a 09 09 53 |PI == No|ne)....S|
|000004a0| 65 74 47 61 6d 65 50 49 | 28 22 22 29 3b 0d 0a 0d |etGamePI|("");...|
|000004b0| 0a 09 66 6f 72 20 28 69 | 20 3d 20 30 3b 20 69 20 |..for (i| = 0; i |
|000004c0| 3c 20 47 61 6d 65 50 49 | 2e 53 65 74 74 69 6e 67 |< GamePI|.Setting|
|000004d0| 73 2e 4c 65 6e 67 74 68 | 3b 20 69 2b 2b 29 0d 0a |s.Length|; i++)..|
|000004e0| 09 09 69 66 20 28 47 61 | 6d 65 50 49 2e 53 65 74 |..if (Ga|mePI.Set|
|000004f0| 74 69 6e 67 73 5b 69 5d | 2e 45 78 74 72 61 50 72 |tings[i]|.ExtraPr|
|00000500| 69 76 20 21 3d 20 22 22 | 20 26 26 20 49 6e 53 74 |iv != ""| && InSt|
|00000510| 72 28 4e 65 65 64 65 64 | 50 72 69 76 73 2c 20 47 |r(Needed|Privs, G|
|00000520| 61 6d 65 50 49 2e 53 65 | 74 74 69 6e 67 73 5b 69 |amePI.Se|ttings[i|
|00000530| 5d 2e 45 78 74 72 61 50 | 72 69 76 29 20 3d 3d 20 |].ExtraP|riv) == |
|00000540| 2d 31 29 0d 0a 09 09 09 | 4e 65 65 64 65 64 50 72 |-1).....|NeededPr|
|00000550| 69 76 73 20 3d 20 4e 65 | 65 64 65 64 50 72 69 76 |ivs = Ne|ededPriv|
|00000560| 73 20 24 20 22 7c 22 20 | 24 20 47 61 6d 65 50 49 |s $ "|" |$ GamePI|
|00000570| 2e 53 65 74 74 69 6e 67 | 73 5b 69 5d 2e 45 78 74 |.Setting|s[i].Ext|
|00000580| 72 61 50 72 69 76 3b 0d | 0a 0d 0a 09 72 65 74 75 |raPriv;.|....retu|
|00000590| 72 6e 20 74 72 75 65 3b | 0d 0a 7d 0d 0a 0d 0a 66 |rn true;|..}....f|
|000005a0| 75 6e 63 74 69 6f 6e 20 | 62 6f 6f 6c 20 51 75 65 |unction |bool Que|
|000005b0| 72 79 28 57 65 62 52 65 | 71 75 65 73 74 20 52 65 |ry(WebRe|quest Re|
|000005c0| 71 75 65 73 74 2c 20 57 | 65 62 52 65 73 70 6f 6e |quest, W|ebRespon|
|000005d0| 73 65 20 52 65 73 70 6f | 6e 73 65 29 0d 0a 7b 0d |se Respo|nse)..{.|
|000005e0| 0a 09 69 66 20 28 21 43 | 61 6e 50 65 72 66 6f 72 |..if (!C|anPerfor|
|000005f0| 6d 28 4e 65 65 64 65 64 | 50 72 69 76 73 29 29 0d |m(Needed|Privs)).|
|00000600| 0a 09 09 72 65 74 75 72 | 6e 20 66 61 6c 73 65 3b |...retur|n false;|
|00000610| 0d 0a 0d 0a 09 4d 61 70 | 54 69 74 6c 65 28 52 65 |.....Map|Title(Re|
|00000620| 73 70 6f 6e 73 65 29 3b | 0d 0a 0d 0a 09 73 77 69 |sponse);|.....swi|
|00000630| 74 63 68 20 28 4d 69 64 | 28 52 65 71 75 65 73 74 |tch (Mid|(Request|
|00000640| 2e 55 52 49 2c 20 31 29 | 29 0d 0a 09 7b 0d 0a 09 |.URI, 1)|)...{...|
|00000650| 63 61 73 65 20 44 65 66 | 61 75 6c 74 50 61 67 65 |case Def|aultPage|
|00000660| 3a 09 09 09 51 75 65 72 | 79 44 65 66 61 75 6c 74 |:...Quer|yDefault|
|00000670| 73 28 52 65 71 75 65 73 | 74 2c 20 52 65 73 70 6f |s(Reques|t, Respo|
|00000680| 6e 73 65 29 3b 20 72 65 | 74 75 72 6e 20 74 72 75 |nse); re|turn tru|
|00000690| 65 3b 09 09 2f 2f 20 44 | 6f 6e 65 20 3a 20 47 65 |e;..// D|one : Ge|
|000006a0| 6e 65 72 61 6c 0d 0a 09 | 63 61 73 65 20 44 65 66 |neral...|case Def|
|000006b0| 61 75 6c 74 73 49 6e 64 | 65 78 50 61 67 65 3a 09 |aultsInd|exPage:.|
|000006c0| 09 51 75 65 72 79 44 65 | 66 61 75 6c 74 73 4d 65 |.QueryDe|faultsMe|
|000006d0| 6e 75 28 52 65 71 75 65 | 73 74 2c 20 52 65 73 70 |nu(Reque|st, Resp|
|000006e0| 6f 6e 73 65 29 3b 20 72 | 65 74 75 72 6e 20 74 72 |onse); r|eturn tr|
|000006f0| 75 65 3b 2f 2f 20 44 6f | 6e 65 20 3a 20 47 65 6e |ue;// Do|ne : Gen|
|00000700| 65 72 61 6c 0d 0a 09 63 | 61 73 65 20 44 65 66 61 |eral...c|ase Defa|
|00000710| 75 6c 74 73 4d 61 70 73 | 50 61 67 65 3a 09 09 69 |ultsMaps|Page:..i|
|00000720| 66 20 28 21 4d 61 70 49 | 73 43 68 61 6e 67 69 6e |f (!MapI|sChangin|
|00000730| 67 28 29 29 20 51 75 65 | 72 79 44 65 66 61 75 6c |g()) Que|ryDefaul|
|00000740| 74 73 4d 61 70 73 28 52 | 65 71 75 65 73 74 2c 20 |tsMaps(R|equest, |
|00000750| 52 65 73 70 6f 6e 73 65 | 29 3b 20 72 65 74 75 72 |Response|); retur|
|00000760| 6e 20 74 72 75 65 3b 0d | 0a 09 63 61 73 65 20 44 |n true;.|..case D|
|00000770| 65 66 61 75 6c 74 73 52 | 75 6c 65 73 50 61 67 65 |efaultsR|ulesPage|
|00000780| 3a 09 09 69 66 20 28 21 | 4d 61 70 49 73 43 68 61 |:..if (!|MapIsCha|
|00000790| 6e 67 69 6e 67 28 29 29 | 20 51 75 65 72 79 44 65 |nging())| QueryDe|
|000007a0| 66 61 75 6c 74 73 52 75 | 6c 65 73 28 52 65 71 75 |faultsRu|les(Requ|
|000007b0| 65 73 74 2c 20 52 65 73 | 70 6f 6e 73 65 29 3b 20 |est, Res|ponse); |
|000007c0| 72 65 74 75 72 6e 20 74 | 72 75 65 3b 0d 0a 09 63 |return t|rue;...c|
|000007d0| 61 73 65 20 44 65 66 61 | 75 6c 74 73 49 50 50 6f |ase Defa|ultsIPPo|
|000007e0| 6c 69 63 79 50 61 67 65 | 3a 09 69 66 20 28 21 4d |licyPage|:.if (!M|
|000007f0| 61 70 49 73 43 68 61 6e | 67 69 6e 67 28 29 29 20 |apIsChan|ging()) |
|00000800| 51 75 65 72 79 44 65 66 | 61 75 6c 74 73 49 50 50 |QueryDef|aultsIPP|
|00000810| 6f 6c 69 63 79 28 52 65 | 71 75 65 73 74 2c 20 52 |olicy(Re|quest, R|
|00000820| 65 73 70 6f 6e 73 65 29 | 3b 20 72 65 74 75 72 6e |esponse)|; return|
|00000830| 20 74 72 75 65 3b 0d 0a | 09 63 61 73 65 20 44 65 | true;..|.case De|
|00000840| 66 61 75 6c 74 73 52 65 | 73 74 61 72 74 50 61 67 |faultsRe|startPag|
|00000850| 65 3a 09 69 66 20 28 21 | 4d 61 70 49 73 43 68 61 |e:.if (!|MapIsCha|
|00000860| 6e 67 69 6e 67 28 29 29 | 20 51 75 65 72 79 52 65 |nging())| QueryRe|
|00000870| 73 74 61 72 74 50 61 67 | 65 28 52 65 71 75 65 73 |startPag|e(Reques|
|00000880| 74 2c 20 52 65 73 70 6f | 6e 73 65 29 3b 20 72 65 |t, Respo|nse); re|
|00000890| 74 75 72 6e 20 74 72 75 | 65 3b 0d 0a 09 7d 0d 0a |turn tru|e;...}..|
|000008a0| 09 72 65 74 75 72 6e 20 | 66 61 6c 73 65 3b 0d 0a |.return |false;..|
|000008b0| 7d 0d 0a 0d 0a 2f 2f 2a | 2a 2a 2a 2a 2a 2a 2a 2a |}....//*|********|
|000008c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000900| 2a 2a 2a 2a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 51 |****..fu|nction Q|
|00000910| 75 65 72 79 44 65 66 61 | 75 6c 74 73 28 57 65 62 |ueryDefa|ults(Web|
|00000920| 52 65 71 75 65 73 74 20 | 52 65 71 75 65 73 74 2c |Request |Request,|
|00000930| 20 57 65 62 52 65 73 70 | 6f 6e 73 65 20 52 65 73 | WebResp|onse Res|
|00000940| 70 6f 6e 73 65 29 0d 0a | 7b 0d 0a 09 6c 6f 63 61 |ponse)..|{...loca|
|00000950| 6c 20 53 74 72 69 6e 67 | 20 47 61 6d 65 54 79 70 |l String| GameTyp|
|00000960| 65 2c 20 50 61 67 65 53 | 74 72 2c 20 46 69 6c 74 |e, PageS|tr, Filt|
|00000970| 65 72 3b 0d 0a 0d 0a 09 | 2f 2f 20 69 66 20 6e 6f |er;.....|// if no|
|00000980| 20 67 61 6d 65 74 79 70 | 65 20 73 70 65 63 69 66 | gametyp|e specif|
|00000990| 69 65 64 20 75 73 65 20 | 74 68 65 20 66 69 72 73 |ied use |the firs|
|000009a0| 74 20 6f 6e 65 20 69 6e | 20 74 68 65 20 6c 69 73 |t one in| the lis|
|000009b0| 74 0d 0a 09 47 61 6d 65 | 54 79 70 65 20 3d 20 52 |t...Game|Type = R|
|000009c0| 65 71 75 65 73 74 2e 47 | 65 74 56 61 72 69 61 62 |equest.G|etVariab|
|000009d0| 6c 65 28 22 47 61 6d 65 | 54 79 70 65 22 2c 20 53 |le("Game|Type", S|
|000009e0| 74 72 69 6e 67 28 4c 65 | 76 65 6c 2e 47 61 6d 65 |tring(Le|vel.Game|
|000009f0| 2e 43 6c 61 73 73 29 29 | 3b 0d 0a 0d 0a 09 2f 2f |.Class))|;.....//|
|00000a00| 20 69 66 20 6e 6f 20 70 | 61 67 65 20 73 70 65 63 | if no p|age spec|
|00000a10| 69 66 69 65 64 2c 20 75 | 73 65 20 74 68 65 20 66 |ified, u|se the f|
|00000a20| 69 72 73 74 20 6f 6e 65 | 0d 0a 09 50 61 67 65 53 |irst one|...PageS|
|00000a30| 74 72 20 3d 20 52 65 71 | 75 65 73 74 2e 47 65 74 |tr = Req|uest.Get|
|00000a40| 56 61 72 69 61 62 6c 65 | 28 22 50 61 67 65 22 2c |Variable|("Page",|
|00000a50| 20 44 65 66 61 75 6c 74 | 73 4d 61 70 73 50 61 67 | Default|sMapsPag|
|00000a60| 65 29 3b 0d 0a 09 46 69 | 6c 74 65 72 20 3d 20 53 |e);...Fi|lter = S|
|00000a70| 74 72 69 6e 67 49 66 28 | 52 65 71 75 65 73 74 2e |tringIf(|Request.|
|00000a80| 47 65 74 56 61 72 69 61 | 62 6c 65 28 22 46 69 6c |GetVaria|ble("Fil|
|00000a90| 74 65 72 22 29 20 21 3d | 20 22 22 2c 20 22 26 46 |ter") !=| "", "&F|
|00000aa0| 69 6c 74 65 72 3d 22 24 | 20 52 65 71 75 65 73 74 |ilter="$| Request|
|00000ab0| 2e 47 65 74 56 61 72 69 | 61 62 6c 65 28 22 46 69 |.GetVari|able("Fi|
|00000ac0| 6c 74 65 72 22 29 2c 20 | 22 22 29 3b 0d 0a 0d 0a |lter"), |"");....|
|00000ad0| 09 52 65 73 70 6f 6e 73 | 65 2e 53 75 62 73 74 28 |.Respons|e.Subst(|
|00000ae0| 22 49 6e 64 65 78 55 52 | 49 22 2c 20 09 44 65 66 |"IndexUR|I", .Def|
|00000af0| 61 75 6c 74 73 49 6e 64 | 65 78 50 61 67 65 20 24 |aultsInd|exPage $|
|00000b00| 20 22 3f 47 61 6d 65 54 | 79 70 65 3d 22 20 24 20 | "?GameT|ype=" $ |
|00000b10| 47 61 6d 65 54 79 70 65 | 20 24 20 22 26 50 61 67 |GameType| $ "&Pag|
|00000b20| 65 3d 22 20 24 20 50 61 | 67 65 53 74 72 20 24 20 |e=" $ Pa|geStr $ |
|00000b30| 46 69 6c 74 65 72 29 3b | 0d 0a 09 52 65 73 70 6f |Filter);|...Respo|
|00000b40| 6e 73 65 2e 53 75 62 73 | 74 28 22 4d 61 69 6e 55 |nse.Subs|t("MainU|
|00000b50| 52 49 22 2c 20 09 50 61 | 67 65 53 74 72 20 24 20 |RI", .Pa|geStr $ |
|00000b60| 22 3f 47 61 6d 65 54 79 | 70 65 3d 22 20 24 47 61 |"?GameTy|pe=" $Ga|
|00000b70| 6d 65 54 79 70 65 20 24 | 20 46 69 6c 74 65 72 29 |meType $| Filter)|
|00000b80| 3b 0d 0a 0d 0a 09 53 68 | 6f 77 46 72 61 6d 65 28 |;.....Sh|owFrame(|
|00000b90| 52 65 73 70 6f 6e 73 65 | 2c 20 44 65 66 61 75 6c |Response|, Defaul|
|00000ba0| 74 50 61 67 65 29 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 |tPage);.|.}....fu|
|00000bb0| 6e 63 74 69 6f 6e 20 51 | 75 65 72 79 44 65 66 61 |nction Q|ueryDefa|
|00000bc0| 75 6c 74 73 4d 65 6e 75 | 28 57 65 62 52 65 71 75 |ultsMenu|(WebRequ|
|00000bd0| 65 73 74 20 52 65 71 75 | 65 73 74 2c 20 57 65 62 |est Requ|est, Web|
|00000be0| 52 65 73 70 6f 6e 73 65 | 20 52 65 73 70 6f 6e 73 |Response| Respons|
|00000bf0| 65 29 0d 0a 7b 0d 0a 6c | 6f 63 61 6c 20 73 74 72 |e)..{..l|ocal str|
|00000c00| 69 6e 67 09 47 61 6d 65 | 54 79 70 65 2c 20 50 61 |ing.Game|Type, Pa|
|00000c10| 67 65 2c 20 54 65 6d 70 | 53 74 72 2c 20 43 6f 6e |ge, Temp|Str, Con|
|00000c20| 74 65 6e 74 3b 0d 0a 6c | 6f 63 61 6c 20 69 6e 74 |tent;..l|ocal int|
|00000c30| 20 69 3b 0d 0a 0d 0a 09 | 47 61 6d 65 54 79 70 65 | i;.....|GameType|
|00000c40| 20 3d 20 53 65 74 47 61 | 6d 65 50 49 28 52 65 71 | = SetGa|mePI(Req|
|00000c50| 75 65 73 74 2e 47 65 74 | 56 61 72 69 61 62 6c 65 |uest.Get|Variable|
|00000c60| 28 22 47 61 6d 65 54 79 | 70 65 22 2c 20 73 74 72 |("GameTy|pe", str|
|00000c70| 69 6e 67 28 4c 65 76 65 | 6c 2e 47 61 6d 65 2e 43 |ing(Leve|l.Game.C|
|00000c80| 6c 61 73 73 29 29 29 3b | 0d 0a 09 50 61 67 65 20 |lass)));|...Page |
|00000c90| 3d 20 52 65 71 75 65 73 | 74 2e 47 65 74 56 61 72 |= Reques|t.GetVar|
|00000ca0| 69 61 62 6c 65 28 22 50 | 61 67 65 22 29 3b 0d 0a |iable("P|age");..|
|00000cb0| 0d 0a 09 2f 2f 20 73 65 | 74 20 63 75 72 72 65 6e |...// se|t curren|
|00000cc0| 74 6c 79 20 61 63 74 69 | 76 65 20 70 61 67 65 0d |tly acti|ve page.|
|00000cd0| 0a 09 69 66 20 28 43 61 | 6e 50 65 72 66 6f 72 6d |..if (Ca|nPerform|
|00000ce0| 28 22 47 74 22 29 29 0d | 0a 09 7b 0d 0a 09 09 69 |("Gt")).|..{....i|
|00000cf0| 66 20 28 52 65 71 75 65 | 73 74 2e 47 65 74 56 61 |f (Reque|st.GetVa|
|00000d00| 72 69 61 62 6c 65 28 22 | 47 61 6d 65 54 79 70 65 |riable("|GameType|
|00000d10| 53 65 74 22 2c 20 22 22 | 29 20 21 3d 20 22 22 29 |Set", ""|) != "")|
|00000d20| 0d 0a 09 09 7b 0d 0a 09 | 09 09 54 65 6d 70 53 74 |....{...|..TempSt|
|00000d30| 72 20 3d 20 52 65 71 75 | 65 73 74 2e 47 65 74 56 |r = Requ|est.GetV|
|00000d40| 61 72 69 61 62 6c 65 28 | 22 47 61 6d 65 54 79 70 |ariable(|"GameTyp|
|00000d50| 65 53 65 6c 65 63 74 22 | 2c 20 47 61 6d 65 54 79 |eSelect"|, GameTy|
|00000d60| 70 65 29 3b 0d 0a 09 09 | 09 69 66 20 28 21 28 54 |pe);....|.if (!(T|
|00000d70| 65 6d 70 53 74 72 20 7e | 3d 20 47 61 6d 65 54 79 |empStr ~|= GameTy|
|00000d80| 70 65 29 29 0d 0a 09 09 | 09 09 47 61 6d 65 54 79 |pe))....|..GameTy|
|00000d90| 70 65 20 3d 20 54 65 6d | 70 53 74 72 3b 0d 0a 09 |pe = Tem|pStr;...|
|00000da0| 09 7d 0d 0a 0d 0a 09 09 | 52 65 73 70 6f 6e 73 65 |.}......|Response|
|00000db0| 2e 53 75 62 73 74 28 22 | 47 61 6d 65 54 79 70 65 |.Subst("|GameType|
|00000dc0| 42 75 74 74 6f 6e 22 2c | 20 53 75 62 6d 69 74 42 |Button",| SubmitB|
|00000dd0| 75 74 74 6f 6e 28 22 47 | 61 6d 65 54 79 70 65 53 |utton("G|ameTypeS|
|00000de0| 65 74 22 2c 20 55 70 64 | 61 74 65 29 29 3b 0d 0a |et", Upd|ate));..|
|00000df0| 09 09 52 65 73 70 6f 6e | 73 65 2e 53 75 62 73 74 |..Respon|se.Subst|
|00000e00| 28 22 47 61 6d 65 54 79 | 70 65 53 65 6c 65 63 74 |("GameTy|peSelect|
|00000e10| 22 2c 20 53 65 6c 65 63 | 74 28 22 47 61 6d 65 54 |", Selec|t("GameT|
|00000e20| 79 70 65 22 2c 20 47 65 | 6e 65 72 61 74 65 47 61 |ype", Ge|nerateGa|
|00000e30| 6d 65 54 79 70 65 4f 70 | 74 69 6f 6e 73 28 47 61 |meTypeOp|tions(Ga|
|00000e40| 6d 65 54 79 70 65 29 29 | 29 3b 0d 0a 09 7d 0d 0a |meType))|);...}..|
|00000e50| 09 65 6c 73 65 0d 0a 09 | 09 52 65 73 70 6f 6e 73 |.else...|.Respons|
|00000e60| 65 2e 53 75 62 73 74 28 | 22 47 61 6d 65 54 79 70 |e.Subst(|"GameTyp|
|00000e70| 65 53 65 6c 65 63 74 22 | 2c 20 4c 65 76 65 6c 2e |eSelect"|, Level.|
|00000e80| 47 61 6d 65 2e 44 65 66 | 61 75 6c 74 2e 47 61 6d |Game.Def|ault.Gam|
|00000e90| 65 4e 61 6d 65 29 3b 0d | 0a 0d 0a 09 2f 2f 20 73 |eName);.|....// s|
|00000ea0| 65 74 20 62 61 63 6b 67 | 72 6f 75 6e 64 20 63 6f |et backg|round co|
|00000eb0| 6c 6f 72 73 0d 0a 09 52 | 65 73 70 6f 6e 73 65 2e |lors...R|esponse.|
|00000ec0| 53 75 62 73 74 28 22 44 | 65 66 61 75 6c 74 42 47 |Subst("D|efaultBG|
|00000ed0| 22 2c 20 44 65 66 61 75 | 6c 74 42 47 29 3b 09 2f |", Defau|ltBG);./|
|00000ee0| 2f 20 66 6f 72 20 75 6e | 75 73 65 64 20 74 61 62 |/ for un|used tab|
|00000ef0| 73 0d 0a 0d 0a 09 2f 2f | 20 53 65 74 20 55 52 49 |s.....//| Set URI|
|00000f00| 73 0d 0a 09 43 6f 6e 74 | 65 6e 74 20 3d 20 4d 61 |s...Cont|ent = Ma|
|00000f10| 6b 65 4d 65 6e 75 52 6f | 77 28 52 65 73 70 6f 6e |keMenuRo|w(Respon|
|00000f20| 73 65 2c 20 47 61 6d 65 | 54 79 70 65 20 24 20 22 |se, Game|Type $ "|
|00000f30| 26 50 61 67 65 3d 22 20 | 24 20 44 65 66 61 75 6c |&Page=" |$ Defaul|
|00000f40| 74 73 4d 61 70 73 50 61 | 67 65 2c 20 44 65 66 61 |tsMapsPa|ge, Defa|
|00000f50| 75 6c 74 73 4d 61 70 73 | 4c 69 6e 6b 29 3b 0d 0a |ultsMaps|Link);..|
|00000f60| 09 66 6f 72 20 28 69 20 | 3d 20 30 3b 20 69 3c 47 |.for (i |= 0; i<G|
|00000f70| 61 6d 65 50 49 2e 47 72 | 6f 75 70 73 2e 4c 65 6e |amePI.Gr|oups.Len|
|00000f80| 67 74 68 3b 20 69 2b 2b | 29 0d 0a 09 09 43 6f 6e |gth; i++|)....Con|
|00000f90| 74 65 6e 74 20 3d 20 43 | 6f 6e 74 65 6e 74 20 24 |tent = C|ontent $|
|00000fa0| 20 4d 61 6b 65 4d 65 6e | 75 52 6f 77 28 52 65 73 | MakeMen|uRow(Res|
|00000fb0| 70 6f 6e 73 65 2c 20 47 | 61 6d 65 54 79 70 65 20 |ponse, G|ameType |
|00000fc0| 24 20 22 26 50 61 67 65 | 3d 22 20 24 20 44 65 66 |$ "&Page|=" $ Def|
|00000fd0| 61 75 6c 74 73 52 75 6c | 65 73 50 61 67 65 20 24 |aultsRul|esPage $|
|00000fe0| 20 22 26 46 69 6c 74 65 | 72 3d 22 20 24 20 47 61 | "&Filte|r=" $ Ga|
|00000ff0| 6d 65 50 49 2e 47 72 6f | 75 70 73 5b 69 5d 2c 20 |mePI.Gro|ups[i], |
|00001000| 47 61 6d 65 50 49 2e 47 | 72 6f 75 70 73 5b 69 5d |GamePI.G|roups[i]|
|00001010| 29 3b 0d 0a 0d 0a 09 43 | 6f 6e 74 65 6e 74 20 3d |);.....C|ontent =|
|00001020| 20 43 6f 6e 74 65 6e 74 | 20 24 20 4d 61 6b 65 4d | Content| $ MakeM|
|00001030| 65 6e 75 52 6f 77 28 52 | 65 73 70 6f 6e 73 65 2c |enuRow(R|esponse,|
|00001040| 20 47 61 6d 65 54 79 70 | 65 20 24 20 22 26 50 61 | GameTyp|e $ "&Pa|
|00001050| 67 65 3d 22 20 24 20 44 | 65 66 61 75 6c 74 73 49 |ge=" $ D|efaultsI|
|00001060| 50 50 6f 6c 69 63 79 50 | 61 67 65 2c 20 44 65 66 |PPolicyP|age, Def|
|00001070| 61 75 6c 74 73 49 50 50 | 6f 6c 69 63 79 4c 69 6e |aultsIPP|olicyLin|
|00001080| 6b 29 3b 0d 0a 09 43 6f | 6e 74 65 6e 74 20 3d 20 |k);...Co|ntent = |
|00001090| 43 6f 6e 74 65 6e 74 20 | 24 20 22 3c 62 72 3e 22 |Content |$ "<br>"|
|000010a0| 20 24 20 4d 61 6b 65 4d | 65 6e 75 52 6f 77 28 52 | $ MakeM|enuRow(R|
|000010b0| 65 73 70 6f 6e 73 65 2c | 20 47 61 6d 65 54 79 70 |esponse,| GameTyp|
|000010c0| 65 20 24 20 22 26 50 61 | 67 65 3d 22 20 24 20 44 |e $ "&Pa|ge=" $ D|
|000010d0| 65 66 61 75 6c 74 73 52 | 65 73 74 61 72 74 50 61 |efaultsR|estartPa|
|000010e0| 67 65 2c 20 44 65 66 61 | 75 6c 74 73 52 65 73 74 |ge, Defa|ultsRest|
|000010f0| 61 72 74 4c 69 6e 6b 29 | 3b 0d 0a 0d 0a 09 52 65 |artLink)|;.....Re|
|00001100| 73 70 6f 6e 73 65 2e 53 | 75 62 73 74 28 22 43 6f |sponse.S|ubst("Co|
|00001110| 6e 74 65 6e 74 22 2c 20 | 43 6f 6e 74 65 6e 74 29 |ntent", |Content)|
|00001120| 3b 0d 0a 09 52 65 73 70 | 6f 6e 73 65 2e 53 75 62 |;...Resp|onse.Sub|
|00001130| 73 74 28 22 46 69 6c 74 | 65 72 22 2c 20 52 65 71 |st("Filt|er", Req|
|00001140| 75 65 73 74 2e 47 65 74 | 56 61 72 69 61 62 6c 65 |uest.Get|Variable|
|00001150| 28 22 46 69 6c 74 65 72 | 22 2c 20 22 22 29 29 3b |("Filter|", ""));|
|00001160| 0d 0a 09 52 65 73 70 6f | 6e 73 65 2e 53 75 62 73 |...Respo|nse.Subs|
|00001170| 74 28 22 50 61 67 65 22 | 2c 20 50 61 67 65 29 3b |t("Page"|, Page);|
|00001180| 0d 0a 09 52 65 73 70 6f | 6e 73 65 2e 53 75 62 73 |...Respo|nse.Subs|
|00001190| 74 28 22 50 6f 73 74 41 | 63 74 69 6f 6e 22 2c 20 |t("PostA|ction", |
|000011a0| 44 65 66 61 75 6c 74 50 | 61 67 65 29 3b 0d 0a 09 |DefaultP|age);...|
|000011b0| 53 68 6f 77 50 61 67 65 | 28 52 65 73 70 6f 6e 73 |ShowPage|(Respons|
|000011c0| 65 2c 20 44 65 66 61 75 | 6c 74 73 49 6e 64 65 78 |e, Defau|ltsIndex|
|000011d0| 50 61 67 65 29 3b 0d 0a | 7d 0d 0a 0d 0a 2f 2f 20 |Page);..|}....// |
|000011e0| 54 4f 44 4f 3a 20 61 64 | 64 20 68 69 67 68 6c 69 |TODO: ad|d highli|
|000011f0| 67 68 74 20 63 6f 64 65 | 0d 0a 66 75 6e 63 74 69 |ght code|..functi|
|00001200| 6f 6e 20 73 74 72 69 6e | 67 20 4d 61 6b 65 4d 65 |on strin|g MakeMe|
|00001210| 6e 75 52 6f 77 28 57 65 | 62 52 65 73 70 6f 6e 73 |nuRow(We|bRespons|
|00001220| 65 20 52 65 73 70 6f 6e | 73 65 2c 20 73 74 72 69 |e Respon|se, stri|
|00001230| 6e 67 20 55 52 49 2c 20 | 73 74 72 69 6e 67 20 54 |ng URI, |string T|
|00001240| 69 74 6c 65 29 0d 0a 7b | 0d 0a 09 52 65 73 70 6f |itle)..{|...Respo|
|00001250| 6e 73 65 2e 53 75 62 73 | 74 28 22 55 52 49 22 2c |nse.Subs|t("URI",|
|00001260| 20 44 65 66 61 75 6c 74 | 50 61 67 65 20 24 20 22 | Default|Page $ "|
|00001270| 3f 47 61 6d 65 54 79 70 | 65 3d 22 20 24 20 55 52 |?GameTyp|e=" $ UR|
|00001280| 49 29 3b 0d 0a 09 52 65 | 73 70 6f 6e 73 65 2e 53 |I);...Re|sponse.S|
|00001290| 75 62 73 74 28 22 55 52 | 49 54 65 78 74 22 2c 20 |ubst("UR|IText", |
|000012a0| 54 69 74 6c 65 29 3b 0d | 0a 09 72 65 74 75 72 6e |Title);.|..return|
|000012b0| 20 57 65 62 49 6e 63 6c | 75 64 65 28 22 64 65 66 | WebIncl|ude("def|
|000012c0| 61 75 6c 74 73 5f 6d 65 | 6e 75 5f 72 6f 77 22 29 |aults_me|nu_row")|
|000012d0| 3b 0d 0a 7d 0d 0a 0d 0a | 66 75 6e 63 74 69 6f 6e |;..}....|function|
|000012e0| 20 51 75 65 72 79 44 65 | 66 61 75 6c 74 73 4d 61 | QueryDe|faultsMa|
|000012f0| 70 73 28 57 65 62 52 65 | 71 75 65 73 74 20 52 65 |ps(WebRe|quest Re|
|00001300| 71 75 65 73 74 2c 20 57 | 65 62 52 65 73 70 6f 6e |quest, W|ebRespon|
|00001310| 73 65 20 52 65 73 70 6f | 6e 73 65 29 0d 0a 7b 0d |se Respo|nse)..{.|
|00001320| 0a 6c 6f 63 61 6c 20 53 | 74 72 69 6e 67 20 47 61 |.local S|tring Ga|
|00001330| 6d 65 54 79 70 65 2c 20 | 4c 69 73 74 4e 61 6d 65 |meType, |ListName|
|00001340| 2c 20 54 6d 70 2c 20 4d | 61 70 4e 61 6d 65 3b 0d |, Tmp, M|apName;.|
|00001350| 0a 0d 0a 2f 2f 20 53 74 | 72 69 6e 67 73 20 63 6f |...// St|rings co|
|00001360| 6e 74 61 69 6e 69 6e 67 | 20 67 65 6e 65 72 61 74 |ntaining| generat|
|00001370| 65 64 20 68 74 6d 6c 20 | 28 70 6f 73 73 69 62 6c |ed html |(possibl|
|00001380| 79 20 6d 6f 76 65 20 74 | 6f 20 2e 69 6e 63 3f 29 |y move t|o .inc?)|
|00001390| 0d 0a 6c 6f 63 61 6c 20 | 73 74 72 69 6e 67 20 43 |..local |string C|
|000013a0| 75 73 74 6f 6d 4d 61 70 | 53 65 6c 65 63 74 3b 0d |ustomMap|Select;.|
|000013b0| 0a 6c 6f 63 61 6c 20 53 | 74 72 69 6e 67 41 72 72 |.local S|tringArr|
|000013c0| 61 79 20 45 78 63 6c 75 | 64 65 4d 61 70 73 2c 20 |ay Exclu|deMaps, |
|000013d0| 49 6e 63 6c 75 64 65 4d | 61 70 73 2c 20 4d 6f 76 |IncludeM|aps, Mov|
|000013e0| 65 64 4d 61 70 73 3b 0d | 0a 6c 6f 63 61 6c 20 69 |edMaps;.|.local i|
|000013f0| 6e 74 20 69 2c 20 43 6f | 75 6e 74 2c 20 4d 6f 76 |nt i, Co|unt, Mov|
|00001400| 65 43 6f 75 6e 74 2c 20 | 69 64 2c 20 43 75 72 72 |eCount, |id, Curr|
|00001410| 65 6e 74 4c 69 73 74 2c | 20 49 6e 64 65 78 3b 0d |entList,| Index;.|
|00001420| 0a 6c 6f 63 61 6c 20 61 | 72 72 61 79 3c 73 74 72 |.local a|rray<str|
|00001430| 69 6e 67 3e 20 41 72 72 | 3b 0d 0a 0d 0a 09 69 66 |ing> Arr|;.....if|
|00001440| 20 28 43 61 6e 50 65 72 | 66 6f 72 6d 28 22 4d 6c | (CanPer|form("Ml|
|00001450| 22 29 29 0d 0a 09 7b 0d | 0a 09 09 47 61 6d 65 54 |"))...{.|...GameT|
|00001460| 79 70 65 20 3d 20 52 65 | 71 75 65 73 74 2e 47 65 |ype = Re|quest.Ge|
|00001470| 74 56 61 72 69 61 62 6c | 65 28 22 47 61 6d 65 54 |tVariabl|e("GameT|
|00001480| 79 70 65 22 29 3b 09 2f | 2f 20 70 72 6f 76 69 64 |ype");./|/ provid|
|00001490| 65 64 20 62 79 20 69 6e | 64 65 78 20 70 61 67 65 |ed by in|dex page|
|000014a0| 0d 0a 09 09 49 6e 64 65 | 78 20 3d 20 4d 61 70 48 |....Inde|x = MapH|
|000014b0| 61 6e 64 6c 65 72 2e 47 | 65 74 47 61 6d 65 49 6e |andler.G|etGameIn|
|000014c0| 64 65 78 28 47 61 6d 65 | 54 79 70 65 29 3b 0d 0a |dex(Game|Type);..|
|000014d0| 09 09 2f 2f 20 47 65 74 | 20 69 6e 64 65 78 20 6f |..// Get| index o|
|000014e0| 66 20 6d 61 70 6c 69 73 | 74 20 66 72 6f 6d 20 73 |f maplis|t from s|
|000014f0| 65 6c 65 63 74 0d 0a 09 | 09 54 6d 70 20 3d 20 52 |elect...|.Tmp = R|
|00001500| 65 71 75 65 73 74 2e 47 | 65 74 56 61 72 69 61 62 |equest.G|etVariab|
|00001510| 6c 65 28 22 4d 61 70 4c | 69 73 74 4e 75 6d 22 29 |le("MapL|istNum")|
|00001520| 3b 0d 0a 0d 0a 09 09 2f | 2f 20 4d 61 79 62 65 20 |;....../|/ Maybe |
|00001530| 76 69 65 77 69 6e 67 20 | 61 20 6e 6f 6e 2d 61 63 |viewing |a non-ac|
|00001540| 74 69 76 65 20 6c 69 73 | 74 0d 0a 09 09 69 66 20 |tive lis|t....if |
|00001550| 28 54 6d 70 20 21 3d 20 | 22 22 29 0d 0a 09 09 09 |(Tmp != |"").....|
|00001560| 43 75 72 72 65 6e 74 4c | 69 73 74 20 3d 20 69 6e |CurrentL|ist = in|
|00001570| 74 28 54 6d 70 29 3b 0d | 0a 0d 0a 09 09 65 6c 73 |t(Tmp);.|.....els|
|00001580| 65 20 43 75 72 72 65 6e | 74 4c 69 73 74 20 3d 20 |e Curren|tList = |
|00001590| 4d 61 70 48 61 6e 64 6c | 65 72 2e 47 65 74 41 63 |MapHandl|er.GetAc|
|000015a0| 74 69 76 65 4c 69 73 74 | 28 49 6e 64 65 78 29 3b |tiveList|(Index);|
|000015b0| 0d 0a 09 09 4c 69 73 74 | 4e 61 6d 65 20 3d 20 4d |....List|Name = M|
|000015c0| 61 70 48 61 6e 64 6c 65 | 72 2e 47 65 74 4d 61 70 |apHandle|r.GetMap|
|000015d0| 4c 69 73 74 54 69 74 6c | 65 28 49 6e 64 65 78 2c |ListTitl|e(Index,|
|000015e0| 20 43 75 72 72 65 6e 74 | 4c 69 73 74 29 3b 0d 0a | Current|List);..|
|000015f0| 0d 0a 09 09 2f 2f 20 41 | 76 61 69 6c 61 62 6c 65 |....// A|vailable|
|00001600| 20 6d 61 70 6c 69 73 74 | 73 0d 0a 09 09 45 78 63 | maplist|s....Exc|
|00001610| 6c 75 64 65 4d 61 70 73 | 20 3d 20 52 65 6c 6f 61 |ludeMaps| = Reloa|
|00001620| 64 45 78 63 6c 75 64 65 | 4d 61 70 73 28 47 61 6d |dExclude|Maps(Gam|
|00001630| 65 54 79 70 65 29 3b 0d | 0a 09 09 49 6e 63 6c 75 |eType);.|...Inclu|
|00001640| 64 65 4d 61 70 73 20 3d | 20 52 65 6c 6f 61 64 49 |deMaps =| ReloadI|
|00001650| 6e 63 6c 75 64 65 4d 61 | 70 73 28 45 78 63 6c 75 |ncludeMa|ps(Exclu|
|00001660| 64 65 4d 61 70 73 2c 20 | 49 6e 64 65 78 2c 20 43 |deMaps, |Index, C|
|00001670| 75 72 72 65 6e 74 4c 69 | 73 74 29 3b 0d 0a 09 09 |urrentLi|st);....|
|00001680| 4d 6f 76 65 64 4d 61 70 | 73 20 3d 20 4e 65 77 28 |MovedMap|s = New(|
|00001690| 4e 6f 6e 65 29 20 63 6c | 61 73 73 27 53 6f 72 74 |None) cl|ass'Sort|
|000016a0| 65 64 53 74 72 69 6e 67 | 41 72 72 61 79 27 3b 0d |edString|Array';.|
|000016b0| 0a 0d 0a 09 09 54 6d 70 | 20 3d 20 52 65 71 75 65 |.....Tmp| = Reque|
|000016c0| 73 74 2e 47 65 74 56 61 | 72 69 61 62 6c 65 28 22 |st.GetVa|riable("|
|000016d0| 4d 6f 76 65 4d 61 70 22 | 2c 22 22 29 3b 0d 0a 0d |MoveMap"|,"");...|
|000016e0| 0a 09 09 2f 2f 20 49 66 | 20 6e 61 6d 65 20 69 6e |...// If| name in|
|000016f0| 20 74 65 78 74 62 6f 78 | 20 69 73 6e 27 74 20 74 | textbox| isn't t|
|00001700| 68 65 20 73 61 6d 65 20 | 61 73 20 74 68 65 20 6e |he same |as the n|
|00001710| 61 6d 65 20 6f 66 20 74 | 68 65 20 61 63 74 69 76 |ame of t|he activ|
|00001720| 65 20 6c 69 73 74 2c 0d | 0a 09 09 2f 2f 20 61 6e |e list,.|...// an|
|00001730| 64 20 77 65 27 72 65 20 | 6d 6f 76 69 6e 67 20 6d |d we're |moving m|
|00001740| 61 70 73 2c 20 73 68 6f | 75 6c 64 20 74 72 61 63 |aps, sho|uld trac|
|00001750| 6b 20 6f 66 20 6e 61 6d | 65 20 75 6e 74 69 6c 20 |k of nam|e until |
|00001760| 77 65 20 65 69 74 68 65 | 72 20 73 61 76 65 20 6f |we eithe|r save o|
|00001770| 72 20 63 61 6e 63 65 6c | 0d 0a 09 09 69 66 20 28 |r cancel|....if (|
|00001780| 54 6d 70 20 21 3d 20 22 | 22 29 0d 0a 09 09 7b 0d |Tmp != "|")....{.|
|00001790| 0a 09 09 09 4c 69 73 74 | 4e 61 6d 65 20 3d 20 52 |....List|Name = R|
|000017a0| 65 71 75 65 73 74 2e 47 | 65 74 56 61 72 69 61 62 |equest.G|etVariab|
|000017b0| 6c 65 28 22 4c 69 73 74 | 4e 61 6d 65 22 2c 20 4c |le("List|Name", L|
|000017c0| 69 73 74 4e 61 6d 65 29 | 3b 0d 0a 09 09 09 73 77 |istName)|;.....sw|
|000017d0| 69 74 63 68 20 28 54 6d | 70 29 0d 0a 09 09 09 7b |itch (Tm|p).....{|
|000017e0| 0d 0a 09 09 09 09 63 61 | 73 65 20 22 20 3e 20 22 |......ca|se " > "|
|000017f0| 3a 0d 0a 09 09 09 09 63 | 61 73 65 20 22 3e 22 3a |:......c|ase ">":|
|00001800| 0d 0a 09 09 09 09 09 43 | 6f 75 6e 74 20 3d 20 52 |.......C|ount = R|
|00001810| 65 71 75 65 73 74 2e 47 | 65 74 56 61 72 69 61 62 |equest.G|etVariab|
|00001820| 6c 65 43 6f 75 6e 74 28 | 22 45 78 63 6c 75 64 65 |leCount(|"Exclude|
|00001830| 4d 61 70 73 53 65 6c 65 | 63 74 22 29 3b 0d 0a 09 |MapsSele|ct");...|
|00001840| 09 09 09 09 66 6f 72 20 | 28 69 20 3d 20 43 6f 75 |....for |(i = Cou|
|00001850| 6e 74 20 2d 20 31 3b 20 | 69 20 3e 3d 20 30 3b 20 |nt - 1; |i >= 0; |
|00001860| 69 2d 2d 29 0d 0a 09 09 | 09 09 09 7b 0d 0a 09 09 |i--)....|...{....|
|00001870| 09 09 09 09 69 66 20 28 | 45 78 63 6c 75 64 65 4d |....if (|ExcludeM|
|00001880| 61 70 73 2e 43 6f 75 6e | 74 28 29 20 3e 20 30 29 |aps.Coun|t() > 0)|
|00001890| 0d 0a 09 09 09 09 09 09 | 7b 0d 0a 09 09 09 09 09 |........|{.......|
|000018a0| 09 09 4d 61 70 4e 61 6d | 65 20 3d 20 52 65 71 75 |..MapNam|e = Requ|
|000018b0| 65 73 74 2e 47 65 74 56 | 61 72 69 61 62 6c 65 4e |est.GetV|ariableN|
|000018c0| 75 6d 62 65 72 28 22 45 | 78 63 6c 75 64 65 4d 61 |umber("E|xcludeMa|
|000018d0| 70 73 53 65 6c 65 63 74 | 22 2c 20 69 29 3b 0d 0a |psSelect|", i);..|
|000018e0| 09 09 09 09 09 09 09 69 | 64 20 3d 20 49 6e 63 6c |.......i|d = Incl|
|000018f0| 75 64 65 4d 61 70 73 2e | 4d 6f 76 65 46 72 6f 6d |udeMaps.|MoveFrom|
|00001900| 28 45 78 63 6c 75 64 65 | 4d 61 70 73 2c 20 4d 61 |(Exclude|Maps, Ma|
|00001910| 70 4e 61 6d 65 29 3b 0d | 0a 09 09 09 09 09 09 09 |pName);.|........|
|00001920| 69 66 20 28 69 64 20 3e | 3d 20 30 29 0d 0a 09 09 |if (id >|= 0)....|
|00001930| 09 09 09 09 09 7b 0d 0a | 09 09 09 09 09 09 09 09 |.....{..|........|
|00001940| 4d 6f 76 65 64 4d 61 70 | 73 2e 43 6f 70 79 46 72 |MovedMap|s.CopyFr|
|00001950| 6f 6d 49 64 28 49 6e 63 | 6c 75 64 65 4d 61 70 73 |omId(Inc|ludeMaps|
|00001960| 2c 20 69 64 29 3b 0d 0a | 09 09 09 09 09 09 09 09 |, id);..|........|
|00001970| 4d 61 70 48 61 6e 64 6c | 65 72 2e 41 64 64 4d 61 |MapHandl|er.AddMa|
|00001980| 70 28 49 6e 64 65 78 2c | 20 43 75 72 72 65 6e 74 |p(Index,| Current|
|00001990| 4c 69 73 74 2c 20 4d 61 | 70 4e 61 6d 65 29 3b 0d |List, Ma|pName);.|
|000019a0| 0a 09 09 09 09 09 09 09 | 7d 0d 0a 09 09 09 09 09 |........|}.......|
|000019b0| 09 09 65 6c 73 65 0d 0a | 09 09 09 09 09 09 09 09 |..else..|........|
|000019c0| 4c 6f 67 28 49 6e 61 63 | 74 69 76 65 4d 61 70 4e |Log(Inac|tiveMapN|
|000019d0| 6f 74 46 6f 75 6e 64 24 | 52 65 71 75 65 73 74 2e |otFound$|Request.|
|000019e0| 47 65 74 56 61 72 69 61 | 62 6c 65 4e 75 6d 62 65 |GetVaria|bleNumbe|
|000019f0| 72 28 22 45 78 63 6c 75 | 64 65 4d 61 70 73 53 65 |r("Exclu|deMapsSe|
|00001a00| 6c 65 63 74 22 2c 20 69 | 29 2c 27 57 65 62 41 64 |lect", i|),'WebAd|
|00001a10| 6d 69 6e 27 29 3b 0d 0a | 09 09 09 09 09 09 7d 0d |min');..|......}.|
|00001a20| 0a 09 09 09 09 09 7d 0d | 0a 09 09 09 09 09 62 72 |......}.|......br|
|00001a30| 65 61 6b 3b 0d 0a 0d 0a | 09 09 09 09 63 61 73 65 |eak;....|....case|
|00001a40| 20 22 20 3c 20 22 3a 0d | 0a 09 09 09 09 63 61 73 | " < ":.|.....cas|
|00001a50| 65 20 22 3c 22 3a 0d 0a | 09 09 09 09 09 69 66 20 |e "<":..|.....if |
|00001a60| 28 52 65 71 75 65 73 74 | 2e 47 65 74 56 61 72 69 |(Request|.GetVari|
|00001a70| 61 62 6c 65 43 6f 75 6e | 74 28 22 49 6e 63 6c 75 |ableCoun|t("Inclu|
|00001a80| 64 65 4d 61 70 73 53 65 | 6c 65 63 74 22 29 20 3e |deMapsSe|lect") >|
|00001a90| 20 30 29 0d 0a 09 09 09 | 09 09 7b 0d 0a 09 09 09 | 0).....|..{.....|
|00001aa0| 09 09 09 43 6f 75 6e 74 | 20 3d 20 52 65 71 75 65 |...Count| = Reque|
|00001ab0| 73 74 2e 47 65 74 56 61 | 72 69 61 62 6c 65 43 6f |st.GetVa|riableCo|
|00001ac0| 75 6e 74 28 22 49 6e 63 | 6c 75 64 65 4d 61 70 73 |unt("Inc|ludeMaps|
|00001ad0| 53 65 6c 65 63 74 22 29 | 3b 0d 0a 09 09 09 09 09 |Select")|;.......|
|00001ae0| 09 66 6f 72 20 28 69 20 | 3d 20 43 6f 75 6e 74 2d |.for (i |= Count-|
|00001af0| 31 3b 20 69 20 3e 3d 20 | 30 3b 20 69 2d 2d 29 0d |1; i >= |0; i--).|
|00001b00| 0a 09 09 09 09 09 09 7b | 0d 0a 09 09 09 09 09 09 |.......{|........|
|00001b10| 09 4d 61 70 4e 61 6d 65 | 20 3d 20 52 65 71 75 65 |.MapName| = Reque|
|00001b20| 73 74 2e 47 65 74 56 61 | 72 69 61 62 6c 65 4e 75 |st.GetVa|riableNu|
|00001b30| 6d 62 65 72 28 22 49 6e | 63 6c 75 64 65 4d 61 70 |mber("In|cludeMap|
|00001b40| 73 53 65 6c 65 63 74 22 | 2c 20 69 29 3b 0d 0a 09 |sSelect"|, i);...|
|00001b50| 09 09 09 09 09 09 69 66 | 20 28 49 6e 63 6c 75 64 |......if| (Includ|
|00001b60| 65 4d 61 70 73 2e 43 6f | 75 6e 74 28 29 20 3e 20 |eMaps.Co|unt() > |
|00001b70| 30 29 0d 0a 09 09 09 09 | 09 09 09 7b 0d 0a 09 09 |0)......|...{....|
|00001b80| 09 09 09 09 09 09 69 64 | 20 3d 20 45 78 63 6c 75 |......id| = Exclu|
|00001b90| 64 65 4d 61 70 73 2e 4d | 6f 76 65 46 72 6f 6d 28 |deMaps.M|oveFrom(|
|00001ba0| 49 6e 63 6c 75 64 65 4d | 61 70 73 2c 20 4d 61 70 |IncludeM|aps, Map|
|00001bb0| 4e 61 6d 65 29 3b 0d 0a | 09 09 09 09 09 09 09 09 |Name);..|........|
|00001bc0| 69 66 20 28 69 64 20 3e | 3d 20 30 29 0d 0a 09 09 |if (id >|= 0)....|
|00001bd0| 09 09 09 09 09 09 7b 0d | 0a 09 09 09 09 09 09 09 |......{.|........|
|00001be0| 09 09 4d 6f 76 65 64 4d | 61 70 73 2e 43 6f 70 79 |..MovedM|aps.Copy|
|00001bf0| 46 72 6f 6d 49 64 28 45 | 78 63 6c 75 64 65 4d 61 |FromId(E|xcludeMa|
|00001c00| 70 73 2c 20 69 64 29 3b | 0d 0a 09 09 09 09 09 09 |ps, id);|........|
|00001c10| 09 09 09 4d 61 70 48 61 | 6e 64 6c 65 72 2e 52 65 |...MapHa|ndler.Re|
|00001c20| 6d 6f 76 65 4d 61 70 28 | 49 6e 64 65 78 2c 20 43 |moveMap(|Index, C|
|00001c30| 75 72 72 65 6e 74 4c 69 | 73 74 2c 20 4d 61 70 4e |urrentLi|st, MapN|
|00001c40| 61 6d 65 29 3b 0d 0a 09 | 09 09 09 09 09 09 09 7d |ame);...|.......}|
|00001c50| 0d 0a 09 09 09 09 09 09 | 09 09 65 6c 73 65 0d 0a |........|..else..|
|00001c60| 09 09 09 09 09 09 09 09 | 09 4c 6f 67 28 41 63 74 |........|.Log(Act|
|00001c70| 69 76 65 4d 61 70 4e 6f | 74 46 6f 75 6e 64 20 24 |iveMapNo|tFound $|
|00001c80| 20 52 65 71 75 65 73 74 | 2e 47 65 74 56 61 72 69 | Request|.GetVari|
|00001c90| 61 62 6c 65 4e 75 6d 62 | 65 72 28 22 49 6e 63 6c |ableNumb|er("Incl|
|00001ca0| 75 64 65 4d 61 70 73 53 | 65 6c 65 63 74 22 2c 20 |udeMapsS|elect", |
|00001cb0| 69 29 2c 27 57 65 62 41 | 64 6d 69 6e 27 29 3b 0d |i),'WebA|dmin');.|
|00001cc0| 0a 09 09 09 09 09 09 09 | 7d 0d 0a 09 09 09 09 09 |........|}.......|
|00001cd0| 09 7d 0d 0a 09 09 09 09 | 09 7d 0d 0a 09 09 09 09 |.}......|.}......|
|00001ce0| 09 62 72 65 61 6b 3b 0d | 0a 0d 0a 09 09 09 09 63 |.break;.|.......c|
|00001cf0| 61 73 65 20 22 3e 3e 22 | 3a 0d 0a 09 09 09 09 09 |ase ">>"|:.......|
|00001d00| 77 68 69 6c 65 20 28 45 | 78 63 6c 75 64 65 4d 61 |while (E|xcludeMa|
|00001d10| 70 73 2e 43 6f 75 6e 74 | 28 29 20 3e 20 30 29 0d |ps.Count|() > 0).|
|00001d20| 0a 09 09 09 09 09 7b 0d | 0a 09 09 09 09 09 09 69 |......{.|.......i|
|00001d30| 64 20 3d 20 49 6e 63 6c | 75 64 65 4d 61 70 73 2e |d = Incl|udeMaps.|
|00001d40| 4d 6f 76 65 46 72 6f 6d | 49 64 28 45 78 63 6c 75 |MoveFrom|Id(Exclu|
|00001d50| 64 65 4d 61 70 73 2c 20 | 45 78 63 6c 75 64 65 4d |deMaps, |ExcludeM|
|00001d60| 61 70 73 2e 43 6f 75 6e | 74 28 29 2d 31 29 3b 0d |aps.Coun|t()-1);.|
|00001d70| 0a 09 09 09 09 09 09 69 | 66 20 28 69 64 20 3e 3d |.......i|f (id >=|
|00001d80| 20 30 29 0d 0a 09 09 09 | 09 09 09 7b 0d 0a 09 09 | 0).....|...{....|
|00001d90| 09 09 09 09 09 4d 6f 76 | 65 64 4d 61 70 73 2e 43 |.....Mov|edMaps.C|
|00001da0| 6f 70 79 46 72 6f 6d 49 | 64 28 49 6e 63 6c 75 64 |opyFromI|d(Includ|
|00001db0| 65 4d 61 70 73 2c 20 69 | 64 29 3b 0d 0a 09 09 09 |eMaps, i|d);.....|
|00001dc0| 09 09 09 09 4d 61 70 48 | 61 6e 64 6c 65 72 2e 41 |....MapH|andler.A|
|00001dd0| 64 64 4d 61 70 28 49 6e | 64 65 78 2c 20 43 75 72 |ddMap(In|dex, Cur|
|00001de0| 72 65 6e 74 4c 69 73 74 | 2c 20 49 6e 63 6c 75 64 |rentList|, Includ|
|00001df0| 65 4d 61 70 73 2e 47 65 | 74 54 61 67 28 69 64 29 |eMaps.Ge|tTag(id)|
|00001e00| 29 3b 0d 0a 09 09 09 09 | 09 09 7d 0d 0a 09 09 09 |);......|..}.....|
|00001e10| 09 09 7d 0d 0a 0d 0a 09 | 09 09 09 09 62 72 65 61 |..}.....|....brea|
|00001e20| 6b 3b 0d 0a 0d 0a 09 09 | 09 09 63 61 73 65 20 22 |k;......|..case "|
|00001e30| 3c 3c 22 3a 0d 0a 09 09 | 09 09 09 77 68 69 6c 65 |<<":....|...while|
|00001e40| 20 28 49 6e 63 6c 75 64 | 65 4d 61 70 73 2e 43 6f | (Includ|eMaps.Co|
|00001e50| 75 6e 74 28 29 20 3e 20 | 30 29 0d 0a 09 09 09 09 |unt() > |0)......|
|00001e60| 09 7b 0d 0a 09 09 09 09 | 09 09 69 64 20 3d 20 20 |.{......|..id = |
|00001e70| 45 78 63 6c 75 64 65 4d | 61 70 73 2e 4d 6f 76 65 |ExcludeM|aps.Move|
|00001e80| 46 72 6f 6d 49 64 28 49 | 6e 63 6c 75 64 65 4d 61 |FromId(I|ncludeMa|
|00001e90| 70 73 2c 20 49 6e 63 6c | 75 64 65 4d 61 70 73 2e |ps, Incl|udeMaps.|
|00001ea0| 43 6f 75 6e 74 28 29 2d | 31 29 3b 0d 0a 09 09 09 |Count()-|1);.....|
|00001eb0| 09 09 09 69 66 20 28 69 | 64 20 3e 3d 20 30 29 0d |...if (i|d >= 0).|
|00001ec0| 0a 09 09 09 09 09 09 7b | 0d 0a 09 09 09 09 09 09 |.......{|........|
|00001ed0| 09 4d 6f 76 65 64 4d 61 | 70 73 2e 43 6f 70 79 46 |.MovedMa|ps.CopyF|
|00001ee0| 72 6f 6d 49 64 28 45 78 | 63 6c 75 64 65 4d 61 70 |romId(Ex|cludeMap|
|00001ef0| 73 2c 20 69 64 29 3b 0d | 0a 09 09 09 09 09 09 09 |s, id);.|........|
|00001f00| 4d 61 70 48 61 6e 64 6c | 65 72 2e 43 6c 65 61 72 |MapHandl|er.Clear|
|00001f10| 4c 69 73 74 28 49 6e 64 | 65 78 2c 20 43 75 72 72 |List(Ind|ex, Curr|
|00001f20| 65 6e 74 4c 69 73 74 29 | 3b 0d 0a 09 09 09 09 09 |entList)|;.......|
|00001f30| 09 7d 0d 0a 09 09 09 09 | 09 7d 0d 0a 0d 0a 09 09 |.}......|.}......|
|00001f40| 09 09 09 62 72 65 61 6b | 3b 0d 0a 0d 0a 09 09 09 |...break|;.......|
|00001f50| 09 63 61 73 65 20 22 55 | 70 22 3a 0d 0a 09 09 09 |.case "U|p":.....|
|00001f60| 09 09 4d 6f 76 65 43 6f | 75 6e 74 20 3d 20 69 6e |..MoveCo|unt = in|
|00001f70| 74 28 41 62 73 28 66 6c | 6f 61 74 28 52 65 71 75 |t(Abs(fl|oat(Requ|
|00001f80| 65 73 74 2e 47 65 74 56 | 61 72 69 61 62 6c 65 28 |est.GetV|ariable(|
|00001f90| 22 4d 6f 76 65 4d 61 70 | 43 6f 75 6e 74 22 29 29 |"MoveMap|Count"))|
|00001fa0| 29 29 3b 0d 0a 09 09 09 | 09 09 43 6f 75 6e 74 20 |));.....|..Count |
|00001fb0| 3d 20 52 65 71 75 65 73 | 74 2e 47 65 74 56 61 72 |= Reques|t.GetVar|
|00001fc0| 69 61 62 6c 65 43 6f 75 | 6e 74 28 22 49 6e 63 6c |iableCou|nt("Incl|
|00001fd0| 75 64 65 4d 61 70 73 53 | 65 6c 65 63 74 22 29 3b |udeMapsS|elect");|
|00001fe0| 0d 0a 09 09 09 09 09 66 | 6f 72 20 28 69 20 3d 20 |.......f|or (i = |
|00001ff0| 30 3b 20 69 3c 43 6f 75 | 6e 74 3b 20 69 2b 2b 29 |0; i<Cou|nt; i++)|
|00002000| 0d 0a 09 09 09 09 09 09 | 4d 6f 76 65 64 4d 61 70 |........|MovedMap|
|00002010| 73 2e 43 6f 70 79 46 72 | 6f 6d 28 49 6e 63 6c 75 |s.CopyFr|om(Inclu|
|00002020| 64 65 4d 61 70 73 2c 20 | 52 65 71 75 65 73 74 2e |deMaps, |Request.|
|00002030| 47 65 74 56 61 72 69 61 | 62 6c 65 4e 75 6d 62 65 |GetVaria|bleNumbe|
|00002040| 72 28 22 49 6e 63 6c 75 | 64 65 4d 61 70 73 53 65 |r("Inclu|deMapsSe|
|00002050| 6c 65 63 74 22 2c 20 69 | 29 29 3b 0d 0a 0d 0a 09 |lect", i|));.....|
|00002060| 09 09 09 09 4d 6f 76 65 | 43 6f 75 6e 74 20 3d 20 |....Move|Count = |
|00002070| 2d 4d 6f 76 65 43 6f 75 | 6e 74 3b 0d 0a 09 09 09 |-MoveCou|nt;.....|
|00002080| 09 09 66 6f 72 20 28 69 | 20 3d 20 30 3b 20 69 3c |..for (i| = 0; i<|
|00002090| 49 6e 63 6c 75 64 65 4d | 61 70 73 2e 43 6f 75 6e |IncludeM|aps.Coun|
|000020a0| 74 28 29 3b 20 69 2b 2b | 29 0d 0a 09 09 09 09 09 |t(); i++|).......|
|000020b0| 7b 0d 0a 09 09 09 09 09 | 09 69 66 20 28 4d 6f 76 |{.......|.if (Mov|
|000020c0| 65 64 4d 61 70 73 2e 46 | 69 6e 64 54 61 67 49 64 |edMaps.F|indTagId|
|000020d0| 28 49 6e 63 6c 75 64 65 | 4d 61 70 73 2e 47 65 74 |(Include|Maps.Get|
|000020e0| 54 61 67 28 69 29 29 20 | 3e 3d 20 30 29 0d 0a 09 |Tag(i)) |>= 0)...|
|000020f0| 09 09 09 09 09 7b 0d 0a | 09 09 09 09 09 09 09 4d |.....{..|.......M|
|00002100| 61 70 48 61 6e 64 6c 65 | 72 2e 53 68 69 66 74 4d |apHandle|r.ShiftM|
|00002110| 61 70 28 49 6e 64 65 78 | 2c 20 43 75 72 72 65 6e |ap(Index|, Curren|
|00002120| 74 4c 69 73 74 2c 20 49 | 6e 63 6c 75 64 65 4d 61 |tList, I|ncludeMa|
|00002130| 70 73 2e 47 65 74 54 61 | 67 28 69 29 2c 20 4d 6f |ps.GetTa|g(i), Mo|
|00002140| 76 65 43 6f 75 6e 74 29 | 3b 0d 0a 09 09 09 09 09 |veCount)|;.......|
|00002150| 09 09 49 6e 63 6c 75 64 | 65 4d 61 70 73 2e 53 68 |..Includ|eMaps.Sh|
|00002160| 69 66 74 53 74 72 69 63 | 74 28 69 2c 20 4d 6f 76 |iftStric|t(i, Mov|
|00002170| 65 43 6f 75 6e 74 29 3b | 0d 0a 09 09 09 09 09 09 |eCount);|........|
|00002180| 7d 0d 0a 09 09 09 09 09 | 7d 0d 0a 09 09 09 09 09 |}.......|}.......|
|00002190| 62 72 65 61 6b 3b 0d 0a | 0d 0a 09 09 09 09 63 61 |break;..|......ca|
|000021a0| 73 65 20 22 44 6f 77 6e | 22 3a 0d 0a 09 09 09 09 |se "Down|":......|
|000021b0| 09 4d 6f 76 65 43 6f 75 | 6e 74 20 3d 20 69 6e 74 |.MoveCou|nt = int|
|000021c0| 28 41 62 73 28 66 6c 6f | 61 74 28 52 65 71 75 65 |(Abs(flo|at(Reque|
|000021d0| 73 74 2e 47 65 74 56 61 | 72 69 61 62 6c 65 28 22 |st.GetVa|riable("|
|000021e0| 4d 6f 76 65 4d 61 70 43 | 6f 75 6e 74 22 29 29 29 |MoveMapC|ount")))|
|000021f0| 29 3b 0d 0a 09 09 09 09 | 09 43 6f 75 6e 74 20 3d |);......|.Count =|
|00002200| 20 52 65 71 75 65 73 74 | 2e 47 65 74 56 61 72 69 | Request|.GetVari|
|00002210| 61 62 6c 65 43 6f 75 6e | 74 28 22 49 6e 63 6c 75 |ableCoun|t("Inclu|
|00002220| 64 65 4d 61 70 73 53 65 | 6c 65 63 74 22 29 3b 0d |deMapsSe|lect");.|
|00002230| 0a 09 09 09 09 09 66 6f | 72 20 28 69 20 3d 20 30 |......fo|r (i = 0|
|00002240| 3b 20 69 3c 43 6f 75 6e | 74 3b 20 69 2b 2b 29 0d |; i<Coun|t; i++).|
|00002250| 0a 09 09 09 09 09 09 4d | 6f 76 65 64 4d 61 70 73 |.......M|ovedMaps|
|00002260| 2e 43 6f 70 79 46 72 6f | 6d 28 49 6e 63 6c 75 64 |.CopyFro|m(Includ|
|00002270| 65 4d 61 70 73 2c 20 52 | 65 71 75 65 73 74 2e 47 |eMaps, R|equest.G|
|00002280| 65 74 56 61 72 69 61 62 | 6c 65 4e 75 6d 62 65 72 |etVariab|leNumber|
|00002290| 28 22 49 6e 63 6c 75 64 | 65 4d 61 70 73 53 65 6c |("Includ|eMapsSel|
|000022a0| 65 63 74 22 2c 20 69 29 | 29 3b 0d 0a 0d 0a 09 09 |ect", i)|);......|
|000022b0| 09 09 09 66 6f 72 20 28 | 69 20 3d 20 49 6e 63 6c |...for (|i = Incl|
|000022c0| 75 64 65 4d 61 70 73 2e | 43 6f 75 6e 74 28 29 2d |udeMaps.|Count()-|
|000022d0| 31 3b 20 69 20 3e 3d 20 | 30 3b 20 69 2d 2d 29 0d |1; i >= |0; i--).|
|000022e0| 0a 09 09 09 09 09 7b 0d | 0a 09 09 09 09 09 09 69 |......{.|.......i|
|000022f0| 66 20 28 4d 6f 76 65 64 | 4d 61 70 73 2e 46 69 6e |f (Moved|Maps.Fin|
|00002300| 64 54 61 67 49 64 28 49 | 6e 63 6c 75 64 65 4d 61 |dTagId(I|ncludeMa|
|00002310| 70 73 2e 47 65 74 54 61 | 67 28 69 29 29 20 3e 3d |ps.GetTa|g(i)) >=|
|00002320| 20 30 29 0d 0a 09 09 09 | 09 09 09 7b 0d 0a 09 09 | 0).....|...{....|
|00002330| 09 09 09 09 09 4d 61 70 | 48 61 6e 64 6c 65 72 2e |.....Map|Handler.|
|00002340| 53 68 69 66 74 4d 61 70 | 28 49 6e 64 65 78 2c 20 |ShiftMap|(Index, |
|00002350| 43 75 72 72 65 6e 74 4c | 69 73 74 2c 20 49 6e 63 |CurrentL|ist, Inc|
|00002360| 6c 75 64 65 4d 61 70 73 | 2e 47 65 74 54 61 67 28 |ludeMaps|.GetTag(|
|00002370| 69 29 2c 20 4d 6f 76 65 | 43 6f 75 6e 74 29 3b 0d |i), Move|Count);.|
|00002380| 0a 09 09 09 09 09 09 09 | 49 6e 63 6c 75 64 65 4d |........|IncludeM|
|00002390| 61 70 73 2e 53 68 69 66 | 74 53 74 72 69 63 74 28 |aps.Shif|tStrict(|
|000023a0| 69 2c 20 4d 6f 76 65 43 | 6f 75 6e 74 29 3b 0d 0a |i, MoveC|ount);..|
|000023b0| 09 09 09 09 09 09 7d 0d | 0a 09 09 09 09 09 7d 0d |......}.|......}.|
|000023c0| 0a 0d 0a 09 09 09 09 09 | 62 72 65 61 6b 3b 0d 0a |........|break;..|
|000023d0| 09 09 09 7d 0d 0a 09 09 | 7d 0d 0a 0d 0a 09 09 69 |...}....|}......i|
|000023e0| 66 20 28 52 65 71 75 65 | 73 74 2e 47 65 74 56 61 |f (Reque|st.GetVa|
|000023f0| 72 69 61 62 6c 65 28 22 | 53 61 76 65 22 29 20 21 |riable("|Save") !|
|00002400| 3d 20 22 22 29 0d 0a 09 | 09 7b 0d 0a 09 09 09 4c |= "")...|.{.....L|
|00002410| 69 73 74 4e 61 6d 65 20 | 3d 20 52 65 71 75 65 73 |istName |= Reques|
|00002420| 74 2e 47 65 74 56 61 72 | 69 61 62 6c 65 28 22 4c |t.GetVar|iable("L|
|00002430| 69 73 74 4e 61 6d 65 22 | 2c 20 4c 69 73 74 4e 61 |istName"|, ListNa|
|00002440| 6d 65 29 3b 0d 0a 09 09 | 09 55 70 64 61 74 65 43 |me);....|.UpdateC|
|00002450| 75 73 74 6f 6d 4d 61 70 | 4c 69 73 74 28 49 6e 64 |ustomMap|List(Ind|
|00002460| 65 78 2c 20 43 75 72 72 | 65 6e 74 4c 69 73 74 2c |ex, Curr|entList,|
|00002470| 20 4c 69 73 74 4e 61 6d | 65 29 3b 0d 0a 09 09 7d | ListNam|e);....}|
|00002480| 0d 0a 0d 0a 09 09 65 6c | 73 65 20 69 66 20 28 52 |......el|se if (R|
|00002490| 65 71 75 65 73 74 2e 47 | 65 74 56 61 72 69 61 62 |equest.G|etVariab|
|000024a0| 6c 65 28 22 4e 65 77 22 | 29 20 21 3d 20 22 22 29 |le("New"|) != "")|
|000024b0| 0d 0a 09 09 7b 0d 0a 09 | 09 09 41 72 72 2e 4c 65 |....{...|..Arr.Le|
|000024c0| 6e 67 74 68 20 3d 20 30 | 3b 0d 0a 09 09 09 66 6f |ngth = 0|;.....fo|
|000024d0| 72 20 28 69 20 3d 20 30 | 3b 20 69 20 3c 20 49 6e |r (i = 0|; i < In|
|000024e0| 63 6c 75 64 65 4d 61 70 | 73 2e 43 6f 75 6e 74 28 |cludeMap|s.Count(|
|000024f0| 29 3b 20 69 2b 2b 29 0d | 0a 09 09 09 09 41 72 72 |); i++).|.....Arr|
|00002500| 5b 41 72 72 2e 4c 65 6e | 67 74 68 5d 20 3d 20 49 |[Arr.Len|gth] = I|
|00002510| 6e 63 6c 75 64 65 4d 61 | 70 73 2e 47 65 74 54 61 |ncludeMa|ps.GetTa|
|00002520| 67 28 69 29 3b 0d 0a 09 | 09 09 4d 61 70 48 61 6e |g(i);...|..MapHan|
|00002530| 64 6c 65 72 2e 52 65 73 | 65 74 4c 69 73 74 28 49 |dler.Res|etList(I|
|00002540| 6e 64 65 78 2c 20 43 75 | 72 72 65 6e 74 4c 69 73 |ndex, Cu|rrentLis|
|00002550| 74 29 3b 0d 0a 09 09 09 | 4d 61 70 48 61 6e 64 6c |t);.....|MapHandl|
|00002560| 65 72 2e 41 64 64 4c 69 | 73 74 28 47 61 6d 65 54 |er.AddLi|st(GameT|
|00002570| 79 70 65 2c 20 52 65 71 | 75 65 73 74 2e 47 65 74 |ype, Req|uest.Get|
|00002580| 56 61 72 69 61 62 6c 65 | 28 22 4c 69 73 74 4e 61 |Variable|("ListNa|
|00002590| 6d 65 22 2c 20 4c 69 73 | 74 4e 61 6d 65 29 2c 20 |me", Lis|tName), |
|000025a0| 41 72 72 29 3b 0d 0a 09 | 09 09 45 78 63 6c 75 64 |Arr);...|..Exclud|
|000025b0| 65 4d 61 70 73 20 3d 20 | 52 65 6c 6f 61 64 45 78 |eMaps = |ReloadEx|
|000025c0| 63 6c 75 64 65 4d 61 70 | 73 28 47 61 6d 65 54 79 |cludeMap|s(GameTy|
|000025d0| 70 65 29 3b 0d 0a 09 09 | 09 49 6e 63 6c 75 64 65 |pe);....|.Include|
|000025e0| 4d 61 70 73 20 3d 20 52 | 65 6c 6f 61 64 49 6e 63 |Maps = R|eloadInc|
|000025f0| 6c 75 64 65 4d 61 70 73 | 28 45 78 63 6c 75 64 65 |ludeMaps|(Exclude|
|00002600| 4d 61 70 73 2c 20 49 6e | 64 65 78 2c 20 43 75 72 |Maps, In|dex, Cur|
|00002610| 72 65 6e 74 4c 69 73 74 | 29 3b 0d 0a 09 09 7d 0d |rentList|);....}.|
|00002620| 0a 0d 0a 09 09 65 6c 73 | 65 20 69 66 20 28 52 65 |.....els|e if (Re|
|00002630| 71 75 65 73 74 2e 47 65 | 74 56 61 72 69 61 62 6c |quest.Ge|tVariabl|
|00002640| 65 28 22 55 73 65 22 29 | 20 21 3d 20 22 22 29 0d |e("Use")| != "").|
|00002650| 0a 09 09 09 4d 61 70 48 | 61 6e 64 6c 65 72 2e 41 |....MapH|andler.A|
|00002660| 70 70 6c 79 4d 61 70 4c | 69 73 74 28 49 6e 64 65 |pplyMapL|ist(Inde|
|00002670| 78 2c 20 43 75 72 72 65 | 6e 74 4c 69 73 74 29 3b |x, Curre|ntList);|
|00002680| 0d 0a 0d 0a 09 09 65 6c | 73 65 20 69 66 20 28 52 |......el|se if (R|
|00002690| 65 71 75 65 73 74 2e 47 | 65 74 56 61 72 69 61 62 |equest.G|etVariab|
|000026a0| 6c 65 28 22 44 65 6c 65 | 74 65 22 29 20 21 3d 20 |le("Dele|te") != |
|000026b0| 22 22 29 0d 0a 09 09 7b | 0d 0a 09 09 09 4d 61 70 |"")....{|.....Map|
|000026c0| 48 61 6e 64 6c 65 72 2e | 52 65 6d 6f 76 65 4c 69 |Handler.|RemoveLi|
|000026d0| 73 74 28 49 6e 64 65 78 | 2c 20 43 75 72 72 65 6e |st(Index|, Curren|
|000026e0| 74 4c 69 73 74 29 3b 0d | 0a 09 09 09 4c 69 73 74 |tList);.|....List|
|000026f0| 4e 61 6d 65 20 3d 20 4d | 61 70 48 61 6e 64 6c 65 |Name = M|apHandle|
|00002700| 72 2e 47 65 74 4d 61 70 | 4c 69 73 74 54 69 74 6c |r.GetMap|ListTitl|
|00002710| 65 28 49 6e 64 65 78 2c | 20 4d 61 70 48 61 6e 64 |e(Index,| MapHand|
|00002720| 6c 65 72 2e 47 65 74 41 | 63 74 69 76 65 4c 69 73 |ler.GetA|ctiveLis|
|00002730| 74 28 49 6e 64 65 78 29 | 29 3b 0d 0a 09 09 09 45 |t(Index)|);.....E|
|00002740| 78 63 6c 75 64 65 4d 61 | 70 73 20 3d 20 52 65 6c |xcludeMa|ps = Rel|
|00002750| 6f 61 64 45 78 63 6c 75 | 64 65 4d 61 70 73 28 47 |oadExclu|deMaps(G|
|00002760| 61 6d 65 54 79 70 65 29 | 3b 0d 0a 09 09 09 49 6e |ameType)|;.....In|
|00002770| 63 6c 75 64 65 4d 61 70 | 73 20 3d 20 52 65 6c 6f |cludeMap|s = Relo|
|00002780| 61 64 49 6e 63 6c 75 64 | 65 4d 61 70 73 28 45 78 |adInclud|eMaps(Ex|
|00002790| 63 6c 75 64 65 4d 61 70 | 73 2c 20 49 6e 64 65 78 |cludeMap|s, Index|
|000027a0| 2c 20 4d 61 70 48 61 6e | 64 6c 65 72 2e 47 65 74 |, MapHan|dler.Get|
|000027b0| 41 63 74 69 76 65 4c 69 | 73 74 28 49 6e 64 65 78 |ActiveLi|st(Index|
|000027c0| 29 29 3b 0d 0a 09 09 7d | 0d 0a 0d 0a 09 09 43 75 |));....}|......Cu|
|000027d0| 73 74 6f 6d 4d 61 70 53 | 65 6c 65 63 74 20 3d 20 |stomMapS|elect = |
|000027e0| 47 65 6e 65 72 61 74 65 | 4d 61 70 4c 69 73 74 4f |Generate|MapListO|
|000027f0| 70 74 69 6f 6e 73 28 47 | 61 6d 65 54 79 70 65 2c |ptions(G|ameType,|
|00002800| 20 43 75 72 72 65 6e 74 | 4c 69 73 74 29 3b 0d 0a | Current|List);..|
|00002810| 09 09 2f 2f 20 46 69 6c | 6c 20 72 65 73 70 6f 6e |..// Fil|l respon|
|00002820| 73 65 20 76 61 6c 75 65 | 73 0d 0a 09 09 52 65 73 |se value|s....Res|
|00002830| 70 6f 6e 73 65 2e 53 75 | 62 73 74 28 22 47 61 6d |ponse.Su|bst("Gam|
|00002840| 65 54 79 70 65 22 2c 20 | 47 61 6d 65 54 79 70 65 |eType", |GameType|
|00002850| 29 3b 0d 0a 09 09 52 65 | 73 70 6f 6e 73 65 2e 53 |);....Re|sponse.S|
|00002860| 75 62 73 74 28 22 53 65 | 73 73 69 6f 6e 22 2c 20 |ubst("Se|ssion", |
|00002870| 22 53 65 73 73 69 6f 6e | 22 29 3b 0d 0a 09 09 52 |"Session|");....R|
|00002880| 65 73 70 6f 6e 73 65 2e | 53 75 62 73 74 28 22 4d |esponse.|Subst("M|
|00002890| 61 70 4c 69 73 74 4e 61 | 6d 65 22 2c 20 4c 69 73 |apListNa|me", Lis|
|000028a0| 74 4e 61 6d 65 29 3b 0d | 0a 09 09 52 65 73 70 6f |tName);.|...Respo|
|000028b0| 6e 73 65 2e 53 75 62 73 | 74 28 22 4d 61 70 4c 69 |nse.Subs|t("MapLi|
|000028c0| 73 74 4f 70 74 69 6f 6e | 73 22 2c 20 43 75 73 74 |stOption|s", Cust|
|000028d0| 6f 6d 4d 61 70 53 65 6c | 65 63 74 29 3b 0d 0a 09 |omMapSel|ect);...|
|000028e0| 09 52 65 73 70 6f 6e 73 | 65 2e 53 75 62 73 74 28 |.Respons|e.Subst(|
|000028f0| 22 45 78 63 6c 75 64 65 | 4d 61 70 73 4f 70 74 69 |"Exclude|MapsOpti|
|00002900| 6f 6e 73 22 2c 20 47 65 | 6e 65 72 61 74 65 4d 61 |ons", Ge|nerateMa|
|00002910| 70 4c 69 73 74 53 65 6c | 65 63 74 28 45 78 63 6c |pListSel|ect(Excl|
|00002920| 75 64 65 4d 61 70 73 2c | 20 4d 6f 76 65 64 4d 61 |udeMaps,| MovedMa|
|00002930| 70 73 29 29 3b 0d 0a 09 | 09 52 65 73 70 6f 6e 73 |ps));...|.Respons|
|00002940| 65 2e 53 75 62 73 74 28 | 22 49 6e 63 6c 75 64 65 |e.Subst(|"Include|
|00002950| 4d 61 70 73 4f 70 74 69 | 6f 6e 73 22 2c 20 47 65 |MapsOpti|ons", Ge|
|00002960| 6e 65 72 61 74 65 4d 61 | 70 4c 69 73 74 53 65 6c |nerateMa|pListSel|
|00002970| 65 63 74 28 49 6e 63 6c | 75 64 65 4d 61 70 73 2c |ect(Incl|udeMaps,|
|00002980| 20 4d 6f 76 65 64 4d 61 | 70 73 29 29 3b 0d 0a 0d | MovedMa|ps));...|
|00002990| 0a 09 09 52 65 73 70 6f | 6e 73 65 2e 53 75 62 73 |...Respo|nse.Subs|
|000029a0| 74 28 22 53 65 63 74 69 | 6f 6e 22 2c 20 44 65 66 |t("Secti|on", Def|
|000029b0| 61 75 6c 74 73 4d 61 70 | 73 4c 69 6e 6b 29 3b 0d |aultsMap|sLink);.|
|000029c0| 0a 09 09 52 65 73 70 6f | 6e 73 65 2e 53 75 62 73 |...Respo|nse.Subs|
|000029d0| 74 28 22 50 6f 73 74 41 | 63 74 69 6f 6e 22 2c 20 |t("PostA|ction", |
|000029e0| 44 65 66 61 75 6c 74 73 | 4d 61 70 73 50 61 67 65 |Defaults|MapsPage|
|000029f0| 29 3b 0d 0a 09 09 52 65 | 73 70 6f 6e 73 65 2e 53 |);....Re|sponse.S|
|00002a00| 75 62 73 74 28 22 50 61 | 67 65 48 65 6c 70 22 2c |ubst("Pa|geHelp",|
|00002a10| 20 4e 6f 74 65 4d 61 70 | 73 50 61 67 65 29 3b 0d | NoteMap|sPage);.|
|00002a20| 0a 0d 0a 09 09 53 68 6f | 77 50 61 67 65 28 52 65 |.....Sho|wPage(Re|
|00002a30| 73 70 6f 6e 73 65 2c 20 | 44 65 66 61 75 6c 74 73 |sponse, |Defaults|
|00002a40| 4d 61 70 73 50 61 67 65 | 29 3b 0d 0a 09 7d 0d 0a |MapsPage|);...}..|
|00002a50| 09 65 6c 73 65 0d 0a 09 | 09 41 63 63 65 73 73 44 |.else...|.AccessD|
|00002a60| 65 6e 69 65 64 28 52 65 | 73 70 6f 6e 73 65 29 3b |enied(Re|sponse);|
|00002a70| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00002a80| 51 75 65 72 79 44 65 66 | 61 75 6c 74 73 52 75 6c |QueryDef|aultsRul|
|00002a90| 65 73 28 57 65 62 52 65 | 71 75 65 73 74 20 52 65 |es(WebRe|quest Re|
|00002aa0| 71 75 65 73 74 2c 20 57 | 65 62 52 65 73 70 6f 6e |quest, W|ebRespon|
|00002ab0| 73 65 20 52 65 73 70 6f | 6e 73 65 29 0d 0a 7b 0d |se Respo|nse)..{.|
|00002ac0| 0a 6c 6f 63 61 6c 20 69 | 6e 74 20 69 2c 20 6a 3b |.local i|nt i, j;|
|00002ad0| 0d 0a 6c 6f 63 61 6c 20 | 62 6f 6f 6c 20 62 4d 61 |..local |bool bMa|
|00002ae0| 72 6b 65 64 2c 20 62 53 | 61 76 65 3b 0d 0a 6c 6f |rked, bS|ave;..lo|
|00002af0| 63 61 6c 20 53 74 72 69 | 6e 67 20 47 61 6d 65 54 |cal Stri|ng GameT|
|00002b00| 79 70 65 2c 20 43 6f 6e | 74 65 6e 74 2c 20 44 61 |ype, Con|tent, Da|
|00002b10| 74 61 2c 20 4f 70 2c 20 | 4d 61 72 6b 2c 20 46 69 |ta, Op, |Mark, Fi|
|00002b20| 6c 74 65 72 2c 20 53 65 | 63 4c 65 76 65 6c 2c 20 |lter, Se|cLevel, |
|00002b30| 54 65 6d 70 53 74 72 3b | 0d 0a 6c 6f 63 61 6c 20 |TempStr;|..local |
|00002b40| 61 72 72 61 79 3c 73 74 | 72 69 6e 67 3e 20 4f 70 |array<st|ring> Op|
|00002b50| 74 69 6f 6e 73 3b 0d 0a | 0d 0a 09 69 66 20 28 21 |tions;..|...if (!|
|00002b60| 43 61 6e 50 65 72 66 6f | 72 6d 28 22 4d 73 22 29 |CanPerfo|rm("Ms")|
|00002b70| 29 0d 0a 09 7b 0d 0a 09 | 09 41 63 63 65 73 73 44 |)...{...|.AccessD|
|00002b80| 65 6e 69 65 64 28 52 65 | 73 70 6f 6e 73 65 29 3b |enied(Re|sponse);|
|00002b90| 0d 0a 09 09 72 65 74 75 | 72 6e 3b 0d 0a 09 7d 0d |....retu|rn;...}.|
|00002ba0| 0a 0d 0a 09 47 61 6d 65 | 54 79 70 65 20 3d 20 53 |....Game|Type = S|
|00002bb0| 65 74 47 61 6d 65 50 49 | 28 52 65 71 75 65 73 74 |etGamePI|(Request|
|00002bc0| 2e 47 65 74 56 61 72 69 | 61 62 6c 65 28 22 47 61 |.GetVari|able("Ga|
|00002bd0| 6d 65 54 79 70 65 22 29 | 29 3b 0d 0a 09 46 69 6c |meType")|);...Fil|
|00002be0| 74 65 72 20 3d 20 52 65 | 71 75 65 73 74 2e 47 65 |ter = Re|quest.Ge|
|00002bf0| 74 56 61 72 69 61 62 6c | 65 28 22 46 69 6c 74 65 |tVariabl|e("Filte|
|00002c00| 72 22 29 3b 0d 0a 0d 0a | 09 62 53 61 76 65 20 3d |r");....|.bSave =|
|00002c10| 20 52 65 71 75 65 73 74 | 2e 47 65 74 56 61 72 69 | Request|.GetVari|
|00002c20| 61 62 6c 65 28 22 53 61 | 76 65 22 2c 20 22 22 29 |able("Sa|ve", "")|
|00002c30| 20 21 3d 20 22 22 3b 0d | 0a 0d 0a 09 43 6f 6e 74 | != "";.|....Cont|
|00002c40| 65 6e 74 20 3d 20 22 22 | 3b 0d 0a 09 4d 61 72 6b |ent = ""|;...Mark|
|00002c50| 20 3d 20 57 65 62 49 6e | 63 6c 75 64 65 28 22 64 | = WebIn|clude("d|
|00002c60| 65 66 61 75 6c 74 73 5f | 6d 61 72 6b 22 29 3b 0d |efaults_|mark");.|
|00002c70| 0a 09 52 65 73 70 6f 6e | 73 65 2e 53 75 62 73 74 |..Respon|se.Subst|
|00002c80| 28 22 53 65 63 74 69 6f | 6e 22 2c 20 46 69 6c 74 |("Sectio|n", Filt|
|00002c90| 65 72 29 3b 0d 0a 09 52 | 65 73 70 6f 6e 73 65 2e |er);...R|esponse.|
|00002ca0| 53 75 62 73 74 28 22 46 | 69 6c 74 65 72 22 2c 20 |Subst("F|ilter", |
|00002cb0| 46 69 6c 74 65 72 29 3b | 0d 0a 09 66 6f 72 20 28 |Filter);|...for (|
|00002cc0| 69 20 3d 20 30 3b 20 69 | 3c 47 61 6d 65 50 49 2e |i = 0; i|<GamePI.|
|00002cd0| 53 65 74 74 69 6e 67 73 | 2e 4c 65 6e 67 74 68 3b |Settings|.Length;|
|00002ce0| 20 69 2b 2b 29 0d 0a 09 | 7b 0d 0a 09 09 69 66 20 | i++)...|{....if |
|00002cf0| 28 47 61 6d 65 50 49 2e | 53 65 74 74 69 6e 67 73 |(GamePI.|Settings|
|00002d00| 5b 69 5d 2e 47 72 6f 75 | 70 69 6e 67 20 3d 3d 20 |[i].Grou|ping == |
|00002d10| 46 69 6c 74 65 72 20 26 | 26 20 47 61 6d 65 50 49 |Filter &|& GamePI|
|00002d20| 2e 53 65 74 74 69 6e 67 | 73 5b 69 5d 2e 53 65 63 |.Setting|s[i].Sec|
|00002d30| 4c 65 76 65 6c 20 3c 3d | 20 43 75 72 41 64 6d 69 |Level <=| CurAdmi|
|00002d40| 6e 2e 4d 61 78 53 65 63 | 4c 65 76 65 6c 28 29 20 |n.MaxSec|Level() |
|00002d50| 26 26 20 28 47 61 6d 65 | 50 49 2e 53 65 74 74 69 |&& (Game|PI.Setti|
|00002d60| 6e 67 73 5b 69 5d 2e 45 | 78 74 72 61 50 72 69 76 |ngs[i].E|xtraPriv|
|00002d70| 20 3d 3d 20 22 22 20 7c | 7c 20 43 61 6e 50 65 72 | == "" ||| CanPer|
|00002d80| 66 6f 72 6d 28 47 61 6d | 65 50 49 2e 53 65 74 74 |form(Gam|ePI.Sett|
|00002d90| 69 6e 67 73 5b 69 5d 2e | 45 78 74 72 61 50 72 69 |ings[i].|ExtraPri|
|00002da0| 76 29 29 29 0d 0a 09 09 | 7b 0d 0a 09 09 09 4f 70 |v)))....|{.....Op|
|00002db0| 74 69 6f 6e 73 2e 4c 65 | 6e 67 74 68 20 3d 20 30 |tions.Le|ngth = 0|
|00002dc0| 3b 0d 0a 09 09 09 54 65 | 6d 70 53 74 72 20 3d 20 |;.....Te|mpStr = |
|00002dd0| 48 74 6d 6c 44 65 63 6f | 64 65 28 52 65 71 75 65 |HtmlDeco|de(Reque|
|00002de0| 73 74 2e 47 65 74 56 61 | 72 69 61 62 6c 65 28 47 |st.GetVa|riable(G|
|00002df0| 61 6d 65 50 49 2e 53 65 | 74 74 69 6e 67 73 5b 69 |amePI.Se|ttings[i|
|00002e00| 5d 2e 53 65 74 74 69 6e | 67 4e 61 6d 65 2c 20 22 |].Settin|gName, "|
|00002e10| 22 29 29 3b 0d 0a 09 09 | 09 69 66 20 28 62 53 61 |"));....|.if (bSa|
|00002e20| 76 65 29 0d 0a 09 09 09 | 09 47 61 6d 65 50 49 2e |ve).....|.GamePI.|
|00002e30| 53 74 6f 72 65 53 65 74 | 74 69 6e 67 28 69 2c 20 |StoreSet|ting(i, |
|00002e40| 54 65 6d 70 53 74 72 2c | 20 47 61 6d 65 50 49 2e |TempStr,| GamePI.|
|00002e50| 53 65 74 74 69 6e 67 73 | 5b 69 5d 2e 44 61 74 61 |Settings|[i].Data|
|00002e60| 29 3b 0d 0a 0d 0a 09 09 | 09 62 4d 61 72 6b 65 64 |);......|.bMarked|
|00002e70| 20 3d 20 62 4d 61 72 6b | 65 64 20 7c 7c 20 47 61 | = bMark|ed || Ga|
|00002e80| 6d 65 50 49 2e 53 65 74 | 74 69 6e 67 73 5b 69 5d |mePI.Set|tings[i]|
|00002e90| 2e 62 47 6c 6f 62 61 6c | 3b 0d 0a 09 09 09 52 65 |.bGlobal|;.....Re|
|00002ea0| 73 70 6f 6e 73 65 2e 53 | 75 62 73 74 28 22 4d 61 |sponse.S|ubst("Ma|
|00002eb0| 72 6b 22 2c 20 53 74 72 | 69 6e 67 49 66 28 62 4d |rk", Str|ingIf(bM|
|00002ec0| 61 72 6b 65 64 2c 20 4d | 61 72 6b 2c 20 22 22 29 |arked, M|ark, "")|
|00002ed0| 29 3b 0d 0a 09 09 09 52 | 65 73 70 6f 6e 73 65 2e |);.....R|esponse.|
|00002ee0| 53 75 62 73 74 28 22 44 | 69 73 70 6c 61 79 54 65 |Subst("D|isplayTe|
|00002ef0| 78 74 22 2c 20 48 74 6d | 6c 45 6e 63 6f 64 65 28 |xt", Htm|lEncode(|
|00002f00| 47 61 6d 65 50 49 2e 53 | 65 74 74 69 6e 67 73 5b |GamePI.S|ettings[|
|00002f10| 69 5d 2e 44 69 73 70 6c | 61 79 4e 61 6d 65 29 29 |i].Displ|ayName))|
|00002f20| 3b 0d 0a 09 09 09 53 65 | 63 4c 65 76 65 6c 20 3d |;.....Se|cLevel =|
|00002f30| 20 53 74 72 69 6e 67 49 | 66 20 28 43 75 72 41 64 | StringI|f (CurAd|
|00002f40| 6d 69 6e 2e 62 4d 61 73 | 74 65 72 41 64 6d 69 6e |min.bMas|terAdmin|
|00002f50| 2c 20 73 74 72 69 6e 67 | 28 47 61 6d 65 50 49 2e |, string|(GamePI.|
|00002f60| 53 65 74 74 69 6e 67 73 | 5b 69 5d 2e 53 65 63 4c |Settings|[i].SecL|
|00002f70| 65 76 65 6c 29 2c 20 22 | 22 29 3b 0d 0a 09 09 09 |evel), "|");.....|
|00002f80| 52 65 73 70 6f 6e 73 65 | 2e 53 75 62 73 74 28 22 |Response|.Subst("|
|00002f90| 53 65 63 4c 65 76 65 6c | 22 2c 20 22 26 6e 62 73 |SecLevel|", "&nbs|
|00002fa0| 70 3b 26 6e 62 73 70 3b | 26 6e 62 73 70 3b 26 6e |p; | &n|
|00002fb0| 62 73 70 3b 26 6e 62 73 | 70 3b 22 20 24 20 53 65 |bsp;&nbs|p;" $ Se|
|00002fc0| 63 4c 65 76 65 6c 29 3b | 0d 0a 0d 0a 09 09 09 69 |cLevel);|.......i|
|00002fd0| 66 20 28 47 61 6d 65 50 | 49 2e 53 65 74 74 69 6e |f (GameP|I.Settin|
|00002fe0| 67 73 5b 69 5d 2e 52 65 | 6e 64 65 72 54 79 70 65 |gs[i].Re|nderType|
|00002ff0| 20 7e 3d 20 22 54 65 78 | 74 22 29 0d 0a 09 09 09 | ~= "Tex|t").....|
|00003000| 7b 0d 0a 09 09 09 09 44 | 61 74 61 20 3d 20 22 38 |{......D|ata = "8|
|00003010| 22 3b 0d 0a 09 09 09 09 | 69 66 20 28 47 61 6d 65 |";......|if (Game|
|00003020| 50 49 2e 53 65 74 74 69 | 6e 67 73 5b 69 5d 2e 44 |PI.Setti|ngs[i].D|
|00003030| 61 74 61 20 21 3d 20 22 | 22 29 0d 0a 09 09 09 09 |ata != "|")......|
|00003040| 7b 0d 0a 09 09 09 09 09 | 44 61 74 61 20 3d 20 47 |{.......|Data = G|
|00003050| 61 6d 65 50 49 2e 53 65 | 74 74 69 6e 67 73 5b 69 |amePI.Se|ttings[i|
|00003060| 5d 2e 44 61 74 61 3b 0d | 0a 09 09 09 09 09 44 69 |].Data;.|......Di|
|00003070| 76 69 64 65 28 47 61 6d | 65 50 49 2e 53 65 74 74 |vide(Gam|ePI.Sett|
|00003080| 69 6e 67 73 5b 69 5d 2e | 44 61 74 61 2c 20 22 3b |ings[i].|Data, ";|
|00003090| 22 2c 20 44 61 74 61 2c | 20 4f 70 29 3b 0d 0a 09 |", Data,| Op);...|
|000030a0| 09 09 09 09 47 61 6d 65 | 50 49 2e 53 70 6c 69 74 |....Game|PI.Split|
|000030b0| 53 74 72 69 6e 67 54 6f | 41 72 72 61 79 28 4f 70 |StringTo|Array(Op|
|000030c0| 74 69 6f 6e 73 2c 20 4f | 70 2c 20 22 3a 22 29 3b |tions, O|p, ":");|
|000030d0| 0d 0a 09 09 09 09 09 6a | 20 3d 20 69 6e 74 28 44 |.......j| = int(D|
|000030e0| 61 74 61 29 3b 0d 0a 09 | 09 09 09 7d 0d 0a 0d 0a |ata);...|...}....|
|000030f0| 09 09 09 09 4f 70 20 3d | 20 22 22 3b 0d 0a 09 09 |....Op =| "";....|
|00003100| 09 09 69 66 20 28 4f 70 | 74 69 6f 6e 73 2e 4c 65 |..if (Op|tions.Le|
|00003110| 6e 67 74 68 20 3e 20 31 | 29 0d 0a 09 09 09 09 09 |ngth > 1|).......|
|00003120| 4f 70 20 3d 20 22 20 28 | 22 24 4f 70 74 69 6f 6e |Op = " (|"$Option|
|00003130| 73 5b 30 5d 24 22 20 2d | 20 22 24 4f 70 74 69 6f |s[0]$" -| "$Optio|
|00003140| 6e 73 5b 31 5d 24 22 29 | 22 3b 0d 0a 0d 0a 09 09 |ns[1]$")|";......|
|00003150| 09 09 52 65 73 70 6f 6e | 73 65 2e 53 75 62 73 74 |..Respon|se.Subst|
|00003160| 28 22 43 6f 6e 74 65 6e | 74 22 2c 20 54 65 78 74 |("Conten|t", Text|
|00003170| 62 6f 78 28 47 61 6d 65 | 50 49 2e 53 65 74 74 69 |box(Game|PI.Setti|
|00003180| 6e 67 73 5b 69 5d 2e 53 | 65 74 74 69 6e 67 4e 61 |ngs[i].S|ettingNa|
|00003190| 6d 65 2c 20 6a 2c 20 32 | 2a 6a 2c 20 48 74 6d 6c |me, j, 2|*j, Html|
|000031a0| 45 6e 63 6f 64 65 28 47 | 61 6d 65 50 49 2e 53 65 |Encode(G|amePI.Se|
|000031b0| 74 74 69 6e 67 73 5b 69 | 5d 2e 56 61 6c 75 65 29 |ttings[i|].Value)|
|000031c0| 29 20 24 20 4f 70 29 3b | 0d 0a 09 09 09 09 52 65 |) $ Op);|......Re|
|000031d0| 73 70 6f 6e 73 65 2e 53 | 75 62 73 74 28 22 46 6f |sponse.S|ubst("Fo|
|000031e0| 72 6d 4f 62 6a 65 63 74 | 22 2c 20 57 65 62 49 6e |rmObject|", WebIn|
|000031f0| 63 6c 75 64 65 28 4e 6f | 77 72 61 70 4c 65 66 74 |clude(No|wrapLeft|
|00003200| 29 29 3b 0d 0a 09 09 09 | 7d 0d 0a 0d 0a 09 09 09 |));.....|}.......|
|00003210| 65 6c 73 65 20 69 66 20 | 28 47 61 6d 65 50 49 2e |else if |(GamePI.|
|00003220| 53 65 74 74 69 6e 67 73 | 5b 69 5d 2e 52 65 6e 64 |Settings|[i].Rend|
|00003230| 65 72 54 79 70 65 20 7e | 3d 20 22 43 68 65 63 6b |erType ~|= "Check|
|00003240| 22 29 0d 0a 09 09 09 7b | 0d 0a 09 09 09 09 69 66 |").....{|......if|
|00003250| 20 28 62 53 61 76 65 20 | 26 26 20 47 61 6d 65 50 | (bSave |&& GameP|
|00003260| 49 2e 53 65 74 74 69 6e | 67 73 5b 69 5d 2e 56 61 |I.Settin|gs[i].Va|
|00003270| 6c 75 65 20 3d 3d 20 22 | 22 29 0d 0a 09 09 09 09 |lue == "|")......|
|00003280| 09 47 61 6d 65 50 49 2e | 53 74 6f 72 65 53 65 74 |.GamePI.|StoreSet|
|00003290| 74 69 6e 67 28 69 2c 20 | 22 46 61 6c 73 65 22 29 |ting(i, |"False")|
|000032a0| 3b 0d 0a 0d 0a 09 09 09 | 09 52 65 73 70 6f 6e 73 |;.......|.Respons|
|000032b0| 65 2e 53 75 62 73 74 28 | 22 43 6f 6e 74 65 6e 74 |e.Subst(|"Content|
|000032c0| 22 2c 20 43 68 65 63 6b | 62 6f 78 28 47 61 6d 65 |", Check|box(Game|
|000032d0| 50 49 2e 53 65 74 74 69 | 6e 67 73 5b 69 5d 2e 53 |PI.Setti|ngs[i].S|
|000032e0| 65 74 74 69 6e 67 4e 61 | 6d 65 2c 20 47 61 6d 65 |ettingNa|me, Game|
|000032f0| 50 49 2e 53 65 74 74 69 | 6e 67 73 5b 69 5d 2e 56 |PI.Setti|ngs[i].V|
|00003300| 61 6c 75 65 20 7e 3d 20 | 22 54 72 75 65 22 2c 20 |alue ~= |"True", |
|00003310| 47 61 6d 65 50 49 2e 53 | 65 74 74 69 6e 67 73 5b |GamePI.S|ettings[|
|00003320| 69 5d 2e 44 61 74 61 20 | 21 3d 20 22 22 29 29 3b |i].Data |!= ""));|
|00003330| 0d 0a 09 09 09 09 52 65 | 73 70 6f 6e 73 65 2e 53 |......Re|sponse.S|
|00003340| 75 62 73 74 28 22 46 6f | 72 6d 4f 62 6a 65 63 74 |ubst("Fo|rmObject|
|00003350| 22 2c 20 57 65 62 49 6e | 63 6c 75 64 65 28 4e 6f |", WebIn|clude(No|
|00003360| 77 72 61 70 4c 65 66 74 | 29 29 3b 0d 0a 09 09 09 |wrapLeft|));.....|
|00003370| 7d 0d 0a 0d 0a 09 09 09 | 65 6c 73 65 20 69 66 20 |}.......|else if |
|00003380| 28 47 61 6d 65 50 49 2e | 53 65 74 74 69 6e 67 73 |(GamePI.|Settings|
|00003390| 5b 69 5d 2e 52 65 6e 64 | 65 72 54 79 70 65 20 7e |[i].Rend|erType ~|
|000033a0| 3d 20 22 53 65 6c 65 63 | 74 22 29 0d 0a 09 09 09 |= "Selec|t").....|
|000033b0| 7b 0d 0a 09 09 09 09 44 | 61 74 61 20 3d 20 22 22 |{......D|ata = ""|
|000033c0| 3b 0d 0a 09 09 09 09 2f | 2f 20 42 75 69 6c 64 20 |;....../|/ Build |
|000033d0| 61 20 73 65 74 20 6f 66 | 20 6f 70 74 69 6f 6e 73 |a set of| options|
|000033e0| 20 66 72 6f 6d 20 50 49 | 44 2e 44 61 74 61 0d 0a | from PI|D.Data..|
|000033f0| 09 09 09 09 47 61 6d 65 | 50 49 2e 53 70 6c 69 74 |....Game|PI.Split|
|00003400| 53 74 72 69 6e 67 54 6f | 41 72 72 61 79 28 4f 70 |StringTo|Array(Op|
|00003410| 74 69 6f 6e 73 2c 20 47 | 61 6d 65 50 49 2e 53 65 |tions, G|amePI.Se|
|00003420| 74 74 69 6e 67 73 5b 69 | 5d 2e 44 61 74 61 2c 20 |ttings[i|].Data, |
|00003430| 22 3b 22 29 3b 0d 0a 09 | 09 09 09 66 6f 72 20 28 |";");...|...for (|
|00003440| 6a 20 3d 20 30 3b 20 28 | 6a 2b 31 29 3c 4f 70 74 |j = 0; (|j+1)<Opt|
|00003450| 69 6f 6e 73 2e 4c 65 6e | 67 74 68 3b 20 6a 20 2b |ions.Len|gth; j +|
|00003460| 3d 20 32 29 0d 0a 09 09 | 09 09 7b 0d 0a 09 09 09 |= 2)....|..{.....|
|00003470| 09 09 44 61 74 61 20 2b | 3d 20 28 22 3c 6f 70 74 |..Data +|= ("<opt|
|00003480| 69 6f 6e 20 76 61 6c 75 | 65 3d 27 22 24 4f 70 74 |ion valu|e='"$Opt|
|00003490| 69 6f 6e 73 5b 6a 5d 24 | 22 27 22 29 3b 0d 0a 09 |ions[j]$|"'");...|
|000034a0| 09 09 09 09 49 66 20 28 | 47 61 6d 65 50 49 2e 53 |....If (|GamePI.S|
|000034b0| 65 74 74 69 6e 67 73 5b | 69 5d 2e 56 61 6c 75 65 |ettings[|i].Value|
|000034c0| 20 3d 3d 20 4f 70 74 69 | 6f 6e 73 5b 6a 5d 29 0d | == Opti|ons[j]).|
|000034d0| 0a 09 09 09 09 09 09 44 | 61 74 61 20 40 3d 20 22 |.......D|ata @= "|
|000034e0| 73 65 6c 65 63 74 65 64 | 22 3b 0d 0a 09 09 09 09 |selected|";......|
|000034f0| 09 44 61 74 61 20 2b 3d | 20 28 22 3e 22 24 48 74 |.Data +=| (">"$Ht|
|00003500| 6d 6c 45 6e 63 6f 64 65 | 28 4f 70 74 69 6f 6e 73 |mlEncode|(Options|
|00003510| 5b 6a 2b 31 5d 29 24 22 | 3c 2f 6f 70 74 69 6f 6e |[j+1])$"|</option|
|00003520| 3e 22 29 3b 0d 0a 09 09 | 09 09 7d 0d 0a 0d 0a 09 |>");....|..}.....|
|00003530| 09 09 09 52 65 73 70 6f | 6e 73 65 2e 53 75 62 73 |...Respo|nse.Subs|
|00003540| 74 28 22 43 6f 6e 74 65 | 6e 74 22 2c 20 53 65 6c |t("Conte|nt", Sel|
|00003550| 65 63 74 28 47 61 6d 65 | 50 49 2e 53 65 74 74 69 |ect(Game|PI.Setti|
|00003560| 6e 67 73 5b 69 5d 2e 53 | 65 74 74 69 6e 67 4e 61 |ngs[i].S|ettingNa|
|00003570| 6d 65 2c 20 44 61 74 61 | 29 29 3b 0d 0a 09 09 09 |me, Data|));.....|
|00003580| 09 52 65 73 70 6f 6e 73 | 65 2e 53 75 62 73 74 28 |.Respons|e.Subst(|
|00003590| 22 46 6f 72 6d 4f 62 6a | 65 63 74 22 2c 20 57 65 |"FormObj|ect", We|
|000035a0| 62 49 6e 63 6c 75 64 65 | 28 4e 6f 77 72 61 70 4c |bInclude|(NowrapL|
|000035b0| 65 66 74 29 29 3b 0d 0a | 09 09 09 7d 0d 0a 0d 0a |eft));..|...}....|
|000035c0| 09 09 09 43 6f 6e 74 65 | 6e 74 20 2b 3d 20 57 65 |...Conte|nt += We|
|000035d0| 62 49 6e 63 6c 75 64 65 | 28 44 65 66 61 75 6c 74 |bInclude|(Default|
|000035e0| 73 52 6f 77 50 61 67 65 | 29 3b 0d 0a 09 09 7d 0d |sRowPage|);....}.|
|000035f0| 0a 09 7d 0d 0a 09 47 61 | 6d 65 50 49 2e 53 61 76 |..}...Ga|mePI.Sav|
|00003600| 65 53 65 74 74 69 6e 67 | 73 28 29 3b 0d 0a 0d 0a |eSetting|s();....|
|00003610| 09 69 66 20 28 43 6f 6e | 74 65 6e 74 20 3d 3d 20 |.if (Con|tent == |
|00003620| 22 22 29 0d 0a 09 09 43 | 6f 6e 74 65 6e 74 20 3d |"")....C|ontent =|
|00003630| 20 43 61 6e 6e 6f 74 4d | 6f 64 69 66 79 3b 0d 0a | CannotM|odify;..|
|00003640| 0d 0a 09 52 65 73 70 6f | 6e 73 65 2e 53 75 62 73 |...Respo|nse.Subs|
|00003650| 74 28 22 54 61 62 6c 65 | 43 6f 6e 74 65 6e 74 22 |t("Table|Content"|
|00003660| 2c 20 43 6f 6e 74 65 6e | 74 29 3b 0d 0a 20 20 20 |, Conten|t);.. |
|00003670| 20 52 65 73 70 6f 6e 73 | 65 2e 53 75 62 73 74 28 | Respons|e.Subst(|
|00003680| 22 50 6f 73 74 41 63 74 | 69 6f 6e 22 2c 20 44 65 |"PostAct|ion", De|
|00003690| 66 61 75 6c 74 73 52 75 | 6c 65 73 50 61 67 65 29 |faultsRu|lesPage)|
|000036a0| 3b 0d 0a 20 20 20 09 52 | 65 73 70 6f 6e 73 65 2e |;.. .R|esponse.|
|000036b0| 53 75 62 73 74 28 22 47 | 61 6d 65 54 79 70 65 22 |Subst("G|ameType"|
|000036c0| 2c 20 47 61 6d 65 54 79 | 70 65 29 3b 0d 0a 09 52 |, GameTy|pe);...R|
|000036d0| 65 73 70 6f 6e 73 65 2e | 53 75 62 73 74 28 22 53 |esponse.|Subst("S|
|000036e0| 75 62 6d 69 74 56 61 6c | 75 65 22 2c 20 41 63 63 |ubmitVal|ue", Acc|
|000036f0| 65 70 74 29 3b 0d 0a 09 | 52 65 73 70 6f 6e 73 65 |ept);...|Response|
|00003700| 2e 53 75 62 73 74 28 22 | 50 61 67 65 48 65 6c 70 |.Subst("|PageHelp|
|00003710| 22 2c 20 4e 6f 74 65 52 | 75 6c 65 73 50 61 67 65 |", NoteR|ulesPage|
|00003720| 29 3b 0d 0a 09 53 68 6f | 77 50 61 67 65 28 52 65 |);...Sho|wPage(Re|
|00003730| 73 70 6f 6e 73 65 2c 20 | 44 65 66 61 75 6c 74 73 |sponse, |Defaults|
|00003740| 52 75 6c 65 73 50 61 67 | 65 29 3b 0d 0a 7d 0d 0a |RulesPag|e);..}..|
|00003750| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 51 75 65 72 79 |..functi|on Query|
|00003760| 44 65 66 61 75 6c 74 73 | 49 50 50 6f 6c 69 63 79 |Defaults|IPPolicy|
|00003770| 28 57 65 62 52 65 71 75 | 65 73 74 20 52 65 71 75 |(WebRequ|est Requ|
|00003780| 65 73 74 2c 20 57 65 62 | 52 65 73 70 6f 6e 73 65 |est, Web|Response|
|00003790| 20 52 65 73 70 6f 6e 73 | 65 29 0d 0a 7b 0d 0a 6c | Respons|e)..{..l|
|000037a0| 6f 63 61 6c 20 69 6e 74 | 20 69 2c 20 6a 3b 0d 0a |ocal int| i, j;..|
|000037b0| 6c 6f 63 61 6c 20 62 6f | 6f 6c 20 62 49 70 42 61 |local bo|ol bIpBa|
|000037c0| 6e 3b 0d 0a 6c 6f 63 61 | 6c 20 73 74 72 69 6e 67 |n;..loca|l string|
|000037d0| 20 70 6f 6c 69 63 69 65 | 73 2c 20 74 6d 70 4e 2c | policie|s, tmpN,|
|000037e0| 20 74 6d 70 56 3b 0d 0a | 6c 6f 63 61 6c 20 73 74 | tmpV;..|local st|
|000037f0| 72 69 6e 67 20 50 6f 6c | 69 63 79 54 79 70 65 3b |ring Pol|icyType;|
|00003800| 0d 0a 0d 0a 09 69 66 20 | 28 43 61 6e 50 65 72 66 |.....if |(CanPerf|
|00003810| 6f 72 6d 28 22 58 69 22 | 29 29 0d 0a 09 7b 0d 0a |orm("Xi"|))...{..|
|00003820| 09 09 52 65 73 70 6f 6e | 73 65 2e 53 75 62 73 74 |..Respon|se.Subst|
|00003830| 28 22 53 65 63 74 69 6f | 6e 22 2c 20 44 65 66 61 |("Sectio|n", Defa|
|00003840| 75 6c 74 73 49 50 50 6f | 6c 69 63 79 4c 69 6e 6b |ultsIPPo|licyLink|
|00003850| 29 3b 0d 0a 09 09 69 66 | 20 28 52 65 71 75 65 73 |);....if| (Reques|
|00003860| 74 2e 47 65 74 56 61 72 | 69 61 62 6c 65 28 22 55 |t.GetVar|iable("U|
|00003870| 70 64 61 74 65 22 29 20 | 21 3d 20 22 22 29 0d 0a |pdate") |!= "")..|
|00003880| 09 09 7b 0d 0a 09 09 09 | 69 20 3d 20 69 6e 74 28 |..{.....|i = int(|
|00003890| 52 65 71 75 65 73 74 2e | 47 65 74 56 61 72 69 61 |Request.|GetVaria|
|000038a0| 62 6c 65 28 22 49 70 4e | 6f 22 2c 20 22 2d 31 22 |ble("IpN|o", "-1"|
|000038b0| 29 29 3b 0d 0a 09 09 09 | 69 66 28 69 20 3e 20 2d |));.....|if(i > -|
|000038c0| 31 20 26 26 20 56 61 6c | 69 64 4d 61 73 6b 28 52 |1 && Val|idMask(R|
|000038d0| 65 71 75 65 73 74 2e 47 | 65 74 56 61 72 69 61 62 |equest.G|etVariab|
|000038e0| 6c 65 28 22 49 50 4d 61 | 73 6b 22 29 29 29 0d 0a |le("IPMa|sk")))..|
|000038f0| 09 09 09 7b 0d 0a 09 09 | 09 09 69 66 20 28 69 20 |...{....|..if (i |
|00003900| 3e 3d 20 4c 65 76 65 6c | 2e 47 61 6d 65 2e 41 63 |>= Level|.Game.Ac|
|00003910| 63 65 73 73 43 6f 6e 74 | 72 6f 6c 2e 49 50 50 6f |cessCont|rol.IPPo|
|00003920| 6c 69 63 69 65 73 2e 4c | 65 6e 67 74 68 29 0d 0a |licies.L|ength)..|
|00003930| 09 09 09 09 7b 0d 0a 09 | 09 09 09 09 69 20 3d 20 |....{...|....i = |
|00003940| 4c 65 76 65 6c 2e 47 61 | 6d 65 2e 41 63 63 65 73 |Level.Ga|me.Acces|
|00003950| 73 43 6f 6e 74 72 6f 6c | 2e 49 50 50 6f 6c 69 63 |sControl|.IPPolic|
|00003960| 69 65 73 2e 4c 65 6e 67 | 74 68 3b 0d 0a 09 09 09 |ies.Leng|th;.....|
|00003970| 09 09 4c 65 76 65 6c 2e | 47 61 6d 65 2e 41 63 63 |..Level.|Game.Acc|
|00003980| 65 73 73 43 6f 6e 74 72 | 6f 6c 2e 49 50 50 6f 6c |essContr|ol.IPPol|
|00003990| 69 63 69 65 73 2e 4c 65 | 6e 67 74 68 20 3d 20 69 |icies.Le|ngth = i|
|000039a0| 2b 31 3b 0d 0a 09 09 09 | 09 7d 0d 0a 09 09 09 09 |+1;.....|.}......|
|000039b0| 4c 65 76 65 6c 2e 47 61 | 6d 65 2e 41 63 63 65 73 |Level.Ga|me.Acces|
|000039c0| 73 43 6f 6e 74 72 6f 6c | 2e 49 50 50 6f 6c 69 63 |sControl|.IPPolic|
|000039d0| 69 65 73 5b 69 5d 20 3d | 20 52 65 71 75 65 73 74 |ies[i] =| Request|
|000039e0| 2e 47 65 74 56 61 72 69 | 61 62 6c 65 28 22 41 63 |.GetVari|able("Ac|
|000039f0| 63 65 70 74 44 65 6e 79 | 22 29 24 22 2c 22 24 52 |ceptDeny|")$","$R|
|00003a00| 65 71 75 65 73 74 2e 47 | 65 74 56 61 72 69 61 62 |equest.G|etVariab|
|00003a10| 6c 65 28 22 49 50 4d 61 | 73 6b 22 29 3b 0d 0a 09 |le("IPMa|sk");...|
|00003a20| 09 09 09 4c 65 76 65 6c | 2e 47 61 6d 65 2e 41 63 |...Level|.Game.Ac|
|00003a30| 63 65 73 73 43 6f 6e 74 | 72 6f 6c 2e 53 61 76 65 |cessCont|rol.Save|
|00003a40| 43 6f 6e 66 69 67 28 29 | 3b 0d 0a 09 09 09 7d 0d |Config()|;.....}.|
|00003a50| 0a 09 09 7d 0d 0a 0d 0a | 09 09 69 66 28 52 65 71 |...}....|..if(Req|
|00003a60| 75 65 73 74 2e 47 65 74 | 56 61 72 69 61 62 6c 65 |uest.Get|Variable|
|00003a70| 28 22 44 65 6c 65 74 65 | 22 29 20 21 3d 20 22 22 |("Delete|") != ""|
|00003a80| 29 0d 0a 09 09 7b 0d 0a | 09 09 09 69 20 3d 20 69 |)....{..|...i = i|
|00003a90| 6e 74 28 52 65 71 75 65 | 73 74 2e 47 65 74 56 61 |nt(Reque|st.GetVa|
|00003aa0| 72 69 61 62 6c 65 28 22 | 49 64 4e 6f 22 2c 20 22 |riable("|IdNo", "|
|00003ab0| 2d 31 22 29 29 3b 0d 0a | 09 09 09 69 66 20 28 69 |-1"));..|...if (i|
|00003ac0| 20 3d 3d 20 2d 31 29 0d | 0a 09 09 09 7b 0d 0a 09 | == -1).|....{...|
|00003ad0| 09 09 09 62 49 70 42 61 | 6e 20 3d 20 54 72 75 65 |...bIpBa|n = True|
|00003ae0| 3b 0d 0a 09 09 09 09 69 | 20 3d 20 69 6e 74 28 52 |;......i| = int(R|
|00003af0| 65 71 75 65 73 74 2e 47 | 65 74 56 61 72 69 61 62 |equest.G|etVariab|
|00003b00| 6c 65 28 22 49 70 4e 6f | 22 2c 20 22 2d 31 22 29 |le("IpNo|", "-1")|
|00003b10| 29 3b 0d 0a 09 09 09 7d | 0d 0a 0d 0a 09 09 09 69 |);.....}|.......i|
|00003b20| 66 20 28 69 20 3e 20 2d | 31 29 0d 0a 09 09 09 7b |f (i > -|1).....{|
|00003b30| 0d 0a 09 09 09 09 69 66 | 20 28 20 62 49 70 42 61 |......if| ( bIpBa|
|00003b40| 6e 20 26 26 20 69 20 3c | 20 4c 65 76 65 6c 2e 47 |n && i <| Level.G|
|00003b50| 61 6d 65 2e 41 63 63 65 | 73 73 43 6f 6e 74 72 6f |ame.Acce|ssContro|
|00003b60| 6c 2e 49 50 50 6f 6c 69 | 63 69 65 73 2e 4c 65 6e |l.IPPoli|cies.Len|
|00003b70| 67 74 68 20 29 0d 0a 09 | 09 09 09 7b 0d 0a 09 09 |gth )...|...{....|
|00003b80| 09 09 09 4c 65 76 65 6c | 2e 47 61 6d 65 2e 41 63 |...Level|.Game.Ac|
|00003b90| 63 65 73 73 43 6f 6e 74 | 72 6f 6c 2e 49 50 50 6f |cessCont|rol.IPPo|
|00003ba0| 6c 69 63 69 65 73 2e 52 | 65 6d 6f 76 65 28 69 2c |licies.R|emove(i,|
|00003bb0| 31 29 3b 0d 0a 09 09 09 | 09 09 4c 65 76 65 6c 2e |1);.....|..Level.|
|00003bc0| 47 61 6d 65 2e 41 63 63 | 65 73 73 43 6f 6e 74 72 |Game.Acc|essContr|
|00003bd0| 6f 6c 2e 53 61 76 65 43 | 6f 6e 66 69 67 28 29 3b |ol.SaveC|onfig();|
|00003be0| 0d 0a 09 09 09 09 7d 0d | 0a 0d 0a 09 09 09 09 69 |......}.|.......i|
|00003bf0| 66 20 28 20 21 62 49 70 | 42 61 6e 20 26 26 20 69 |f ( !bIp|Ban && i|
|00003c00| 20 3c 20 4c 65 76 65 6c | 2e 47 61 6d 65 2e 41 63 | < Level|.Game.Ac|
|00003c10| 63 65 73 73 43 6f 6e 74 | 72 6f 6c 2e 42 61 6e 6e |cessCont|rol.Bann|
|00003c20| 65 64 49 44 73 2e 4c 65 | 6e 67 74 68 20 29 0d 0a |edIDs.Le|ngth )..|
|00003c30| 09 09 09 09 7b 0d 0a 09 | 09 09 09 09 4c 65 76 65 |....{...|....Leve|
|00003c40| 6c 2e 47 61 6d 65 2e 41 | 63 63 65 73 73 43 6f 6e |l.Game.A|ccessCon|
|00003c50| 74 72 6f 6c 2e 42 61 6e | 6e 65 64 49 44 73 2e 52 |trol.Ban|nedIDs.R|
|00003c60| 65 6d 6f 76 65 28 69 2c | 31 29 3b 0d 0a 09 09 09 |emove(i,|1);.....|
|00003c70| 09 09 4c 65 76 65 6c 2e | 47 61 6d 65 2e 41 63 63 |..Level.|Game.Acc|
|00003c80| 65 73 73 43 6f 6e 74 72 | 6f 6c 2e 53 61 76 65 43 |essContr|ol.SaveC|
|00003c90| 6f 6e 66 69 67 28 29 3b | 0d 0a 09 09 09 09 7d 0d |onfig();|......}.|
|00003ca0| 0a 09 09 09 7d 0d 0a 09 | 09 7d 0d 0a 0d 0a 09 09 |....}...|.}......|
|00003cb0| 50 6f 6c 69 63 69 65 73 | 20 3d 20 22 22 3b 0d 0a |Policies| = "";..|
|00003cc0| 09 09 69 66 20 28 4c 65 | 76 65 6c 2e 47 61 6d 65 |..if (Le|vel.Game|
|00003cd0| 2e 41 63 63 65 73 73 43 | 6f 6e 74 72 6f 6c 2e 62 |.AccessC|ontrol.b|
|00003ce0| 42 61 6e 42 79 49 64 29 | 0d 0a 09 09 7b 0d 0a 09 |BanById)|....{...|
|00003cf0| 09 09 66 6f 72 20 28 69 | 20 3d 20 30 3b 20 69 20 |..for (i| = 0; i |
|00003d00| 3c 20 4c 65 76 65 6c 2e | 47 61 6d 65 2e 41 63 63 |< Level.|Game.Acc|
|00003d10| 65 73 73 43 6f 6e 74 72 | 6f 6c 2e 42 61 6e 6e 65 |essContr|ol.Banne|
|00003d20| 64 49 64 73 2e 4c 65 6e | 67 74 68 3b 20 69 2b 2b |dIds.Len|gth; i++|
|00003d30| 29 0d 0a 09 09 09 7b 0d | 0a 09 09 09 09 6a 20 3d |).....{.|.....j =|
|00003d40| 20 49 6e 53 74 72 28 4c | 65 76 65 6c 2e 47 61 6d | InStr(L|evel.Gam|
|00003d50| 65 2e 41 63 63 65 73 73 | 43 6f 6e 74 72 6f 6c 2e |e.Access|Control.|
|00003d60| 42 61 6e 6e 65 64 49 44 | 73 5b 69 5d 2c 20 22 20 |BannedID|s[i], " |
|00003d70| 22 29 3b 0d 0a 09 09 09 | 09 74 6d 70 4e 20 3d 20 |");.....|.tmpN = |
|00003d80| 4d 69 64 28 4c 65 76 65 | 6c 2e 47 61 6d 65 2e 41 |Mid(Leve|l.Game.A|
|00003d90| 63 63 65 73 73 43 6f 6e | 74 72 6f 6c 2e 42 61 6e |ccessCon|trol.Ban|
|00003da0| 6e 65 64 49 44 73 5b 69 | 5d 2c 20 6a 20 2b 20 31 |nedIDs[i|], j + 1|
|00003db0| 29 3b 0d 0a 09 09 09 09 | 74 6d 70 56 20 3d 20 4c |);......|tmpV = L|
|00003dc0| 65 66 74 28 4c 65 76 65 | 6c 2e 47 61 6d 65 2e 41 |eft(Leve|l.Game.A|
|00003dd0| 63 63 65 73 73 43 6f 6e | 74 72 6f 6c 2e 42 61 6e |ccessCon|trol.Ban|
|00003de0| 6e 65 64 49 44 73 5b 69 | 5d 2c 20 6a 29 3b 0d 0a |nedIDs[i|], j);..|
|00003df0| 0d 0a 09 09 09 09 52 65 | 73 70 6f 6e 73 65 2e 53 |......Re|sponse.S|
|00003e00| 75 62 73 74 28 22 50 6f | 6c 69 63 79 54 79 70 65 |ubst("Po|licyType|
|00003e10| 22 2c 20 49 44 42 61 6e | 29 3b 0d 0a 09 09 09 09 |", IDBan|);......|
|00003e20| 52 65 73 70 6f 6e 73 65 | 2e 53 75 62 73 74 28 22 |Response|.Subst("|
|00003e30| 50 6f 6c 69 63 79 43 65 | 6c 6c 22 2c 20 74 6d 70 |PolicyCe|ll", tmp|
|00003e40| 4e 20 24 20 22 3a 22 20 | 40 20 74 6d 70 56 20 24 |N $ ":" |@ tmpV $|
|00003e50| 20 22 26 6e 62 73 70 3b | 26 6e 62 73 70 3b 22 29 | " | ")|
|00003e60| 3b 0d 0a 09 09 09 09 52 | 65 73 70 6f 6e 73 65 2e |;......R|esponse.|
|00003e70| 53 75 62 73 74 28 22 50 | 6f 73 74 41 63 74 69 6f |Subst("P|ostActio|
|00003e80| 6e 22 2c 20 44 65 66 61 | 75 6c 74 73 49 50 50 6f |n", Defa|ultsIPPo|
|00003e90| 6c 69 63 79 50 61 67 65 | 20 24 20 22 3f 49 44 4e |licyPage| $ "?IDN|
|00003ea0| 6f 3d 22 24 73 74 72 69 | 6e 67 28 69 29 29 3b 0d |o="$stri|ng(i));.|
|00003eb0| 0a 09 09 09 09 52 65 73 | 70 6f 6e 73 65 2e 53 75 |.....Res|ponse.Su|
|00003ec0| 62 73 74 28 22 55 70 64 | 61 74 65 42 75 74 74 6f |bst("Upd|ateButto|
|00003ed0| 6e 22 2c 20 22 22 29 3b | 0d 0a 09 09 09 09 50 6f |n", "");|......Po|
|00003ee0| 6c 69 63 69 65 73 20 3d | 20 50 6f 6c 69 63 69 65 |licies =| Policie|
|00003ef0| 73 20 24 20 57 65 62 49 | 6e 63 6c 75 64 65 28 44 |s $ WebI|nclude(D|
|00003f00| 65 66 61 75 6c 74 73 49 | 50 50 6f 6c 69 63 79 50 |efaultsI|PPolicyP|
|00003f10| 61 67 65 20 24 20 22 5f | 72 6f 77 22 29 3b 0d 0a |age $ "_|row");..|
|00003f20| 09 09 09 7d 0d 0a 09 09 | 7d 0d 0a 0d 0a 09 09 66 |...}....|}......f|
|00003f30| 6f 72 28 69 3d 30 3b 20 | 69 3c 4c 65 76 65 6c 2e |or(i=0; |i<Level.|
|00003f40| 47 61 6d 65 2e 41 63 63 | 65 73 73 43 6f 6e 74 72 |Game.Acc|essContr|
|00003f50| 6f 6c 2e 49 50 50 6f 6c | 69 63 69 65 73 2e 4c 65 |ol.IPPol|icies.Le|
|00003f60| 6e 67 74 68 3b 20 69 2b | 2b 29 0d 0a 09 09 7b 0d |ngth; i+|+)....{.|
|00003f70| 0a 09 09 09 6a 20 3d 20 | 49 6e 53 74 72 28 4c 65 |....j = |InStr(Le|
|00003f80| 76 65 6c 2e 47 61 6d 65 | 2e 41 63 63 65 73 73 43 |vel.Game|.AccessC|
|00003f90| 6f 6e 74 72 6f 6c 2e 49 | 50 50 6f 6c 69 63 69 65 |ontrol.I|PPolicie|
|00003fa0| 73 5b 69 5d 2c 20 22 2c | 22 29 3b 0d 0a 09 09 09 |s[i], ",|");.....|
|00003fb0| 74 6d 70 4e 20 3d 20 4c | 65 66 74 28 4c 65 76 65 |tmpN = L|eft(Leve|
|00003fc0| 6c 2e 47 61 6d 65 2e 41 | 63 63 65 73 73 43 6f 6e |l.Game.A|ccessCon|
|00003fd0| 74 72 6f 6c 2e 49 50 50 | 6f 6c 69 63 69 65 73 5b |trol.IPP|olicies[|
|00003fe0| 69 5d 2c 20 6a 29 3b 0d | 0a 09 09 09 74 6d 70 56 |i], j);.|....tmpV|
|00003ff0| 20 3d 20 4d 69 64 28 4c | 65 76 65 6c 2e 47 61 6d | = Mid(L|evel.Gam|
|00004000| 65 2e 41 63 63 65 73 73 | 43 6f 6e 74 72 6f 6c 2e |e.Access|Control.|
|00004010| 49 50 50 6f 6c 69 63 69 | 65 73 5b 69 5d 2c 20 6a |IPPolici|es[i], j|
|00004020| 20 2b 20 31 29 3b 0d 0a | 0d 0a 09 09 09 50 6f 6c | + 1);..|.....Pol|
|00004030| 69 63 79 54 79 70 65 20 | 3d 20 52 61 64 69 6f 42 |icyType |= RadioB|
|00004040| 75 74 74 6f 6e 28 22 41 | 63 63 65 70 74 44 65 6e |utton("A|cceptDen|
|00004050| 79 22 2c 20 22 41 43 43 | 45 50 54 22 2c 20 74 6d |y", "ACC|EPT", tm|
|00004060| 70 4e 20 7e 3d 20 22 41 | 43 43 45 50 54 22 29 20 |pN ~= "A|CCEPT") |
|00004070| 40 20 41 63 63 65 70 74 | 20 24 20 22 3c 62 72 3e |@ Accept| $ "<br>|
|00004080| 22 3b 0d 0a 09 09 09 50 | 6f 6c 69 63 79 54 79 70 |";.....P|olicyTyp|
|00004090| 65 20 3d 20 50 6f 6c 69 | 63 79 54 79 70 65 20 24 |e = Poli|cyType $|
|000040a0| 20 52 61 64 69 6f 42 75 | 74 74 6f 6e 28 22 41 63 | RadioBu|tton("Ac|
|000040b0| 63 65 70 74 44 65 6e 79 | 22 2c 20 22 44 45 4e 59 |ceptDeny|", "DENY|
|000040c0| 22 2c 20 74 6d 70 4e 20 | 7e 3d 20 22 44 45 4e 59 |", tmpN |~= "DENY|
|000040d0| 22 29 20 40 20 44 65 6e | 79 3b 0d 0a 0d 0a 09 09 |") @ Den|y;......|
|000040e0| 09 52 65 73 70 6f 6e 73 | 65 2e 53 75 62 73 74 28 |.Respons|e.Subst(|
|000040f0| 22 50 6f 6c 69 63 79 54 | 79 70 65 22 2c 20 50 6f |"PolicyT|ype", Po|
|00004100| 6c 69 63 79 54 79 70 65 | 29 3b 0d 0a 09 09 09 52 |licyType|);.....R|
|00004110| 65 73 70 6f 6e 73 65 2e | 53 75 62 73 74 28 22 50 |esponse.|Subst("P|
|00004120| 6f 6c 69 63 79 43 65 6c | 6c 22 2c 20 54 65 78 74 |olicyCel|l", Text|
|00004130| 62 6f 78 28 22 49 50 4d | 61 73 6b 22 2c 20 31 35 |box("IPM|ask", 15|
|00004140| 2c 20 32 35 2c 20 74 6d | 70 56 29 20 24 20 22 26 |, 25, tm|pV) $ "&|
|00004150| 6e 62 73 70 3b 26 6e 62 | 73 70 3b 22 29 3b 0d 0a |nbsp;&nb|sp;");..|
|00004160| 09 09 09 52 65 73 70 6f | 6e 73 65 2e 53 75 62 73 |...Respo|nse.Subs|
|00004170| 74 28 22 50 6f 73 74 41 | 63 74 69 6f 6e 22 2c 20 |t("PostA|ction", |
|00004180| 44 65 66 61 75 6c 74 73 | 49 50 50 6f 6c 69 63 79 |Defaults|IPPolicy|
|00004190| 50 61 67 65 20 24 20 22 | 3f 49 70 4e 6f 3d 22 24 |Page $ "|?IpNo="$|
|000041a0| 73 74 72 69 6e 67 28 69 | 29 29 3b 0d 0a 09 09 09 |string(i|));.....|
|000041b0| 52 65 73 70 6f 6e 73 65 | 2e 53 75 62 73 74 28 22 |Response|.Subst("|
|000041c0| 55 70 64 61 74 65 42 75 | 74 74 6f 6e 22 2c 20 53 |UpdateBu|tton", S|
|000041d0| 75 62 6d 69 74 42 75 74 | 74 6f 6e 28 22 55 70 64 |ubmitBut|ton("Upd|
|000041e0| 61 74 65 22 2c 20 55 70 | 64 61 74 65 29 29 3b 0d |ate", Up|date));.|
|000041f0| 0a 09 09 09 50 6f 6c 69 | 63 69 65 73 20 3d 20 50 |....Poli|cies = P|
|00004200| 6f 6c 69 63 69 65 73 20 | 24 20 57 65 62 49 6e 63 |olicies |$ WebInc|
|00004210| 6c 75 64 65 28 44 65 66 | 61 75 6c 74 73 49 50 50 |lude(Def|aultsIPP|
|00004220| 6f 6c 69 63 79 50 61 67 | 65 20 24 20 22 5f 72 6f |olicyPag|e $ "_ro|
|00004230| 77 22 29 3b 0d 0a 09 09 | 7d 0d 0a 0d 0a 09 09 52 |w");....|}......R|
|00004240| 65 73 70 6f 6e 73 65 2e | 53 75 62 73 74 28 22 50 |esponse.|Subst("P|
|00004250| 6f 6c 69 63 69 65 73 22 | 2c 20 70 6f 6c 69 63 69 |olicies"|, polici|
|00004260| 65 73 29 3b 0d 0a 09 09 | 52 65 73 70 6f 6e 73 65 |es);....|Response|
|00004270| 2e 53 75 62 73 74 28 22 | 50 6f 73 74 41 63 74 69 |.Subst("|PostActi|
|00004280| 6f 6e 22 2c 20 44 65 66 | 61 75 6c 74 73 49 50 50 |on", Def|aultsIPP|
|00004290| 6f 6c 69 63 79 50 61 67 | 65 24 22 3f 49 70 4e 6f |olicyPag|e$"?IpNo|
|000042a0| 3d 22 24 73 74 72 69 6e | 67 28 69 29 29 3b 0d 0a |="$strin|g(i));..|
|000042b0| 09 09 52 65 73 70 6f 6e | 73 65 2e 53 75 62 73 74 |..Respon|se.Subst|
|000042c0| 28 22 50 61 67 65 48 65 | 6c 70 22 2c 20 4e 6f 74 |("PageHe|lp", Not|
|000042d0| 65 50 6f 6c 69 63 79 50 | 61 67 65 29 3b 0d 0a 09 |ePolicyP|age);...|
|000042e0| 09 53 68 6f 77 50 61 67 | 65 28 52 65 73 70 6f 6e |.ShowPag|e(Respon|
|000042f0| 73 65 2c 20 44 65 66 61 | 75 6c 74 73 49 50 50 6f |se, Defa|ultsIPPo|
|00004300| 6c 69 63 79 50 61 67 65 | 29 3b 0d 0a 09 7d 0d 0a |licyPage|);...}..|
|00004310| 09 65 6c 73 65 0d 0a 09 | 09 41 63 63 65 73 73 44 |.else...|.AccessD|
|00004320| 65 6e 69 65 64 28 52 65 | 73 70 6f 6e 73 65 29 3b |enied(Re|sponse);|
|00004330| 0d 0a 7d 0d 0a 0d 0a 2f | 2f 20 65 76 6f 20 2d 2d |..}..../|/ evo --|
|00004340| 2d 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 62 6f 6f 6c |-..funct|ion bool|
|00004350| 20 56 61 6c 69 64 4d 61 | 73 6b 28 73 74 72 69 6e | ValidMa|sk(strin|
|00004360| 67 20 6d 61 73 6b 29 0d | 0a 7b 0d 0a 09 6c 6f 63 |g mask).|.{...loc|
|00004370| 61 6c 20 69 6e 74 20 69 | 3b 0d 0a 09 6c 6f 63 61 |al int i|;...loca|
|00004380| 6c 20 73 74 72 69 6e 67 | 20 4f 63 74 65 74 73 5b |l string| Octets[|
|00004390| 34 5d 3b 0d 0a 09 6c 6f | 63 61 6c 20 73 74 72 69 |4];...lo|cal stri|
|000043a0| 6e 67 20 74 6d 70 3b 0d | 0a 0d 0a 09 2f 2f 20 46 |ng tmp;.|....// F|
|000043b0| 69 72 73 74 20 63 68 65 | 63 6b 20 65 61 63 68 20 |irst che|ck each |
|000043c0| 6f 63 74 65 74 20 74 6f | 20 6d 61 6b 65 20 73 75 |octet to| make su|
|000043d0| 72 65 20 69 74 27 73 20 | 61 20 62 79 74 65 0d 0a |re it's |a byte..|
|000043e0| 09 77 68 69 6c 65 20 28 | 6d 61 73 6b 20 21 3d 20 |.while (|mask != |
|000043f0| 22 22 29 0d 0a 09 7b 0d | 0a 09 09 69 66 20 28 4c |"")...{.|...if (L|
|00004400| 65 66 74 28 6d 61 73 6b | 2c 31 29 20 3d 3d 20 22 |eft(mask|,1) == "|
|00004410| 2e 22 29 0d 0a 09 09 7b | 0d 0a 09 09 09 69 66 20 |.")....{|.....if |
|00004420| 28 21 56 61 6c 69 64 4f | 63 74 65 74 28 74 6d 70 |(!ValidO|ctet(tmp|
|00004430| 29 29 0d 0a 09 09 09 09 | 72 65 74 75 72 6e 20 66 |))......|return f|
|00004440| 61 6c 73 65 3b 0d 0a 0d | 0a 09 09 09 4f 63 74 65 |alse;...|....Octe|
|00004450| 74 73 5b 69 2b 2b 5d 20 | 3d 20 74 6d 70 3b 0d 0a |ts[i++] |= tmp;..|
|00004460| 09 09 09 4d 61 73 6b 20 | 3d 20 4d 69 64 28 4d 61 |...Mask |= Mid(Ma|
|00004470| 73 6b 2c 31 29 3b 0d 0a | 09 09 09 74 6d 70 20 3d |sk,1);..|...tmp =|
|00004480| 20 22 22 3b 0d 0a 09 09 | 7d 0d 0a 0d 0a 09 09 45 | "";....|}......E|
|00004490| 61 74 53 74 72 28 74 6d | 70 2c 20 4d 61 73 6b 2c |atStr(tm|p, Mask,|
|000044a0| 20 31 29 3b 0d 0a 09 7d | 0d 0a 0d 0a 09 69 66 20 | 1);...}|.....if |
|000044b0| 28 21 56 61 6c 69 64 4f | 63 74 65 74 28 74 6d 70 |(!ValidO|ctet(tmp|
|000044c0| 29 29 0d 0a 09 09 72 65 | 74 75 72 6e 20 66 61 6c |))....re|turn fal|
|000044d0| 73 65 3b 0d 0a 0d 0a 09 | 4f 63 74 65 74 73 5b 69 |se;.....|Octets[i|
|000044e0| 2b 2b 5d 20 3d 20 74 6d | 70 3b 0d 0a 0d 0a 09 2f |++] = tm|p;...../|
|000044f0| 2f 20 43 68 65 63 6b 20 | 74 6f 20 6d 61 6b 65 20 |/ Check |to make |
|00004500| 73 75 72 65 20 77 65 20 | 6f 6e 6c 79 20 68 61 76 |sure we |only hav|
|00004510| 65 20 34 20 76 61 6c 69 | 64 20 62 79 74 65 73 0d |e 4 vali|d bytes.|
|00004520| 0a 09 69 66 20 28 69 20 | 3e 20 34 29 20 72 65 74 |..if (i |> 4) ret|
|00004530| 75 72 6e 20 66 61 6c 73 | 65 3b 0d 0a 0d 0a 09 72 |urn fals|e;.....r|
|00004540| 65 74 75 72 6e 20 74 72 | 75 65 3b 0d 0a 7d 0d 0a |eturn tr|ue;..}..|
|00004550| 0d 0a 66 75 6e 63 74 69 | 6f 6e 20 62 6f 6f 6c 20 |..functi|on bool |
|00004560| 56 61 6c 69 64 4f 63 74 | 65 74 28 73 74 72 69 6e |ValidOct|et(strin|
|00004570| 67 20 74 6d 70 29 0d 0a | 7b 0d 0a 09 6c 6f 63 61 |g tmp)..|{...loca|
|00004580| 6c 20 69 6e 74 20 69 3b | 0d 0a 0d 0a 09 69 66 20 |l int i;|.....if |
|00004590| 28 74 6d 70 20 3d 3d 20 | 22 22 29 20 72 65 74 75 |(tmp == |"") retu|
|000045a0| 72 6e 20 66 61 6c 73 65 | 3b 0d 0a 09 69 66 20 28 |rn false|;...if (|
|000045b0| 56 61 6c 69 64 4d 61 73 | 6b 4f 63 74 65 74 28 74 |ValidMas|kOctet(t|
|000045c0| 6d 70 29 29 20 72 65 74 | 75 72 6e 20 74 72 75 65 |mp)) ret|urn true|
|000045d0| 3b 0d 0a 0d 0a 09 69 20 | 3d 20 69 6e 74 28 74 6d |;.....i |= int(tm|
|000045e0| 70 29 3b 0d 0a 09 69 66 | 20 28 69 20 3d 3d 20 30 |p);...if| (i == 0|
|000045f0| 20 26 26 20 74 6d 70 20 | 21 3d 20 22 30 22 29 20 | && tmp |!= "0") |
|00004600| 72 65 74 75 72 6e 20 66 | 61 6c 73 65 3b 0d 0a 09 |return f|alse;...|
|00004610| 69 66 20 28 69 20 3c 20 | 30 20 7c 7c 20 69 20 3e |if (i < |0 || i >|
|00004620| 20 32 35 35 29 20 72 65 | 74 75 72 6e 20 66 61 6c | 255) re|turn fal|
|00004630| 73 65 3b 0d 0a 0d 0a 09 | 72 65 74 75 72 6e 20 74 |se;.....|return t|
|00004640| 72 75 65 3b 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |rue;..}.|...funct|
|00004650| 69 6f 6e 20 62 6f 6f 6c | 20 56 61 6c 69 64 4d 61 |ion bool| ValidMa|
|00004660| 73 6b 4f 63 74 65 74 28 | 73 74 72 69 6e 67 20 74 |skOctet(|string t|
|00004670| 6d 70 29 0d 0a 7b 0d 0a | 09 6c 6f 63 61 6c 20 73 |mp)..{..|.local s|
|00004680| 74 72 69 6e 67 20 73 3b | 0d 0a 0d 0a 09 69 66 20 |tring s;|.....if |
|00004690| 28 74 6d 70 20 3d 3d 20 | 22 22 20 7c 7c 20 6c 65 |(tmp == |"" || le|
|000046a0| 6e 28 74 6d 70 29 20 3e | 20 33 20 7c 7c 20 72 69 |n(tmp) >| 3 || ri|
|000046b0| 67 68 74 28 74 6d 70 2c | 31 29 20 21 3d 20 22 2a |ght(tmp,|1) != "*|
|000046c0| 22 29 0d 0a 09 09 72 65 | 74 75 72 6e 20 66 61 6c |")....re|turn fal|
|000046d0| 73 65 3b 0d 0a 0d 0a 09 | 77 68 69 6c 65 20 28 74 |se;.....|while (t|
|000046e0| 6d 70 20 21 3d 20 22 22 | 29 0d 0a 09 7b 0d 0a 09 |mp != ""|)...{...|
|000046f0| 09 73 20 3d 20 6c 65 66 | 74 28 74 6d 70 2c 31 29 |.s = lef|t(tmp,1)|
|00004700| 3b 0d 0a 09 09 69 66 20 | 28 73 20 3d 3d 20 22 2a |;....if |(s == "*|
|00004710| 22 29 0d 0a 09 09 09 62 | 72 65 61 6b 3b 0d 0a 0d |").....b|reak;...|
|00004720| 0a 09 09 69 66 20 28 73 | 20 3c 20 22 30 22 20 7c |...if (s| < "0" ||
|00004730| 7c 20 73 20 3e 20 22 39 | 22 29 0d 0a 09 09 09 72 || s > "9|").....r|
|00004740| 65 74 75 72 6e 20 66 61 | 6c 73 65 3b 0d 0a 0d 0a |eturn fa|lse;....|
|00004750| 09 09 74 6d 70 20 3d 20 | 6d 69 64 28 74 6d 70 2c |..tmp = |mid(tmp,|
|00004760| 31 29 3b 0d 0a 09 7d 0d | 0a 09 72 65 74 75 72 6e |1);...}.|..return|
|00004770| 20 74 72 75 65 3b 0d 0a | 7d 0d 0a 2f 2f 20 2d 2d | true;..|}..// --|
|00004780| 2d 20 65 76 6f 0d 0a 0d | 0a 00 |- evo...|.. |
+--------+-------------------------+-------------------------+--------+--------+
