[0001]
[0002]
[0003]
[0004]
[0005]
[0006]
[0007]
[0008]
[0009]
[0010]
[0011]
[0012]
[0013]
[0014]
[0015]
[0016]
[0017]
[0018]
[0019]
[0020]
[0021]
[0022]
[0023]
[0024]
[0025]
[0026]
[0027]
[0028]
[0029]
[0030]
[0031]
[0032]
[0033]
[0034]
[0035]
[0036]
[0037]
[0038]
[0039]
[0040]
[0041]
[0042]
[0043]
[0044]
[0045]
[0046]
[0047]
[0048]
[0049]
[0050]
[0051]
[0052]
[0053]
[0054]
[0055]
[0056]
[0057]
[0058]
[0059]
[0060]
[0061]
[0062]
[0063]
[0064]
[0065]
[0066]
[0067]
[0068]
[0069]
[0070]
[0071]
[0072]
[0073]
[0074]
[0075]
[0076]
[0077]
[0078]
[0079]
[0080]
[0081]
[0082]
[0083]
[0084]
[0085]
[0086]
[0087]
[0088]
[0089]
[0090]
[0091]
[0092]
[0093]
[0094]
[0095]
[0096]
[0097]
[0098]
[0099]
[0100]
[0101]
[0102]
[0103]
[0104]
[0105]
[0106]
[0107]
[0108]
[0109]
[0110]
[0111]
[0112]
[0113]
[0114]
[0115]
[0116]
[0117]
[0118]
[0119]
[0120]
[0121]
[0122]
[0123]
[0124]
[0125]
[0126]
[0127]
[0128]
[0129]
[0130]
[0131]
[0132]
[0133]
[0134]
[0135]
[0136]
[0137]
[0138]
[0139]
[0140]
[0141]
[0142]
[0143]
[0144]
[0145]
[0146]
[0147]
[0148]
[0149]
[0150]
[0151]
[0152]
[0153]
[0154]
[0155]
[0156]
[0157]
[0158]
[0159]
[0160]
[0161]
[0162]
[0163]
[0164]
[0165]
[0166]
[0167]
[0168]
[0169]
[0170]
[0171]
[0172]
[0173]
[0174]
[0175]
[0176]
[0177]
[0178]
[0179]
[0180]
[0181]
[0182]
[0183]
[0184]
[0185]
[0186]
[0187]
[0188]
[0189]
[0190]
[0191]
[0192]
[0193]
[0194]
[0195]
[0196]
[0197]
[0198]
[0199]
[0200]
[0201]
[0202]
[0203]
[0204]
[0205]
[0206]
[0207]
[0208]
[0209]
[0210]
[0211]
[0212]
[0213]
[0214]
[0215]
[0216]
[0217]
[0218]
[0219]
[0220]
[0221]
[0222]
[0223]
[0224]
[0225]
[0226]
[0227]
[0228]
[0229]
[0230]
[0231]
[0232]
[0233]
[0234]
[0235]
[0236]
[0237]
[0238]
[0239]
[0240]
[0241]
[0242]
[0243]
[0244]
[0245]
[0246]
[0247]
[0248]
[0249]
[0250]
[0251]
[0252]
[0253]
[0254]
[0255]
[0256]
[0257]
[0258]
[0259]
[0260]
[0261]
[0262]
[0263]
[0264]
[0265]
[0266]
[0267]
[0268]
[0269]
[0270]
[0271]
[0272]
[0273]
[0274]
[0275]
[0276]
[0277]
[0278]
[0279]
[0280]
[0281]
[0282]
[0283]
[0284]
[0285]
[0286]
[0287]
[0288]
[0289]
[0290]
[0291]
[0292]
[0293]
[0294]
[0295]
[0296]
[0297]
[0298]
[0299]
[0300]
[0301]
[0302]
[0303]
[0304]
[0305]
[0306]
[0307]
[0308]
[0309]
[0310]
[0311]
[0312]
[0313]
[0314]
[0315]
[0316]
[0317]
[0318]
[0319]
[0320]
[0321]
[0322]
[0323]
[0324]
[0325]
[0326]
[0327]
[0328]
[0329]
[0330]
[0331]
[0332]
[0333]
[0334]
[0335]
[0336]
[0337]
[0338]
[0339]
[0340]
[0341]
[0342]
[0343]
[0344]
[0345]
[0346]
[0347]
[0348]
[0349]
[0350]
[0351]
[0352]
[0353]
[0354]
[0355]
[0356]
[0357]
[0358]
[0359]
[0360]
[0361]
[0362]
[0363]
[0364]
[0365]
[0366]
[0367]
[0368]
[0369]
[0370]
[0371]
[0372]
[0373]
[0374]
[0375]
[0376]
[0377]
[0378]
[0379]
[0380]
[0381]
[0382]
[0383]
[0384]
[0385]
[0386]
[0387]
[0388]
[0389]
[0390]
[0391]
[0392]
[0393]
[0394]
[0395]
[0396]
[0397]
[0398]
[0399]
[0400]
[0401]
[0402]
[0403]
[0404]
[0405]
[0406]
[0407]
[0408]
[0409]
[0410]
[0411]
[0412]
[0413]
[0414]
[0415]
[0416]
[0417]
[0418]
[0419]
[0420]
[0421]
[0422]
[0423]
[0424]
[0425]
[0426]
[0427]
[0428]
[0429]
[0430]
[0431]
[0432]
[0433]
[0434]
[0435]
[0436]
[0437]
[0438]
[0439]
[0440]
[0441]
[0442]
[0443]
[0444]
[0445]
[0446]
[0447]
[0448]
[0449]
[0450]
[0451]
[0452]
[0453]
[0454]
[0455]
[0456]
[0457]
[0458]
[0459]
[0460]
[0461]
[0462]
[0463]
[0464]
[0465]
[0466]
[0467]
[0468]
[0469]
[0470]
[0471]
[0472]
[0473]
[0474]
[0475]
[0476]
[0477]
[0478]
[0479]
[0480]
[0481]
[0482]
[0483]
[0484]
[0485]
[0486]
[0487]
[0488]
[0489]
[0490]
[0491]
[0492]
[0493]
[0494]
[0495]
[0496]
[0497]
[0498]
[0499]
[0500]
[0501]
[0502]
[0503]
[0504]
[0505]
[0506]
[0507]
[0508]
[0509]
[0510]
[0511]
[0512]
[0513]
[0514]
[0515]
[0516]
[0517]
[0518]
[0519]
[0520]
[0521]
[0522]
[0523]
[0524]
[0525]
[0526]
[0527]
[0528]
[0529]
[0530]
[0531]
[0532]
[0533]
[0534]
[0535]
[0536]
[0537]
[0538]
[0539]
[0540]
[0541]
[0542]
[0543]
[0544]
[0545]
[0546]
[0547]
[0548]
[0549]
[0550]
[0551]
[0552]
[0553]
[0554]
[0555]
[0556]
[0557]
[0558]
[0559]
[0560]
[0561]
[0562]
[0563]
[0564]
[0565]
[0566]
[0567]
[0568]
[0569]
[0570]
[0571]
[0572]
[0573]
[0574]
[0575]
[0576]
[0577]
[0578]
[0579]
[0580]
[0581]
[0582]
[0583]
[0584]
[0585]
[0586]
[0587]
[0588]
[0589]
[0590]
[0591]
[0592]
[0593]
[0594]
[0595]
[0596]
[0597]
[0598]
[0599]
[0600]
[0601]
[0602]
[0603]
[0604]
[0605]
[0606]
[0607]
[0608]
[0609]
[0610]
[0611]
[0612]
[0613]
[0614]
[0615]
[0616]
[0617]
[0618]
[0619]
[0620]
[0621]
[0622]
[0623]
[0624]
[0625]
[0626]
[0627]
[0628]
[0629]
[0630]
[0631]
[0632]
[0633]
[0634]
[0635]
[0636]
[0637]
[0638]
[0639]
[0640]
[0641]
[0642]
[0643]
[0644]
[0645]
[0646]
[0647]
[0648]
[0649]
[0650]
[0651]
[0652]
[0653]
[0654]
[0655]
[0656]
[0657]
[0658]
[0659]
[0660]
[0661]
[0662]
[0663]
[0664]
[0665]
[0666]
[0667]
[0668]
[0669]
[0670]
[0671]
[0672]
[0673]
[0674]
[0675]
[0676]
[0677]
[0678]
[0679]
[0680]
[0681]
[0682]
[0683]
[0684]
[0685]
[0686]
[0687]
[0688]
[0689]
[0690]
[0691]
[0692]
[0693]
[0694]
[0695]
[0696]
[0697]
[0698]
[0699]
[0700]
[0701]
[0702]
[0703]
[0704]
[0705]
[0706]
[0707]
[0708]
[0709]
[0710]
[0711]
[0712]
[0713]
[0714]
[0715]
[0716]
[0717]
[0718]
[0719]
[0720]
[0721]
[0722]
[0723]
[0724]
[0725]
[0726]
[0727]
[0728]
[0729]
[0730]
[0731]
[0732]
[0733]
[0734]
[0735]
[0736]
[0737]
[0738]
[0739]
[0740]
[0741]
[0742]
[0743]
[0744]
[0745]
[0746]
[0747]
[0748]
[0749]
[0750]
[0751]
[0752]
[0753]
[0754]
[0755]
[0756]
[0757]
[0758]
[0759]
[0760]
[0761]
[0762]
[0763]
[0764]
[0765]
[0766]
[0767]
[0768]
[0769]
[0770]
[0771]
[0772]
[0773]
[0774]
[0775]
[0776]
[0777]
[0778]
[0779]
[0780]
[0781]
[0782]
[0783]
[0784]
[0785]
[0786]
[0787]
[0788]
[0789]
[0790]
[0791]
[0792]
[0793]
[0794]
[0795]
[0796]
[0797]
[0798]
[0799]
[0800]
[0801]
[0802]
[0803]
[0804]
[0805]
[0806]
[0807]
[0808]
[0809]
[0810]
[0811]
[0812]
[0813]
[0814]
[0815]
[0816]
[0817]
[0818]
[0819]
[0820]
[0821]
[0822]
[0823]
[0824]
[0825]
[0826]
[0827]
[0828]
[0829]
[0830]
[0831]
[0832]
[0833]
[0834]
[0835]
[0836]
[0837]
[0838]
[0839]
[0840]
[0841]
[0842]
[0843]
[0844]
[0845]
[0846]
[0847]
[0848]
[0849]
[0850]
[0851]
[0852]
[0853]
[0854]
[0855]
[0856]
[0857]
[0858]
[0859]
[0860]
[0861]
[0862]
[0863]
[0864]
[0865]
[0866]
[0867]
[0868]
[0869]
[0870]
[0871]
[0872]
[0873]
[0874]
[0875]
[0876]
[0877]
[0878]
[0879]
[0880]
[0881]
[0882]
[0883]
[0884]
[0885]
[0886]
[0887]
[0888]
[0889]
[0890]
[0891]
[0892]
[0893]
[0894]
[0895]
[0896]
[0897]
[0898]
[0899]
[0900]
[0901]
[0902]
[0903]
[0904]
[0905]
[0906]
[0907]
[0908]
[0909]
[0910]
[0911]
[0912]
[0913]
[0914]
[0915]
[0916]
[0917]
[0918]
[0919]
[0920]
[0921]
[0922]
[0923]
[0924]
[0925]
[0926]
[0927]
[0928]
[0929]
[0930]
[0931]
[0932]
[0933]
[0934]
[0935]
[0936]
[0937]
[0938]
[0939]
[0940]
[0941]
[0942]
[0943]
[0944]
[0945]
[0946]
[0947]
[0948]
[0949]
[0950]
[0951]
[0952]
[0953]
[0954]
[0955]
[0956]
[0957]
[0958]
[0959]
[0960]
[0961]
[0962]
[0963]
[0964]
[0965]
[0966]
[0967]
[0968]
[0969]
[0970]
[0971]
[0972]
[0973]
[0974]
[0975]
[0976]
[0977]
[0978]
[0979]
[0980]
[0981]
[0982]
[0983]
[0984]
[0985]
[0986]
[0987]
[0988]
[0989]
[0990]
[0991]
[0992]
[0993]
[0994]
[0995]
[0996]
[0997]
[0998]
[0999]
[1000]
[1001]
[1002]
[1003]
[1004]
[1005]
[1006]
[1007]
[1008]
[1009]
[1010]
[1011]
[1012]
[1013]
[1014]
[1015]
[1016]
[1017]
[1018]
[1019]
[1020]
[1021]
[1022]
[1023]
[1024]
[1025]
[1026]
[1027]
[1028]
[1029]
[1030]
[1031]
[1032]
[1033]
[1034]
[1035]
[1036]
[1037]
[1038]
[1039]
[1040]
[1041]
[1042]
[1043]
[1044]
[1045]
[1046]
[1047]
[1048]
[1049]
[1050]
[1051]
[1052]
[1053]
[1054]
[1055]
[1056]
[1057]
[1058]
[1059]
[1060]
[1061]
[1062]
[1063]
[1064]
[1065]
[1066]
[1067]
[1068]
[1069]
[1070]
[1071]
[1072]
[1073]
[1074]
[1075]
[1076]
[1077]
[1078]
[1079]
[1080]
[1081]
[1082]
[1083]
[1084]
[1085]
[1086]
[1087]
[1088]
[1089]
[1090]
[1091]
[1092]
[1093]
[1094]
[1095]
[1096]
[1097]
[1098]
[1099]
[1100]
[1101]
[1102]
[1103]
[1104]
[1105]
[1106]
[1107]
[1108]
[1109]
[1110]
[1111]
[1112]
[1113]
[1114]
[1115]
[1116]
[1117]
[1118]
[1119]
[1120]
[1121]
[1122]
[1123]
[1124]
[1125]
[1126]
[1127]
[1128]
[1129]
[1130]
[1131]
[1132]
[1133]
[1134]
[1135]
[1136]
[1137]
[1138]
[1139]
[1140]
[1141]
[1142]
[1143]
[1144]
[1145]
[1146]
[1147]
[1148]
[1149]
[1150]
[1151]
[1152]
[1153]
[1154]
[1155]
[1156]
[1157]
[1158]
[1159]
[1160]
[1161]
[1162]
[1163]
[1164]
[1165]
[1166]
[1167]
[1168]
[1169]
[1170]
[1171]
[1172]
[1173]
[1174]
[1175]
[1176]
[1177]
[1178]
[1179]
[1180]
[1181]
[1182]
[1183]
[1184]
[1185]
[1186]
[1187]
[1188]
[1189]
[1190]
[1191]
[1192]
[1193]
[1194]
[1195]
[1196]
[1197]
[1198]
[1199]
[1200]
[1201]
[1202]
[1203]
[1204]
[1205]
[1206]
[1207]
[1208]
[1209]
[1210]
[1211]
[1212]
[1213]
[1214]
[1215]
[1216]
[1217]
[1218]
[1219]
[1220]
[1221]
[1222]
[1223]
[1224]
[1225]
[1226]
[1227]
[1228]
[1229]
[1230]
[1231]
[1232]
[1233]
[1234]
[1235]
[1236]
[1237]
[1238]
[1239]
[1240]
[1241]
[1242]
[1243]
[1244]
[1245]
[1246]
[1247]
[1248]
[1249]
[1250]
[1251]
[1252]
[1253]
[1254]
[1255]
[1256]
[1257]
[1258]
[1259]
[1260]
[1261]
[1262]
[1263]
[1264]
[1265]
[1266]
[1267]
[1268]
[1269]
[1270]
[1271]
[1272]
[1273]
[1274]
[1275]
[1276]
[1277]
[1278]
[1279]
[1280]
[1281]
[1282]
[1283]
[1284]
[1285]
[1286]
[1287]
[1288]
[1289]
[1290]
[1291]
[1292]
[1293]
[1294]
[1295]
[1296]
[1297]
[1298]
[1299]
[1300]
[1301]
[1302]
[1303]
[1304]
[1305]
[1306]
[1307]
[1308]
[1309]
[1310]
[1311]
[1312]
[1313]
[1314]
[1315]
[1316]
[1317]
[1318]
[1319]
[1320]
[1321]
[1322]
[1323]
[1324]
[1325]
[1326]
[1327]
[1328]
[1329]
[1330]
[1331]
[1332]
[1333]
[1334]
[1335]
[1336]
[1337]
[1338]
[1339]
[1340]
[1341]
[1342]
[1343]
[1344]
[1345]
[1346]
[1347]
[1348]
[1349]
[1350]
[1351]
[1352]
[1353]
[1354]
[1355]
[1356]
[1357]
[1358]
[1359]
[1360]
[1361]
[1362]
[1363]
[1364]
[1365]
[1366]
[1367]
[1368]
[1369]
[1370]
[1371]
[1372]
[1373]
[1374]
[1375]
[1376]
[1377]
[1378]
[1379]
[1380]
[1381]
[1382]
[1383]
[1384]
[1385]
[1386]
[1387]
[1388]
[1389]
[1390]
[1391]
[1392]
[1393]
[1394]
[1395]
[1396]
[1397]
[1398]
[1399]
[1400]
[1401]
[1402]
[1403]
[1404]
[1405]
[1406]
[1407]
[1408]
[1409]
[1410]
[1411]
[1412]
[1413]
[1414]
[1415]
[1416]
[1417]
[1418]
[1419]
[1420]
[1421]
[1422]
[1423]
[1424]
[1425]
[1426]
[1427]
[1428]
[1429]
[1430]
[1431]
[1432]
[1433]
[1434]
[1435]
[1436]
[1437]
[1438]
[1439]
[1440]
[1441]
[1442]
[1443]
[1444]
[1445]
[1446]
[1447]
[1448]
[1449]
[1450]
[1451]
[1452]
[1453]
[1454]
[1455]
[1456]
[1457]
[1458]
[1459]
[1460]
[1461]
[1462]
[1463]
[1464]
[1465]
[1466]
[1467]
[1468]
[1469]
[1470]
[1471]
[1472]
[1473]
[1474]
[1475]
[1476]
[1477]
[1478]
[1479]
[1480]
[1481]
[1482]
[1483]
[1484]
[1485]
[1486]
[1487]
[1488]
[1489]
[1490]
[1491]
[1492]
[1493]
[1494]
[1495]
[1496]
[1497]
[1498]
[1499]
[1500]
[1501]
[1502]
[1503]
[1504]
[1505]
[1506]
[1507]
[1508]
[1509]
[1510]
[1511]
[1512]
[1513]
[1514]
[1515]
[1516]
[1517]
[1518]
[1519]
[1520]
[1521]
[1522]
[1523]
[1524]
[1525]
[1526]
[1527]
[1528]
[1529]
[1530]
[1531]
[1532]
[1533]
[1534]
[1535]
[1536]
[1537]
[1538]
[1539]
[1540]
[1541]
[1542]
[1543]
[1544]
[1545]
[1546]
[1547]
[1548]
[1549]
[1550]
[1551]
[1552]
[1553]
[1554]
[1555]
[1556]
[1557]
[1558]
[1559]
[1560]
[1561]
[1562]
[1563]
[1564]
[1565]
[1566]
[1567]
[1568]
[1569]
[1570]
[1571]
[1572]
[1573]
[1574]
[1575]
[1576]
[1577]
[1578]
[1579]
[1580]
[1581]
[1582]
[1583]
[1584]
[1585]
[1586]
[1587]
[1588]
[1589]
[1590]
[1591]
[1592]
[1593]
[1594]
[1595]
[1596]
[1597]
[1598]
[1599]
[1600]
[1601]
[1602]
[1603]
[1604]
[1605]
[1606]
[1607]
[1608]
[1609]
[1610]
[1611]
[1612]
[1613]
[1614]
[1615]
[1616]
[1617]
[1618]
[1619]
[1620]
[1621]
[1622]
[1623]
[1624]
[1625]
[1626]
[1627]
[1628]
[1629]
[1630]
[1631]
[1632]
[1633]
[1634]
[1635]
[1636]
[1637]
[1638]
[1639]
[1640]
[1641]
[1642]
[1643]
[1644]
[1645]
[1646]
[1647]
[1648]
[1649]
[1650]
[1651]
[1652]
[1653]
[1654]
[1655]
[1656]
[1657]
[1658]
[1659]
[1660]
[1661]
[1662]
[1663]
[1664]
[1665]
[1666]
[1667]
[1668]
[1669]
[1670]
[1671]
[1672]
[1673]
[1674]
[1675]
[1676]
[1677]
[1678]
[1679]
[1680]
[1681]
[1682]
[1683]
[1684]
[1685]
[1686]
[1687]
[1688]
[1689]
[1690]
[1691]
[1692]
[1693]
[1694]
[1695]
[1696]
[1697]
[1698]
[1699]
[1700]
[1701]
[1702]
[1703]
[1704]
[1705]
[1706]
[1707]
[1708]
[1709]
[1710]
[1711]
[1712]
[1713]
[1714]
[1715]
[1716]
[1717]
[1718]
[1719]
[1720]
[1721]
[1722]
[1723]
[1724]
[1725]
[1726]
[1727]
[1728]
[1729]
[1730]
[1731]
[1732]
[1733]
[1734]
[1735]
[1736]
[1737]
[1738]
[1739]
[1740]
[1741]
[1742]
[1743]
[1744]
[1745]
[1746]
[1747]
[1748]
[1749]
[1750]
[1751]
[1752]
[1753]
[1754]
[1755]
[1756]
[1757]
[1758]
[1759]
[1760]
[1761]
[1762]
[1763]
[1764]
[1765]
[1766]
[1767]
[1768]
[1769]
[1770]
[1771]
[1772]
[1773]
[1774]
[1775]
[1776]
[1777]
[1778]
[1779]
[1780]
[1781]
[1782]
[1783]
[1784]
[1785]
[1786]
[1787]
[1788]
[1789]
[1790]
[1791]
[1792]
[1793]
[1794]
[1795]
[1796]
[1797]
[1798]
[1799]
[1800]
[1801]
[1802]
[1803]
[1804]
[1805]
[1806]
[1807]
[1808]
[1809]
[1810]
[1811]
[1812]
[1813]
[1814]
[1815]
[1816]
[1817]
[1818]
[1819]
[1820]
[1821]
[1822]
[1823]
[1824]
[1825]
[1826]
[1827]
[1828]
[1829]
[1830]
[1831]
[1832]
[1833]
[1834]
[1835]
[1836]
[1837]
[1838]
[1839]
[1840]
[1841]
[1842]
[1843]
[1844]
[1845]
[1846]
[1847]
[1848]
[1849]
[1850]
[1851]
[1852]
[1853]
[1854]
[1855]
[1856]
[1857]
[1858]
[1859]
[1860]
[1861]
[1862]
[1863]
[1864]
[1865]
[1866]
[1867]
[1868]
[1869]
[1870]
[1871]
[1872]
[1873]
[1874]
[1875]
[1876]
[1877]
[1878]
[1879]
[1880]
[1881]
[1882]
[1883]
[1884]
[1885]
[1886]
[1887]
[1888]
[1889]
[1890]
[1891]
[1892]
[1893]
[1894]
[1895]
[1896]
[1897]
[1898]
[1899]
[1900]
[1901]
[1902]
[1903]
[1904]
[1905]
[1906]
[1907]
[1908]
[1909]
[1910]
[1911]
[1912]
[1913]
[1914]
[1915]
[1916]
[1917]
[1918]
[1919]
[1920]
[1921]
[1922]
[1923]
[1924]
[1925]
[1926]
[1927]
[1928]
[1929]
[1930]
[1931]
[1932]
[1933]
[1934]
[1935]
[1936]
[1937]
[1938]
[1939]
[1940]
[1941]
[1942]
[1943]
[1944]
[1945]
[1946]
[1947]
[1948]
[1949]
[1950]
[1951]
[1952]
[1953]
[1954]
[1955]
[1956]
[1957]
[1958]
[1959]
[1960]
[1961]
[1962]
[1963]
[1964]
[1965]
[1966]
[1967]
[1968]
[1969]
[1970]
[1971]
[1972]
[1973]
[1974]
[1975]
[1976]
[1977]
[1978]
[1979]
[1980]
[1981]
[1982]
[1983]
[1984]
[1985]
[1986]
[1987]
[1988]
[1989]
[1990]
[1991]
[1992]
[1993]
[1994]
[1995]
[1996]
[1997]
[1998]
[1999]
[2000]
[2001]
[2002]
[2003]
[2004]
[2005]
[2006]
[2007]
[2008]
[2009]
[2010]
[2011]
[2012]
[2013]
[2014]
[2015]
[2016]
[2017]
[2018]
[2019]
[2020]
[2021]
[2022]
[2023]
[2024]
[2025]
[2026]
[2027]
[2028]
[2029]
[2030]
[2031]
[2032]
[2033]
[2034]
[2035]
[2036]
[2037]
[2038]
[2039]
[2040]
[2041]
[2042]
[2043]
[2044]
[2045]
[2046]
[2047]
[2048]
[2049]
[2050]
[2051]
[2052]
[2053]
[2054]
[2055]
[2056]
[2057]
[2058]
[2059]
[2060]
[2061]
[2062]
[2063]
[2064]
[2065]
[2066]
[2067]
[2068]
[2069]
[2070]
[2071]
[2072]
[2073]
[2074]
[2075]
[2076]
[2077]
[2078]
[2079]
[2080]
[2081]
[2082]
[2083]
[2084]
[2085]
[2086]
[2087]
[2088]
[2089]
[2090]
[2091]
[2092]
[2093]
[2094]
[2095]
[2096]
[2097]
[2098]
[2099]
[2100]
[2101]
[2102]
[2103]
[2104]
[2105]
[2106]
[2107]
[2108]
[2109]
[2110]
[2111]
[2112]
[2113]
[2114]
[2115]
[2116]
[2117]
[2118]
[2119]
[2120]
[2121]
[2122]
[2123]
[2124]
[2125]
[2126]
[2127]
[2128]
[2129]
[2130]
[2131]
[2132]
[2133]
[2134]
[2135]
[2136]
[2137]
[2138]
[2139]
[2140]
[2141]
[2142]
[2143]
[2144]
[2145]
[2146]
[2147]
[2148]
[2149]
[2150]
[2151]
[2152]
[2153]
[2154]
[2155]
[2156]
[2157]
[2158]
[2159]
[2160]
[2161]
[2162]
[2163]
[2164]
[2165]
[2166]
[2167]
[2168]
[2169]
[2170]
[2171]
[2172]
[2173]
[2174]
[2175]
[2176]
[2177]
[2178]
[2179]
[2180]
[2181]
[2182]
[2183]
[2184]
[2185]
[2186]
[2187]
[2188]
[2189]
[2190]
[2191]
[2192]
[2193]
[2194]
[2195]
[2196]
[2197]
[2198]
[2199]
[2200]
[2201]
[2202]
[2203]
[2204]
[2205]
[2206]
[2207]
[2208]
[2209]
[2210]
[2211]
[2212]
[2213]
[2214]
[2215]
[2216]
[2217]
[2218]
[2219]
[2220]
[2221]
[2222]
[2223]
[2224]
[2225]
[2226]
[2227]
[2228]
[2229]
[2230]
[2231]
[2232]
[2233]
[2234]
[2235]
[2236]
[2237]
[2238]
[2239]
[2240]
[2241]
[2242]
[2243]
[2244]
[2245]
[2246]
[2247]
[2248]
[2249]
[2250]
[2251]
[2252]
[2253]
[2254]
[2255]
[2256]
[2257]
[2258]
[2259]
[2260]
[2261]
[2262]
[2263]
[2264]
[2265]
[2266]
[2267]
[2268]
[2269]
[2270]
[2271]
[2272]
[2273]
[2274]
[2275]
[2276]
[2277]
[2278]
[2279]
[2280]
[2281]
[2282]
[2283]
[2284]
[2285]
[2286]
[2287]
[2288]
[2289]
[2290]
[2291]
[2292]
[2293]
[2294]
[2295]
[2296]
[2297]
[2298]
[2299]
[2300]
[2301]
[2302]
[2303]
[2304]
[2305]
[2306]
[2307]
[2308]
[2309]
[2310]
[2311]
[2312]
[2313]
[2314]
[2315]
[2316]
[2317]
[2318]
[2319]
[2320]
[2321]
[2322]
[2323]
[2324]
[2325]
[2326]
[2327]
[2328]
[2329]
[2330]
[2331]
[2332]
[2333]
[2334]
[2335]
[2336]
[2337]
[2338]
[2339]
[2340]
[2341]
[2342]
[2343]
[2344]
[2345]
[2346]
[2347]
[2348]
[2349]
[2350]
[2351]
[2352]
[2353]
[2354]
[2355]
[2356]
[2357]
[2358]
[2359]
[2360]
[2361]
[2362]
[2363]
[2364]
[2365]
[2366]
[2367]
[2368]
[2369]
[2370]
[2371]
[2372]
[2373]
[2374]
[2375]
[2376]
[2377]
[2378]
[2379]
[2380]
[2381]
[2382]
[2383]
[2384]
[2385]
[2386]
[2387]
[2388]
[2389]
[2390]
[2391]
[2392]
[2393]
[2394]
[2395]
[2396]
[2397]
[2398]
[2399]
[2400]
[2401]
[2402]
[2403]
[2404]
[2405]
[2406]
[2407]
[2408]
[2409]
[2410]
[2411]
[2412]
[2413]
[2414]
[2415]
[2416]
[2417]
[2418]
[2419]
[2420]
[2421]
[2422]
[2423]
[2424]
[2425]
[2426]
[2427]
[2428]
[2429]
[2430]
[2431]
[2432]
[2433]
[2434]
[2435]
[2436]
[2437]
[2438]
[2439]
[2440]
[2441]
[2442]
[2443]
[2444]
[2445]
[2446]
[2447]
[2448]
[2449]
[2450]
[2451]
[2452]
[2453]
[2454]
[2455]
[2456]
[2457]
[2458]
[2459]
[2460]
[2461]
[2462]
[2463]
[2464]
[2465]
[2466]
[2467]
[2468]
[2469]
[2470]
[2471]
[2472]
[2473]
[2474]
[2475]
[2476]
[2477]
[2478]
[2479]
[2480]
[2481]
[2482]
[2483]
[2484]
[2485]
[2486]
[2487]
[2488]
[2489]
[2490]
[2491]
[2492]
[2493]
[2494]
[2495]
[2496]
[2497]
[2498]
[2499]
[2500]
[2501]
[2502]
[2503]
[2504]
[2505]
[2506]
[2507]
[2508]
[2509]
[2510]
[2511]
[2512]
[2513]
[2514]
[2515]
[2516]
[2517]
[2518]
[2519]
[2520]
[2521]
[2522]
[2523]
[2524]
[2525]
[2526]
[2527]
[2528]
[2529]
[2530]
[2531]
[2532]
[2533]
[2534]
[2535]
[2536]
[2537]
[2538]
[2539]
[2540]
[2541]
[2542]
[2543]
[2544]
[2545]
[2546]
[2547]
[2548]
[2549]
[2550]
[2551]
[2552]
[2553]
[2554]
[2555]
[2556]
[2557]
[2558]
[2559]
[2560]
[2561]
[2562]
[2563]
[2564]
[2565]
[2566]
[2567]
[2568]
[2569]
[2570]
[2571]
[2572]
[2573]
[2574]
[2575]
[2576]
[2577]
[2578]
[2579]
[2580]
[2581]
[2582]
[2583]
[2584]
[2585]
[2586]
[2587]
[2588]
[2589]
[2590]
[2591]
[2592]
[2593]
[2594]
[2595]
[2596]
[2597]
[2598]
[2599]
[2600]
[2601]
[2602]
[2603]
[2604]
[2605]
[2606]
[2607]
[2608]
[2609]
[2610]
[2611]
[2612]
[2613]
[2614]
[2615]
[2616]
[2617]
[2618]
[2619]
[2620]
[2621]
[2622]
[2623]
[2624]
[2625]
[2626]
[2627]
[2628]
[2629]
[2630]
[2631]
[2632]
[2633]
[2634]
[2635]
[2636]
[2637]
[2638]
[2639]
[2640]
[2641]
[2642]
[2643]
[2644]
[2645]
[2646]
[2647]
[2648]
[2649]
[2650]
[2651]
[2652]
[2653]
[2654]
[2655]
[2656]
[2657]
[2658]
[2659]
[2660]
[2661]
[2662]
[2663]
[2664]
[2665]
[2666]
[2667]
[2668]
[2669]
[2670]
[2671]
[2672]
[2673]
[2674]
[2675]
[2676]
[2677]
[2678]
[2679]
[2680]
[2681]
[2682]
[2683]
[2684]
[2685]
[2686]
[2687]
[2688]
[2689]
[2690]
[2691]
[2692]
[2693]
[2694]
[2695]
[2696]
[2697]
[2698]
[2699]
[2700]
[2701]
[2702]
[2703]
[2704]
[2705]
[2706]
[2707]
[2708]
[2709]
[2710]
[2711]
[2712]
[2713]
[2714]
[2715]
[2716]
[2717]
[2718]
[2719]
[2720]
[2721]
[2722]
[2723]
[2724]
[2725]
[2726]
[2727]
[2728]
[2729]
[2730]
[2731]
[2732]
[2733]
[2734]
[2735]
[2736]
[2737]
[2738]
[2739]
[2740]
[2741]
[2742]
[2743]
[2744]
[2745]
[2746]
[2747]
[2748]
[2749]
[2750]
[2751]
[2752]
[2753]
[2754]
[2755]
[2756]
[2757]
[2758]
[2759]
[2760]
[2761]
[2762]
[2763]
[2764]
[2765]
[2766]
[2767]
[2768]
[2769]
[2770]
[2771]
[2772]
[2773]
[2774]
[2775]
[2776]
[2777]
[2778]
[2779]
[2780]
[2781]
[2782]
[2783]
[2784]
[2785]
[2786]
[2787]
[2788]
[2789]
[2790]
[2791]
[2792]
[2793]
[2794]
[2795]
[2796]
[2797]
[2798]
[2799]
[2800]
[2801]
[2802]
[2803]
[2804]
[2805]
[2806]
[2807]
[2808]
[2809]
[2810]
[2811]
[2812]
[2813]
[2814]
[2815]
[2816]
[2817]
[2818]
[2819]
[2820]
[2821]
[2822]
[2823]
[2824]
[2825]
[2826]
[2827]
[2828]
[2829]
[2830]
[2831]
[2832]
[2833]
[2834]
[2835]
[2836]
[2837]
[2838]
[2839]
[2840]
[2841]
[2842]
[2843]
[2844]
[2845]
[2846]
[2847]
[2848]
[2849]
[2850]
[2851]
[2852]
[2853]
[2854]
[2855]
[2856]
[2857]
[2858]
[2859]
[2860]
[2861]
[2862]
[2863]
[2864]
[2865]
[2866]
[2867]
[2868]
[2869]
[2870]
[2871]
[2872]
[2873]
[2874]
[2875]
[2876]
[2877]
[2878]
[2879]
[2880]
[2881]
[2882]
[2883]
[2884]
[2885]
[2886]
[2887]
[2888]
[2889]
[2890]
[2891]
[2892]
[2893]
[2894]
[2895]
[2896]
[2897]
[2898]
[2899]
[2900]
[2901]
[2902]
[2903]
[2904]
[2905]
[2906]
[2907]
[2908]
[2909]
[2910]
[2911]
[2912]
[2913]
[2914]
[2915]
[2916]
[2917]
[2918]
[2919]
[2920]
[2921]
[2922]
[2923]
[2924]
[2925]
[2926]
[2927]
[2928]
[2929]
[2930]
[2931]
[2932]
[2933]
[2934]
[2935]
[2936]
[2937]
[2938]
[2939]
[2940]
[2941]
[2942]
[2943]
[2944]
[2945]
[2946]
[2947]
[2948]
[2949]
[2950]
[2951]
[2952]
[2953]
[2954]
[2955]
[2956]
[2957]
[2958]
[2959]
[2960]
[2961]
[2962]
[2963]
[2964]
[2965]
[2966]
[2967]
[2968]
[2969]
[2970]
[2971]
[2972]
[2973]
[2974]
[2975]
[2976]
[2977]
[2978]
[2979]
[2980]
[2981]
[2982]
[2983]
[2984]
[2985]
[2986]
[2987]
[2988]
[2989]
[2990]
[2991]
[2992]
[2993]
[2994]
[2995]
[2996]
[2997]
[2998]
[2999]
[3000]
[3001]
[3002]
[3003]
[3004]
[3005]
[3006]
[3007]
[3008]
[3009]
[3010]
[3011]
[3012]
[3013]
[3014]
[3015]
[3016]
[3017]
[3018]
[3019]
[3020]
[3021]
[3022]
[3023]
[3024]
[3025]
[3026]
[3027]
[3028]
[3029]
[3030]
[3031]
[3032]
[3033]
[3034]
[3035]
[3036]
[3037]
[3038]
[3039]
[3040]
[3041]
[3042]
[3043]
[3044]
[3045]
[3046]
[3047]
[3048]
[3049]
[3050]
[3051]
[3052]
[3053]
[3054]
[3055]
[3056]
[3057]
[3058]
[3059]
[3060]
[3061]
[3062]
[3063]
[3064]
[3065]
[3066]
[3067]
[3068]
[3069]
[3070]
[3071]
[3072]
[3073]
[3074]
[3075]
[3076]
[3077]
[3078]
[3079]
[3080]
[3081]
[3082]
[3083]
[3084]
[3085]
[3086]
[3087]
[3088]
[3089]
[3090]
[3091]
[3092]
[3093]
[3094]
[3095]
[3096]
[3097]
[3098]
[3099]
[3100]
[3101]
[3102]
[3103]
[3104]
[3105]
[3106]
[3107]
[3108]
[3109]
[3110]
[3111]
[3112]
[3113]
[3114]
[3115]
[3116]
[3117]
[3118]
[3119]
[3120]
[3121]
[3122]
[3123]
[3124]
[3125]
[3126]
[3127]
[3128]
[3129]
[3130]
[3131]
[3132]
[3133]
[3134]
[3135]
[3136]
[3137]
[3138]
[3139]
[3140]
[3141]
[3142]
[3143]
[3144]
[3145]
[3146]
[3147]
[3148]
[3149]
[3150]
[3151]
[3152]
[3153]
[3154]
[3155]
[3156]
[3157]
[3158]
[3159]
[3160]
[3161]
[3162]
[3163]
[3164]
[3165]
[3166]
[3167]
[3168]
[3169]
[3170]
[3171]
[3172]
[3173]
[3174]
[3175]
[3176]
[3177]
[3178]
[3179]
[3180]
[3181]
[3182]
[3183]
[3184]
[3185]
[3186]
[3187]
[3188]
[3189]
[3190]
[3191]
[3192]
[3193]
[3194]
[3195]
[3196]
[3197]
[3198]
[3199]
[3200]
[3201]
[3202]
[3203]
[3204]
[3205]
[3206]
[3207]
[3208]
[3209]
[3210]
[3211]
[3212]
[3213]
[3214]
[3215]
[3216]
[3217]
[3218]
[3219]
[3220]
[3221]
[3222]
[3223]
[3224]
[3225]
[3226]
[3227]
[3228]
[3229]
[3230]
[3231]
[3232]
[3233]
[3234]
[3235]
[3236]
[3237]
[3238]
[3239]
[3240]
[3241]
[3242]
[3243]
[3244]
[3245]
[3246]
[3247]
[3248]
[3249]
[3250]
[3251]
[3252]
[3253]
[3254]
[3255]
[3256]
[3257]
[3258]
[3259]
[3260]
[3261]
[3262]
[3263]
[3264]
[3265]
[3266]
[3267]
[3268]
[3269]
[3270]
[3271]
[3272]
[3273]
[3274]
[3275]
[3276]
[3277]
[3278]
[3279]
[3280]
[3281]
[3282]
[3283]
[3284]
[3285]
[3286]
[3287]
[3288]
[3289]
[3290]
[3291]
[3292]
[3293]
[3294]
[3295]
[3296]
[3297]
[3298]
[3299]
[3300]
[3301]
[3302]
[3303]
[3304]
[3305]
[3306]
[3307]
[3308]
[3309]
[3310]
[3311]
[3312]
[3313]
[3314]
[3315]
[3316]
[3317]
[3318]
[3319]
[3320]
[3321]
[3322]
[3323]
[3324]
[3325]
[3326]
[3327]
[3328]
[3329]
[3330]
[3331]
[3332]
[3333]
[3334]
[3335]
[3336]
[3337]
[3338]
[3339]
[3340]
[3341]
[3342]
[3343]
[3344]
[3345]
[3346]
[3347]
[3348]
[3349]
[3350]
[3351]
[3352]
[3353]
[3354]
[3355]
[3356]
[3357]
[3358]
[3359]
[3360]
[3361]
[3362]
[3363]
[3364]
[3365]
[3366]
[3367]
[3368]
[3369]
[3370]
[3371]
[3372]
[3373]
[3374]
[3375]
[3376]
[3377]
[3378]
[3379]
[3380]
[3381]
[3382]
[3383]
[3384]
[3385]
[3386]
[3387]
[3388]
[3389]
[3390]
[3391]
[3392]
[3393]
[3394]
[3395]
[3396]
[3397]
[3398]
[3399]
[3400]
[3401]
[3402]
[3403]
[3404]
[3405]
[3406]
[3407]
[3408]
[3409]
[3410]
[3411]
[3412]
[3413]
[3414]
[3415]
[3416]
[3417]
[3418]
[3419]
[3420]
[3421]
[3422]
[3423]
[3424]
[3425]
[3426]
[3427]
[3428]
[3429]
[3430]
[3431]
[3432]
[3433]
[3434]
[3435]
[3436]
[3437]
[3438]
[3439]
[3440]
[3441]
[3442]
[3443]
[3444]
[3445]
[3446]
[3447]
[3448]
[3449]
[3450]
[3451]
[3452]
[3453]
[3454]
[3455]
[3456]
[3457]
[3458]
[3459]
[3460]
[3461]
[3462]
[3463]
[3464]
[3465]
[3466]
[3467]
[3468]
[3469]
[3470]
[3471]
[3472]
[3473]
[3474]
[3475]
[3476]
[3477]
[3478]
[3479]
[3480]
[3481]
[3482]
[3483]
[3484]
[3485]
[3486]
[3487]
[3488]
[3489]
[3490]
[3491]
[3492]
[3493]
[3494]
[3495]
[3496]
[3497]
[3498]
[3499]
[3500]
[3501]
[3502]
[3503]
[3504]
[3505]
[3506]
[3507]
[3508]
[3509]
[3510]
[3511]
[3512]
[3513]
[3514]
[3515]
[3516]
[3517]
[3518]
[3519]
[3520]
[3521]
[3522]
[3523]
[3524]
[3525]
[3526]
[3527]
[3528]
[3529]
[3530]
[3531]
[3532]
[3533]
[3534]
[3535]
[3536]
[3537]
[3538]
[3539]
[3540]
[3541]
[3542]
[3543]
[3544]
[3545]
[3546]
[3547]
[3548]
[3549]
[3550]
[3551]
[3552]
[3553]
[3554]
[3555]
[3556]
[3557]
[3558]
[3559]
[3560]
[3561]
[3562]
[3563]
[3564]
[3565]
[3566]
[3567]
[3568]
[3569]
[3570]
[3571]
[3572]
[3573]
[3574]
[3575]
[3576]
[3577]
[3578]
[3579]
[3580]
[3581]
[3582]
[3583]
[3584]
[3585]
[3586]
[3587]
[3588]
[3589]
[3590]
[3591]
[3592]
[3593]
[3594]
[3595]
[3596]
[3597]
[3598]
[3599]
[3600]
[3601]
[3602]
[3603]
[3604]
[3605]
[3606]
[3607]
[3608]
[3609]
[3610]
[3611]
[3612]
[3613]
[3614]
[3615]
[3616]
[3617]
[3618]
[3619]
[3620]
[3621]
[3622]
[3623]
[3624]
[3625]
[3626]
[3627]
[3628]
[3629]
[3630]
[3631]
[3632]
[3633]
[3634]
[3635]
[3636]
[3637]
[3638]
[3639]
[3640]
[3641]
[3642]
[3643]
[3644]
[3645]
[3646]
[3647]
[3648]
[3649]
[3650]
[3651]
[3652]
[3653]
[3654]
[3655]
[3656]
[3657]
[3658]
[3659]
[3660]
[3661]
[3662]
[3663]
[3664]
[3665]
[3666]
[3667]
[3668]
[3669]
[3670]
[3671]
[3672]
[3673]
[3674]
[3675]
[3676]
[3677]
[3678]
[3679]
[3680]
[3681]
[3682]
[3683]
[3684]
[3685]
[3686]
[3687]
[3688]
[3689]
[3690]
[3691]
[3692]
[3693]
[3694]
[3695]
[3696]
[3697]
[3698]
[3699]
[3700]
[3701]
[3702]
[3703]
[3704]
[3705]
[3706]
[3707]
[3708]
[3709]
[3710]
[3711]
[3712]
[3713]
[3714]
[3715]
[3716]
[3717]
[3718]
[3719]
[3720]
[3721]
[3722]
[3723]
[3724]
[3725]
[3726]
[3727]
[3728]
[3729]
[3730]
[3731]
[3732]
[3733]
[3734]
[3735]
[3736]
[3737]
[3738]
[3739]
[3740]
[3741]
[3742]
[3743]
[3744]
[3745]
[3746]
[3747]
[3748]
[3749]
[3750]
[3751]
[3752]
[3753]
[3754]
[3755]
[3756]
[3757]
[3758]
[3759]
[3760]
[3761]
[3762]
[3763]
[3764]
[3765]
[3766]
[3767]
[3768]
[3769]
[3770]
[3771]
[3772]
[3773]
[3774]
[3775]
[3776]
[3777]
[3778]
[3779]
[3780]
[3781]
[3782]
[3783]
[3784]
[3785]
[3786]
[3787]
[3788]
[3789]
[3790]
[3791]
[3792]
[3793]
[3794]
[3795]
[3796]
[3797]
[3798]
[3799]
[3800]
[3801]
[3802]
[3803]
[3804]
[3805]
[3806]
[3807]
[3808]
[3809]
[3810]
[3811]
[3812]
[3813]
[3814]
[3815]
[3816]
[3817]
[3818]
[3819]
[3820]
[3821]
[3822]
[3823]
[3824]
[3825]
[3826]
[3827]
[3828]
[3829]
[3830]
[3831]
[3832]
[3833]
[3834]
[3835]
[3836]
[3837]
[3838]
[3839]
[3840]
[3841]
[3842]
[3843]
[3844]
[3845]
[3846]
[3847]
[3848]
[3849]
[3850]
[3851]
[3852]
[3853]
[3854]
[3855]
[3856]
[3857]
[3858]
[3859]
[3860]
[3861]
[3862]
[3863]
[3864]
[3865]
[3866]
[3867]
[3868]
[3869]
[3870]
[3871]
[3872]
[3873]
[3874]
[3875]
[3876]
[3877]
[3878]
[3879]
[3880]
[3881]
[3882]
[3883]
[3884]
[3885]
[3886]
[3887]
[3888]
[3889]
[3890]
[3891]
[3892]
[3893]
[3894]
[3895]
[3896]
[3897]
[3898]
[3899]
[3900]
[3901]
[3902]
[3903]
[3904]
[3905]
[3906]
[3907]
[3908]
[3909]
[3910]
[3911]
[3912]
[3913]
[3914]
[3915]
[3916]
[3917]
[3918]
[3919]
[3920]
[3921]
[3922]
[3923]
[3924]
[3925]
[3926]
[3927]
[3928]
[3929]
[3930]
[3931]
[3932]
[3933]
[3934]
[3935]
[3936]
[3937]
[3938]
[3939]
[3940]
[3941]
[3942]
[3943]
[3944]
[3945]
[3946]
[3947]
[3948]
[3949]
[3950]
[3951]
[3952]
[3953]
[3954]
[3955]
[3956]
[3957]
[3958]
[3959]
[3960]
[3961]
[3962]
[3963]
[3964]
[3965]
[3966]
[3967]
[3968]
[3969]
[3970]
[3971]
[3972]
[3973]
[3974]
[3975]
[3976]
[3977]
[3978]
[3979]
[3980]
[3981]
[3982]
[3983]
[3984]
[3985]
[3986]
[3987]
[3988]
[3989]
[3990]
[3991]
[3992]
[3993]
[3994]
[3995]
[3996]
[3997]
[3998]
[3999]
[4000]
[4001]
[4002]
[4003]
[4004]
[4005]
[4006]
[4007]
[4008]
[4009]
[4010]
[4011]
[4012]
[4013]
[4014]
[4015]
[4016]
[4017]
[4018]
[4019]
[4020]
[4021]
[4022]
[4023]
[4024]
[4025]
[4026]
[4027]
[4028]
[4029]
[4030]
[4031]
[4032]
[4033]
[4034]
[4035]
[4036]
[4037]
[4038]
[4039]
[4040]
[4041]
[4042]
[4043]
[4044]
[4045]
[4046]
[4047]
[4048]
[4049]
[4050]
[4051]
[4052]
[4053]
[4054]
[4055]
[4056]
[4057]
[4058]
[4059]
[4060]
[4061]
[4062]
[4063]
[4064]
[4065]
[4066]
[4067]
[4068]
[4069]
[4070]
[4071]
[4072]
[4073]
[4074]
[4075]
[4076]
[4077]
[4078]
[4079]
[4080]
[4081]
[4082]
[4083]
[4084]
[4085]
[4086]
[4087]
[4088]
[4089]
[4090]
[4091]
[4092]
[4093]
[4094]
[4095]
[4096]
[4097]
[4098]
[4099]
[4100]
[4101]
[4102]
[4103]
[4104]
[4105]
[4106]
[4107]
[4108]
[4109]
[4110]
[4111]
[4112]
[4113]
[4114]
[4115]
[4116]
[4117]
[4118]
[4119]
[4120]
[4121]
[4122]
[4123]
[4124]
[4125]
[4126]
[4127]
[4128]
[4129]
[4130]
[4131]
[4132]
[4133]
[4134]
[4135]
[4136]
[4137]
[4138]
[4139]
[4140]
[4141]
[4142]
[4143]
[4144]
[4145]
[4146]
[4147]
[4148]
[4149]
[4150]
[4151]
[4152]
[4153]
[4154]
[4155]
[4156]
[4157]
[4158]
[4159]
[4160]
[4161]
[4162]
[4163]
[4164]
[4165]
[4166]
[4167]
[4168]
[4169]
[4170]
[4171]
[4172]
[4173]
[4174]
[4175]
[4176]
[4177]
[4178]
[4179]
[4180]
[4181]
[4182]
[4183]
[4184]
[4185]
[4186]
[4187]
[4188]
[4189]
[4190]
[4191]
[4192]
[4193]
[4194]
[4195]
[4196]
[4197]
[4198]
[4199]
[4200]
[4201]
[4202]
[4203]
[4204]
[4205]
[4206]
[4207]
[4208]
[4209]
[4210]
[4211]
[4212]
[4213]
[4214]
[4215]
[4216]
[4217]
[4218]
[4219]
[4220]
[4221]
[4222]
[4223]
[4224]
[4225]
[4226]
[4227]
[4228]
[4229]
[4230]
[4231]
[4232]
[4233]
[4234]
[4235]
[4236]
[4237]
[4238]
[4239]
[4240]
[4241]
[4242]
[4243]
[4244]
[4245]
[4246]
[4247]
[4248]
[4249]
[4250]
[4251]
[4252]
[4253]
[4254]
[4255]
[4256]
[4257]
[4258]
[4259]
[4260]
[4261]
[4262]
[4263]
[4264]
[4265]
[4266]
[4267]
[4268]
[4269]
[4270]
[4271]
[4272]
[4273]
[4274]
[4275]
[4276]
[4277]
[4278]
[4279]
[4280]
[4281]
[4282]
[4283]
[4284]
[4285]
[4286]
[4287]
[4288]
[4289]
[4290]
[4291]
[4292]
[4293]
[4294]
[4295]
[4296]
[4297]
[4298]
[4299]
[4300]
[4301]
[4302]
[4303]
[4304]
[4305]
[4306]
[4307]
[4308]
[4309]
[4310]
[4311]
[4312]
[4313]
[4314]
[4315]
[4316]
[4317]
[4318]
[4319]
[4320]
[4321]
[4322]
[4323]
[4324]
[4325]
[4326]
[4327]
[4328]
[4329]
[4330]
[4331]
[4332]
[4333]
[4334]
[4335]
[4336]
[4337]
[4338]
[4339]
[4340]
[4341]
[4342]
[4343]
[4344]
[4345]
[4346]
[4347]
[4348]
[4349]
[4350]
[4351]
[4352]
[4353]
[4354]
[4355]
[4356]
[4357]
[4358]
[4359]
[4360]
[4361]
[4362]
[4363]
[4364]
[4365]
[4366]
[4367]
[4368]
[4369]
[4370]
[4371]
[4372]
[4373]
[4374]
[4375]
[4376]
[4377]
[4378]
[4379]
[4380]
[4381]
[4382]
[4383]
[4384]
[4385]
[4386]
[4387]
[4388]
[4389]
[4390]
[4391]
[4392]
[4393]
[4394]
[4395]
[4396]
[4397]
[4398]
[4399]
[4400]
[4401]
[4402]
[4403]
[4404]
[4405]
[4406]
[4407]
[4408]
[4409]
[4410]
[4411]
[4412]
[4413]
[4414]
[4415]
[4416]
[4417]
[4418]
[4419]
[4420]
[4421]
[4422]
[4423]
[4424]
[4425]
[4426]
[4427]
[4428]
[4429]
[4430]
[4431]
[4432]
[4433]
[4434]
[4435]
[4436]
[4437]
[4438]
[4439]
[4440]
[4441]
[4442]
[4443]
[4444]
[4445]
[4446]
[4447]
[4448]
[4449]
[4450]
[4451]
[4452]
[4453]
[4454]
[4455]
[4456]
[4457]
[4458]
[4459]
[4460]
[4461]
[4462]
[4463]
[4464]
[4465]
[4466]
[4467]
[4468]
[4469]
[4470]
[4471]
[4472]
[4473]
[4474]
[4475]
[4476]
[4477]
[4478]
[4479]
[4480]
[4481]
[4482]
[4483]
[4484]
[4485]
[4486]
[4487]
[4488]
[4489]
[4490]
[4491]
[4492]
[4493]
[4494]
[4495]
[4496]
[4497]
[4498]
[4499]
[4500]
[4501]
[4502]
[4503]
[4504]
[4505]
[4506]
[4507]
[4508]
[4509]
[4510]
[4511]
[4512]
[4513]
[4514]
[4515]
[4516]
[4517]
[4518]
[4519]
[4520]
[4521]
[4522]
[4523]
[4524]
[4525]
[4526]
[4527]
[4528]
[4529]
[4530]
[4531]
[4532]
[4533]
[4534]
[4535]
[4536]
[4537]
[4538]
[4539]
[4540]
[4541]
[4542]
[4543]
[4544]
[4545]
[4546]
[4547]
[4548]
[4549]
[4550]
[4551]
[4552]
[4553]
[4554]
[4555]
[4556]
[4557]
[4558]
[4559]
[4560]
[4561]
[4562]
[4563]
[4564]
[4565]
[4566]
[4567]
[4568]
[4569]
[4570]
[4571]
[4572]
[4573]
[4574]
[4575]
[4576]
[4577]
[4578]
[4579]
[4580]
[4581]
[4582]
[4583]
[4584]
[4585]
[4586]
[4587]
[4588]
[4589]
[4590]
[4591]
[4592]
[4593]
[4594]
[4595]
[4596]
[4597]
[4598]
[4599]
[4600]
[4601]
[4602]
[4603]
[4604]
[4605]
[4606]
[4607]
[4608]
[4609]
[4610]
[4611]
[4612]
[4613]
[4614]
[4615]
[4616]
[4617]
[4618]
[4619]
[4620]
[4621]
[4622]
[4623]
[4624]
[4625]
[4626]
/*****************************************************************************/
/*
Admin.c
Server administration support functions for HTTPd. Many of the reports and
forms used for revision are produced by functions within the core-function
module. The control function allow server restart, exit, abort, mapping file
reload, authorization path reload and authentication cache purging.
VERSION HISTORY
---------------
23-SEP-2021 MGD AdminServerProcessOutputPlus()
10-MAR-2021 MGD accomodate PIPE from WASD_ROOT:[SRC.UTILS]WASTEE.C
27-OCT-2020 MGD bugfix; AdminMenu() activity hours 672 (ActHours[idx-1])
14-APR-2020 MGD kludge; Safari (at least) does not honour HTTP cache control
headers! Its back-forwardcache breaks stuff.
14-SEP-2019 MGD bugfix; AdminParsePath() extraneous OdsParseRelease()
18-JAN-2019 MGD add 418 to status code statistics
25-AUG-2018 MGD WatchSystemPlus() et.al.
28-APR-2018 MGD refactor Admin..() AST delivery
16-DEC-2017 MGD note decade-old border-collapse bug in Chrome
https://bugs.chromium.org/p/chromium/issues/detail?id=356132
(Firefox, MS Edge, Safari render correctly)
*** appears to be fixed from at least version 68... ***
10-OCT-2017 MGD SesolaReport..() relax from SSL-only to any service
14-NOV-2015 MGD excise much of the twenty years of reporting HTML cruft
AdminRefresh() allow selection of a page refresh interval
lift the GZIP restriction for all but main menu and WATCHing
28-SEP-2014 MGD AdminLookYouUp() and associated Server Admin item
12-MAR-2014 MGD "no module involved" datum
30-JAN-2014 MGD tweaks to menu layout to try and get MSIE 9 to behave
27-JUN-2010 MGD WebSockReport()
23-AUG-2009 MGD WasdCss[] and some refinements
26-JUL-2007 MGD bugfix; AdminMenu() JavaScript doIt() call
02-JUN-2007 MGD WebDAV and Cluster reports,
remove file cache, authorization and proxy items from
Server Statistics report (keeping it more-to-the-point)
27-OCT-2006 MGD AdminReportServerStat() quota percentages in use
23-SEP-2006 MGD AdminReportServerStat() last exit time
15-JUL-2006 MGD AdminMenu() instance [Active][Passive] functionality
(service item) network connection [Purge][All]
04-JUL-2006 MGD AdminMenu() status panel (time, connect, request) mods
use PercentOf32() for more accurate percentages
26-MAY-2005 MGD [/DO=] button/field and supporting functionality
03-MAR-2005 MGD AdminMetaConSource() changes to support search lists
30-NOV-2004 MGD zero proxy accounting
12-OCT-2004 MGD add status info (currently only access log write fail)
to Server Admin page (beneath dates and accounting)
28-JUL-2004 MGD HTTP/1.1 items,
server admin reports now have the response header generated
after the report body so that the buffer length can be used
as a content length (allowing connections to persist)
20-MAY-2004 MGD remove 'supervisor' from report menu
28-JAN-2004 MGD make process input/output reports plain-text,
service access log report (via LoggingReport()),
make some accomodations in reports for our old friend
Netscape 3.03/Gold (on VMS) which doesn't render some
table formatting correctly (or the way we intended anyway)
26-AUG-2003 MGD rework access to server configuration files,
service directory located authorization databases
15-AUG-2003 MGD where CDATA constraints make using entity impossible
use a field name of hidden$lf and ^ substituted for it
22-JUL-2003 MGD allow for CMKRNL when warning on privileges
08-JUN-2003 MGD cache statistics include permanent/volatile changes
31-JAN-2002 MGD no menu difference between category and module WATCHing
12-OCT-2002 MGD refine metacon reporting
16-JUN-2002 MGD greater hour granularity to activity report selection
30-MAY-2002 MGD restart when quiet
17-MAY-2002 MGD activity reports changed inline with GRAPH.C changes
04-APR-2002 MGD proxy cache STOP scan
28-DEC-2001 MGD add 'instance' selection
29-OCT-2001 MGD PERSONA_MACRO reporting
29-SEP-2001 MGD instance support
04-AUG-2001 MGD support module WATCHing
13-MAR-2001 MGD add throttle and supervisor reports
22-DEC-2000 MGD HTL list admin (partially implemented by HTADMIN.C),
SSL client certificate CA verification
02-OCT-2000 MGD DETACH now an allowed privilege
13-SEP-2000 MGD ProxyMainReport() call refined
26-AUG-2000 MGD consolidated WATCH processing and peek
18-JUN-2000 MGD "All Services" directives,
site log item,
service configuration,
add a little JavaScript to enhance the admin menu
28-MAY-2000 MGD use $getjpi ...lm values from server startup
04-MAR-2000 MGD use FaolToNet(), et.al.
13-JAN-2000 MGD improve log messages, add OPCOM messaging
30-OCT-1999 MGD unbundled WATCH functionality to its own module
10-OCT-1999 MGD show process report,
move service statistics report to NET.C module,
CacheReport() now only optionally reports cached files
04-SEP-1999 MGD remove WatchRequestHeader()
11-JUN-1999 MGD bugfix; WatchFilter()
12-APR-1999 MGD WatchDataDump() for request and response bodies
10-JAN-1999 MGD add proxy items to WATCH menu,
add proxy report
07-NOV-1998 MGD WATCH facility
16-MAR-1998 MGD server abort changed to "exit NOW", added "restart NOW"
05-OCT-1997 MGD file cache
28-SEP-1997 MGD request durations
06-SEP-1997 MGD service list
09-AUG-1997 MGD message database
07-JUL-1997 MGD activity report and logging control functions,
reworked the control function (it was getting untidy)
08-JUN-1997 MGD "Other" menu item, with "Clients" and "Scripting" reports,
AdminRequestReport() and DclScriptingReport() functions
01-FEB-1997 MGD new for HTTPd version 4
*/
/*****************************************************************************/
#ifdef WASD_VMS_V7
#undef _VMS__V6__SOURCE
#define _VMS__V6__SOURCE
#undef __VMS_VER
#define __VMS_VER 70000000
#undef __CRTL_VER
#define __CRTL_VER 70000000
#endif
/* standard C header files */
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <unistd.h>
/* VMS related header files */
#include <descrip.h>
#include <jpidef.h>
#include <libdef.h>
#include <libdtdef.h>
#include <lnmdef.h>
#include <prvdef.h>
#include <ssdef.h>
#include <stsdef.h>
#include <syidef.h>
/* application related header files */
#include "wasd.h"
#define WASD_MODULE "ADMIN"
/******************/
/* global storage */
/******************/
/********************/
/* external storage */
/********************/
extern BOOL CacheEnabled,
DclScriptDetachProcess,
DclPersonaServicesAvailable,
GzipAvailable,
Http2Enabled,
HttpdAlignFaultReport,
InstanceNodeSupervisor,
LoggingEnabled,
LoggingFileError,
NetInstancePassive,
OperateWithSysPrv,
PersonaMacro,
ProtocolHttpsConfigured,
SesolaVerifyCAConfigured,
WebDavEnabled;
extern int ActivityTotalMinutes,
CacheEntryCount,
CacheEntriesMax,
CacheHits0,
CacheHits10,
CacheHits100,
CacheHits1000,
CacheHits1000plus,
CacheHitCount,
CacheLoadCount,
CacheMemoryInUse,
CachePermEntryCount,
CachePermMemoryInUse,
CacheTotalKBytesMax,
EfnWait,
ExitStatus,
GblPageCount,
GblPagePermCount,
GblSectionCount,
GblSectionPermCount,
GzipFindImageStatus,
HttpdAlignFaultCount,
InstanceEnvNumber,
InstanceNodeCurrent,
InstanceNumber,
OpcomMessages,
RequestHistoryMax;
extern int ToLowerCase[],
ToUpperCase[];
extern int64 HttpdStartTime64;
extern char BuildInfo[],
CommandLine[],
ErrorSanityCheck[],
HttpdScriptAsUserName[],
ServerHostPort[],
SoftwareID[],
TcpIpAgentInfo[],
TimeGmtString[],
WatchQuotasAlert[];
extern char *AuthConfigHtaDirectory,
*GzipZlibNamePtr,
*GzipZlibVersionPtr;
#define acptr AccountingPtr
extern ACCOUNTING_STRUCT *AccountingPtr;
extern ACTIVITY_GBLSEC *ActivityGblSecPtr;
extern CONFIG_STRUCT Config;
extern HTTPD_GBLSEC *HttpdGblSecPtr;
extern HTTPD_PROCESS HttpdProcess;
extern MSG_STRUCT Msgs;
extern MAPPING_META *MappingMetaPtr;
extern PROXY_ACCOUNTING_STRUCT *ProxyAccountingPtr;
extern LIST_HEAD ServiceList;
extern SYS_INFO SysInfo;
extern TCPIP_HOST_CACHE *TcpIpHostCachePtr;
extern WATCH_STRUCT Watch;
/*****************************************************************************/
/*
Begin HTTPd server administration.
*/
void AdminBegin (REQUEST_STRUCT *rqptr)
{
BOOL ClusterDo,
SlashDo,
UseServerDatabase;
int status;
unsigned short Length;
char *cptr, *pinptr, *uriptr;
char DoThis [128],
FieldName [128],
FieldValue [256],
FilePath [ODS_MAX_FILE_NAME_LENGTH+1],
Http2Connection [33],
Md5HashHexString [33],
NumberString [16],
Path [ODS_MAX_FILE_NAME_LENGTH+1],
ProcessIdString [16],
ProcessIdUserName [13],
RefreshInterval [16],
VirtualHostPort [128];
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER, "AdminBegin()");
if (WATCHING (rqptr, WATCH_RESPONSE))
WatchThis (WATCHITM(rqptr), WATCH_RESPONSE,
"ADMIN !AZ", rqptr->rqHeader.PathInfoPtr);
if (!rqptr->AccountingDone++)
InstanceGblSecIncrLong (&acptr->DoServerAdminCount);
if (!rqptr->RemoteUser[0])
{
rqptr->rqResponse.HttpStatus = 403;
ErrorGeneral (rqptr, MsgFor(rqptr,MSG_AUTH_REQUIRED), FI_LI);
AdminEnd (rqptr);
return;
}
if (!rqptr->AdminTaskPtr)
rqptr->AdminTaskPtr = VmGetHeap (rqptr, sizeof(ADMIN_TASK));
FaoBigNumber (NULL);
pinptr = rqptr->rqHeader.PathInfoPtr;
uriptr = rqptr->rqHeader.RequestUriPtr;
/* for admin activities supply a full error report regardless */
rqptr->rqPathSet.ReportType = ERROR_REPORT_DETAILED;
/* disable GZIP compression for the main menu and when WATCHing */
if (strsame (uriptr, HTTPD_ADMIN, -1))
rqptr->rqResponse.NoGzip = true;
else
if (strsame (uriptr, ADMIN_REPORT_WATCH, -1))
rqptr->rqResponse.NoGzip = true;
/*********************/
/* per-service admin */
/*********************/
#ifdef NOT_FULLY_IMPLEMENTED_YET
if (strsame (pinptr, HTTPD_VS_ADMIN, -1))
{
AdminVirtualServerMenu (rqptr);
return;
}
if (strsame (pinptr, ADMIN_VS_REVISE_HTA, sizeof(ADMIN_VS_REVISE_HTA)-1))
{
if (VMSnok (status = AdminParsePath (rqptr, NULL)))
AdminEnd (rqptr);
else
HTAdminBegin (rqptr);
return;
}
if (strsame (pinptr, ADMIN_VS_REVISE_HTL, sizeof(ADMIN_VS_REVISE_HTL)-1))
{
if (VMSnok (status = AdminParsePath (rqptr, NULL)))
AdminEnd (rqptr);
else
if (rqptr->rqHeader.Method == HTTP_METHOD_POST)
PutBegin (rqptr, &AdminEnd);
else
if ((pinptr+sizeof(ADMIN_VS_REVISE_HTL)-1)[0])
if (rqptr->rqHeader.QueryStringLength)
HTAdminBegin (rqptr);
else
FileBegin (rqptr, &AdminEnd, NULL, NULL,
rqptr->ParseOds.ExpFileName, "text/plain");
else
HTAdminBegin (rqptr);
return;
}
if (strsame (pinptr, ADMIN_VS_CONTROL, sizeof(ADMIN_VS_CONTROL)-1))
{
AdminControl (rqptr, NULL, true);
return;
}
#endif /** NOT_FULLY_IMPLEMENTED_YET **/
/********************************************/
/* modules that parse their own query field */
/********************************************/
if (strsame (pinptr, ADMIN_REVISE_HTA, sizeof(ADMIN_REVISE_HTA)-1))
{
if (VMSnok (status = AdminParsePath (rqptr, NULL)))
AdminEnd (rqptr);
else
HTAdminBegin (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REVISE_HTL, sizeof(ADMIN_REVISE_HTL)-1))
{
if (VMSnok (status = AdminParsePath (rqptr, NULL)))
AdminEnd (rqptr);
else
if (rqptr->rqHeader.Method == HTTP_METHOD_POST)
PutBegin (rqptr, &AdminEnd);
else
if ((pinptr+sizeof(ADMIN_REVISE_HTL)-1)[0])
if (rqptr->rqHeader.QueryStringLength)
HTAdminBegin (rqptr);
else
FileBegin (rqptr, &AdminEnd, NULL, NULL,
rqptr->ParseOds.ExpFileName, "text/plain");
else
HTAdminBegin (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REVISE_SITELOG, sizeof(ADMIN_REVISE_SITELOG)-1))
{
if (VMSnok (status = AdminParsePath (rqptr, NULL)))
AdminEnd (rqptr);
else
if (rqptr->rqHeader.Method == HTTP_METHOD_POST)
PutBegin (rqptr, &AdminEnd);
else
if (rqptr->rqHeader.QueryStringLength)
UpdBegin (rqptr, &AdminEnd);
else
FileBegin (rqptr, &AdminEnd, NULL, NULL,
rqptr->ParseOds.ExpFileName, "text/plain");
return;
}
if (strsame (pinptr, ADMIN_REPORT_ACTIVITY, -1))
{
GraphActivityReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_MATCH, -1))
{
StringMatchReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_PROCESS, -1))
{
WatchProcessReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_WATCH, -1))
{
if (rqptr->rqHeader.QueryStringLength)
WatchBegin (rqptr);
else
WatchReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_WATCH_STRUCT, -1))
{
WatchReportStruct (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_WEBDAV, -1))
{
DavWebReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_WEBDAV_XML, -1))
{
DavXmlReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_WEBSOCKET, -1))
{
WebSockReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_CONTROL_DELETE_PROCESS, -1))
{
WatchDeleteProcess (rqptr);
return;
}
/**********************/
/* parse query string */
/**********************/
ClusterDo = SlashDo = false;
UseServerDatabase = true;
DoThis[0] = FilePath[0] = Http2Connection[0] = Md5HashHexString[0] =
NumberString[0] = Path[0] = ProcessIdString[0] = ProcessIdUserName[0] =
RefreshInterval[0] = VirtualHostPort[0] = '\0';
if (rqptr->rqHeader.QueryStringLength)
cptr = rqptr->rqHeader.QueryStringPtr;
else
cptr = "";
while (*cptr)
{
status = StringParseQuery (&cptr, FieldName, sizeof(FieldName),
FieldValue, sizeof(FieldValue));
if (VMSnok (status))
{
/* error occured */
if (status == SS$_IVCHAR) rqptr->rqResponse.HttpStatus = 400;
rqptr->rqResponse.ErrorTextPtr = "parsing query string";
ErrorVmsStatus (rqptr, status, FI_LI);
AdminEnd (rqptr);
return;
}
if (strsame (FieldName, "at", -1) ||
strsame (FieldName, "this", -1))
strzcpy (NumberString, FieldValue, sizeof(NumberString));
else
if (strsame (FieldName, "cxr", -1))
{
/* 'cxr' can be generated from an UPD edit window */
strzcpy (DoThis, "edit", sizeof(DoThis));
}
else
if (strsame (FieldName, "do", -1))
strzcpy (DoThis, FieldValue, sizeof(DoThis));
else
if (strsame (FieldName, "edit", -1))
strzcpy (FilePath, FieldValue, sizeof(FilePath));
else
if (strsame (FieldName, "entry", -1))
strzcpy (Md5HashHexString, FieldValue, sizeof(Md5HashHexString));
else
if (strsame (FieldName, "file", -1))
{
if (TOUP(FieldValue[0]) == 'Y')
UseServerDatabase = false;
else
if (TOUP(FieldValue[0]) == 'N')
UseServerDatabase = true;
}
else
if (strsame (FieldName, "http2", -1))
strzcpy (Http2Connection, FieldValue, sizeof(Http2Connection));
else
if (strsame (FieldName, "refresh", -1))
strzcpy (RefreshInterval, FieldValue, sizeof(RefreshInterval));
else
if (strsame (FieldName, "puser", -1))
strzcpy (ProcessIdUserName, FieldValue, sizeof(ProcessIdUserName));
else
if (strsame (FieldName, "path", -1))
strzcpy (Path, FieldValue, sizeof(Path));
else
if (strsame (FieldName, "pid", -1))
strzcpy (ProcessIdString, FieldValue, sizeof(ProcessIdString));
else
if (strsame (FieldName, "puser", -1))
strzcpy (ProcessIdUserName, FieldValue, sizeof(ProcessIdUserName));
else
if (strsame (FieldName, "scope", -1))
{
if (strsame (FieldValue, "cluster", -1)) ClusterDo = true;
}
else
if (strsame (FieldName, "service", -1))
strzcpy (VirtualHostPort, FieldValue, sizeof(VirtualHostPort));
else
if (strsame (FieldName, "server", -1))
{
if (TOUP(FieldValue[0]) == 'Y')
UseServerDatabase = true;
else
if (TOUP(FieldValue[0]) == 'N')
UseServerDatabase = false;
}
else
if (strsame (FieldName, "slashdo", -1))
{
SlashDo = true;
strzcpy (DoThis, FieldValue, sizeof(DoThis));
}
else
if (strsame (FieldName, "virtual", -1))
strzcpy (VirtualHostPort, FieldValue, sizeof(VirtualHostPort));
else
{
rqptr->rqResponse.HttpStatus = 400;
ErrorGeneral (rqptr, "Unknown query field.", FI_LI);
AdminEnd (rqptr);
return;
}
}
/***************/
/* do function */
/***************/
if (SlashDo)
{
if (strsame (DoThis, "HELP", -1))
ControlDoHelp (rqptr);
else
if (strsame (DoThis, "STATUS", -1))
InstanceStatusCliReport (rqptr);
else
AdminControl (rqptr, DoThis, ClusterDo);
return;
}
if (strsame (pinptr, HTTPD_ADMIN, -1) ||
strsame (pinptr, HTTPD_ADMIN_STATUS, -1) ||
strsame (pinptr, ADMIN_REPORT, -1) ||
strsame (pinptr, ADMIN_REVISE, -1) ||
strsame (pinptr, ADMIN_CONTROL, -1))
{
/********/
/* menu */
/********/
AdminMenu (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_ALIGN, -1))
{
HttpdAlignReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_AUTH_USER, -1))
{
AuthCacheReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_CACHE, -1))
{
CacheReport (rqptr, false);
return;
}
if (strsame (pinptr, ADMIN_REPORT_CACHE_ENTRIES, -1))
{
if (Md5HashHexString[0])
CacheReportEntry (rqptr, Md5HashHexString);
else
CacheReport (rqptr, true);
return;
}
if (strsame (pinptr, ADMIN_REPORT_CLUSTER, -1))
{
WatchShowCluster (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_CONFIG, -1) ||
strsame (pinptr, ADMIN_REVISE_CONFIG, -1))
{
if (VMSnok (status = AdminParsePath (rqptr, NULL)))
AdminEnd (rqptr);
else
if (rqptr->rqHeader.Method == HTTP_METHOD_POST)
PutBegin (rqptr, &AdminEnd);
else
if (rqptr->rqHeader.QueryStringLength)
{
if (strsame (DoThis, "edit", -1))
UpdBegin (rqptr, &AdminEnd);
else
if (strsame (pinptr, ADMIN_REPORT_CONFIG, -1))
ConfigReport (rqptr, UseServerDatabase);
else
ConfigRevise (rqptr, UseServerDatabase);
}
else
FileBegin (rqptr, &AdminEnd, NULL, NULL,
rqptr->ParseOds.ExpFileName, "text/plain");
return;
}
if (strsame (pinptr, ADMIN_REPORT_DCL, -1))
{
DclScriptingReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_HOSTCACHE, -1))
{
TcpIpHostCacheReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_PROCESS, -1))
{
WatchShowProcess (rqptr, ProcessIdString, ProcessIdUserName);
return;
}
if (strsame (pinptr, ADMIN_REPORT_DECNET, -1))
{
DECnetScriptingReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_HTTP, -1))
{
Http2Report (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_HPACK, -1))
{
HpackReport (rqptr, Http2Connection);
return;
}
if (strsame (pinptr, ADMIN_REPORT_LOCK, -1))
{
InstanceLockReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_PROCESS_INPUT, -1))
{
AdminServerProcessInput (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_PROCESS_OUTPUT, -1))
{
AdminServerProcessOutput (rqptr);
return;
}
if (strsame (pinptr,
ADMIN_REPORT_PROCESS_OUTPUT_PLUS,
sizeof(ADMIN_REPORT_PROCESS_OUTPUT_PLUS)-1))
{
AdminServerProcessOutputPlus (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_WASTEE, -1))
{
AdminReportWAStee (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_MEMORY, -1) ||
strsame (pinptr, ADMIN_REPORT_MEMORY_PLUS, -1))
{
VmReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_MESSAGES, -1) ||
strsame (pinptr, ADMIN_REVISE_MESSAGES, -1))
{
if (VMSnok (status = AdminParsePath (rqptr, NULL)))
AdminEnd (rqptr);
else
if (rqptr->rqHeader.Method == HTTP_METHOD_POST)
PutBegin (rqptr, &AdminEnd);
else
if (rqptr->rqHeader.QueryStringLength)
{
if (strsame (DoThis, "edit", -1))
UpdBegin (rqptr, &AdminEnd);
else
if (strsame (pinptr, ADMIN_REPORT_MESSAGES, -1))
MsgConfigReport (rqptr, UseServerDatabase);
else
MsgConfigRevise (rqptr, UseServerDatabase);
}
else
FileBegin (rqptr, &AdminEnd, NULL, NULL,
rqptr->ParseOds.ExpFileName, "text/plain");
return;
}
if (strsame (pinptr, ADMIN_REPORT_AUTH_PATHS, -1) ||
strsame (pinptr, ADMIN_REVISE_AUTH_PATHS, -1))
{
if (VMSnok (status = AdminParsePath (rqptr, NULL)))
AdminEnd (rqptr);
else
if (rqptr->rqHeader.Method == HTTP_METHOD_POST)
PutBegin (rqptr, &AdminEnd);
else
if (rqptr->rqHeader.QueryStringLength)
if (strsame (DoThis, "edit", -1))
UpdBegin (rqptr, &AdminEnd);
else
AuthConfigReport (rqptr, UseServerDatabase, VirtualHostPort);
else
FileBegin (rqptr, &AdminEnd, NULL, NULL,
rqptr->ParseOds.ExpFileName, "text/plain");
return;
}
if (strsame (pinptr, ADMIN_REPORT_PROXY, -1))
{
ProxyMaintReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_PROXY_PERSISTENT, -1))
{
ProxyNetPersistentReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_REQUEST, sizeof(ADMIN_REPORT_REQUEST)-1))
{
RequestReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_SERVICES, -1) ||
strsame (pinptr, ADMIN_REVISE_SERVICES, -1))
{
if (VMSnok (status = AdminParsePath (rqptr, NULL)))
AdminEnd (rqptr);
else
if (rqptr->rqHeader.Method == HTTP_METHOD_POST)
PutBegin (rqptr, &AdminEnd);
else
if (rqptr->rqHeader.QueryStringLength)
{
if (strsame (DoThis, "edit", -1))
UpdBegin (rqptr, &AdminEnd);
else
if (strsame (pinptr, ADMIN_REPORT_SERVICES, -1))
ServiceReport (rqptr, UseServerDatabase);
else
ServiceConfigRevise (rqptr, UseServerDatabase);
}
else
FileBegin (rqptr, &AdminEnd, NULL, NULL,
rqptr->ParseOds.ExpFileName, "text/plain");
return;
}
if (strsame (pinptr, ADMIN_REPORT_SERVICE_LOG, -1))
{
LoggingReport (rqptr, VirtualHostPort);
return;
}
if (strsame (pinptr, ADMIN_REPORT_SHOW_PROCESS, -1))
{
WatchShowProcess (rqptr, ProcessIdString, ProcessIdUserName);
return;
}
if (strsame (pinptr, ADMIN_REPORT_STATS, -1))
{
AdminReportServerStats (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_MAPPING, -1) ||
strsame (pinptr, ADMIN_REVISE_MAPPING, -1))
{
if (VMSnok (status = AdminParsePath (rqptr, NULL)))
AdminEnd (rqptr);
else
if (rqptr->rqHeader.Method == HTTP_METHOD_POST)
PutBegin (rqptr, &AdminEnd);
else
if (rqptr->rqHeader.QueryStringLength)
if (strsame (DoThis, "edit", -1))
UpdBegin (rqptr, &AdminEnd);
else
MapUrl_Report (rqptr, UseServerDatabase, VirtualHostPort);
else
FileBegin (rqptr, &AdminEnd, NULL, NULL,
rqptr->ParseOds.ExpFileName, "text/plain");
return;
}
if (strsame (pinptr, ADMIN_REPORT_SSL, -1) ||
strsame (pinptr, ADMIN_REPORT_SSL_CLIENT, -1))
{
SesolaReport (rqptr, VirtualHostPort);
return;
}
if (strsame (pinptr, ADMIN_REPORT_SSL_CA, -1) ||
strsame (pinptr, ADMIN_REVISE_SSL_CA, -1))
{
if (VMSnok (status = AdminParsePath (rqptr, VirtualHostPort)))
AdminEnd (rqptr);
else
if (rqptr->rqHeader.Method == HTTP_METHOD_POST)
PutBegin (rqptr, &AdminEnd);
else
if (strsame (DoThis, "edit", -1))
UpdBegin (rqptr, &AdminEnd);
else
if (strsame (DoThis, "report", -1))
SesolaReportCA (rqptr, VirtualHostPort);
else
FileBegin (rqptr, &AdminEnd, NULL, NULL,
rqptr->ParseOds.ExpFileName, "text/plain");
return;
}
if (strsame (pinptr, ADMIN_REPORT_SUPERVISOR, -1))
{
HttpdSupervisorReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_SYSTEM, -1))
{
WatchShowSystem (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_SYSTEM_PLUS, -1))
{
sysPlusReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_REPORT_THROTTLE, -1))
{
ThrottleReport (rqptr);
return;
}
if (strsame (pinptr, ADMIN_CONTROL, sizeof(ADMIN_CONTROL)-1))
{
/******************/
/* server control */
/******************/
AdminControl (rqptr, NULL, ClusterDo);
return;
}
/********************/
/* unknown function */
/********************/
rqptr->rqResponse.HttpStatus = 400;
ErrorGeneral (rqptr, "Unknown function.", FI_LI);
AdminEnd (rqptr);
}
/*****************************************************************************/
/*
Declare the next function AST for admin processing.
*/
void AdminEnd (REQUEST_STRUCT *rqptr)
{
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER, "AdminEnd()");
rqptr->AdminTaskPtr = NULL;
RequestEnd (rqptr);
}
/*****************************************************************************/
/*
Compare the path info to each administration path and parses the corresponding
real file represented by that path into the request ODS parse structure so that
modules that expect this to be filled out appropriately (e.g. UPD.C and PUT.C)
can use it. Returns a VMS status.
*/
int AdminParsePath
(
REQUEST_STRUCT *rqptr,
char *VirtualHostPort
)
{
int status;
char *cptr, *dnaptr, *sptr, *zptr;
char FileSpec [ODS_MAX_FILE_NAME_LENGTH+1];
SERVICE_STRUCT *svptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER, "AdminParsePath() !&Z !&Z",
rqptr->rqHeader.PathInfoPtr, VirtualHostPort);
dnaptr = NULL;
cptr = rqptr->rqHeader.PathInfoPtr;
if (strsame (cptr, ADMIN_REPORT_CONFIG, -1) ||
strsame (cptr, ADMIN_REVISE_CONFIG, -1))
sptr = v10orPrev10(CONFIG_FILE_NAME,-1);
else
if (strsame (cptr, ADMIN_REPORT_MESSAGES, -1) ||
strsame (cptr, ADMIN_REVISE_MESSAGES, -1))
sptr = v10orPrev10(CONFIG_MSG_FILE_NAME,-1);
else
if (strsame (cptr, ADMIN_REPORT_AUTH_PATHS, -1) ||
strsame (cptr, ADMIN_REVISE_AUTH_PATHS, -1))
sptr = v10orPrev10(CONFIG_AUTH_FILE_NAME,-1);
else
if (strsame (cptr, ADMIN_REPORT_MAPPING, -1) ||
strsame (cptr, ADMIN_REVISE_MAPPING, -1))
sptr = v10orPrev10(CONFIG_MAP_FILE_NAME,-1);
else
if (strsame (cptr, ADMIN_REPORT_SERVICES, -1) ||
strsame (cptr, ADMIN_REVISE_SERVICES, -1))
sptr = v10orPrev10(CONFIG_SERVICE_FILE_NAME,-1);
else
if (strsame (cptr, ADMIN_REVISE_SITELOG, -1) ||
strsame (cptr, ADMIN_REVISE_SITELOG_ENTRY, -1))
{
if (!(sptr = v10orPrev10(CONFIG_SITELOG_FILE_NAME,0)))
sptr = v10orPrev10(DEFAULT_SITELOG_FILE_NAME,0);
}
else
if (strsame (cptr, ADMIN_REPORT_SSL_CA, -1) ||
strsame (cptr, ADMIN_REVISE_SSL_CA, -1))
{
if (VirtualHostPort[0])
{
LIST_ITERATE (svptr, &ServiceList)
{
if (svptr->SchemeType != SCHEME_HTTPS) continue;
if (strsame (svptr->ServerHostPort, VirtualHostPort, -1)) break;
}
if (svptr)
sptr = ((SESOLA_CONTEXT*)svptr->SSLserverPtr)->CaFilePtr;
else
sptr = v10orPrev10(CONFIG_SSL_CAFILE,-1);
}
else
sptr = v10orPrev10(CONFIG_SSL_CAFILE,-1);
}
else
if (strsame (cptr, ADMIN_REVISE_HTA, sizeof(ADMIN_REVISE_HTA)-1))
{
/* server admin of HTA database(s) */
zptr = (sptr = FileSpec) + sizeof(FileSpec)-1;
if (rqptr->ConfigDirectoryLength)
cptr = rqptr->ConfigDirectory;
else
cptr = AuthConfigHtaDirectory;
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
cptr = rqptr->rqHeader.PathInfoPtr + sizeof(ADMIN_REVISE_HTA)-1;
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
*sptr = '\0';
sptr = FileSpec;
dnaptr = HTA_FILE_TYPE;
}
else
if (strsame (cptr, ADMIN_VS_REVISE_HTA, sizeof(ADMIN_VS_REVISE_HTA)-1))
{
/* per-service admin of HTA database(s) */
if (!rqptr->ConfigDirectoryLength)
{
rqptr->rqResponse.HttpStatus = 403;
ErrorGeneral (rqptr, "Service not configured to allow this.", FI_LI);
return (STS$K_ERROR);
}
zptr = (sptr = FileSpec) + sizeof(FileSpec)-1;
for (cptr = rqptr->ConfigDirectory;
*cptr && sptr < zptr;
*sptr++ = *cptr++);
cptr = rqptr->rqHeader.PathInfoPtr + sizeof(ADMIN_VS_REVISE_HTA)-1;
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
*sptr = '\0';
sptr = FileSpec;
dnaptr = HTA_FILE_TYPE;
}
else
if (strsame (cptr, ADMIN_REVISE_HTL, sizeof(ADMIN_REVISE_HTL)-1))
{
/* server admin of HTL list(s) */
zptr = (sptr = FileSpec) + sizeof(FileSpec)-1;
if (rqptr->ConfigDirectoryLength)
cptr = rqptr->ConfigDirectory;
else
cptr = AuthConfigHtaDirectory;
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
cptr = rqptr->rqHeader.PathInfoPtr + sizeof(ADMIN_REVISE_HTL)-1;
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
*sptr = '\0';
sptr = FileSpec;
dnaptr = HTL_FILE_TYPE;
}
else
if (strsame (cptr, ADMIN_VS_REVISE_HTL, sizeof(ADMIN_VS_REVISE_HTL)-1))
{
/* per-service admin of HTL list(s) */
if (!rqptr->ConfigDirectoryLength)
{
rqptr->rqResponse.HttpStatus = 403;
ErrorGeneral (rqptr, "Service not configured to allow this.", FI_LI);
return (STS$K_ERROR);
}
zptr = (sptr = FileSpec) + sizeof(FileSpec)-1;
for (cptr = rqptr->ConfigDirectory;
*cptr && sptr < zptr;
*sptr++ = *cptr++);
cptr = rqptr->rqHeader.PathInfoPtr + sizeof(ADMIN_VS_REVISE_HTL)-1;
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
*sptr = '\0';
sptr = FileSpec;
dnaptr = HTL_FILE_TYPE;
}
else
return (SS$_NORMAL);
OdsStructInit (&rqptr->ParseOds, true);
status = OdsParse (&rqptr->ParseOds, sptr, strlen(sptr),
dnaptr, dnaptr ? strlen(dnaptr) : 0,
NAM$M_SYNCHK, NULL, rqptr);
if (VMSok(status)) status = rqptr->ParseOds.Fab.fab$l_sts;
if (VMSok(status)) status = OdsParseTerminate (&rqptr->ParseOds);
if (VMSok(status))
{
if (WATCHING (rqptr, WATCH_RESPONSE))
WatchThis (WATCHITM(rqptr), WATCH_RESPONSE,
"FILE !AZ !AZ", sptr, rqptr->ParseOds.ExpFileName);
return (status);
}
rqptr->rqResponse.ErrorTextPtr = cptr;
rqptr->rqResponse.ErrorOtherTextPtr = sptr;
ErrorVmsStatus (rqptr, status, FI_LI);
return (status);
}
/*****************************************************************************/
/*
Execute server administration menu control actions.
*/
void AdminControl
(
REQUEST_STRUCT *rqptr,
char *DoThis,
BOOL ClusterDo
)
{
int cnt, status,
LockIndex;
char *cptr, *sptr, *zptr;
char String [256];
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER,
"AdminControl() !BZ !&B !&Z",
DoThis, ClusterDo, rqptr->rqHeader.PathInfoPtr);
cptr = rqptr->rqHeader.PathInfoPtr;
if (strsame (cptr, ADMIN_CONTROL_PROXY_ADJUST, -1))
{
/* proxy serving adjustment menu */
ProxyMaintAdjust (rqptr);
return;
}
if (strsame (cptr, ADMIN_CONTROL_PROXY_ADJUST_NOW, -1))
{
/* adjust proxy serving configuration */
ProxyMaintControl (rqptr);
return;
}
sptr = NULL;
if (DoThis)
sptr = DoThis;
else
if (strsame (cptr, ADMIN_CONTROL_AUTH_LOAD, -1))
sptr = CONTROL_AUTH_LOAD1;
else
if (strsame (cptr, ADMIN_CONTROL_AUTH_PURGE, -1))
sptr = CONTROL_AUTH_PURGE;
else
if (strsame (cptr, ADMIN_VS_CONTROL_AUTH_PURGE, -1))
sptr = CONTROL_AUTH_PURGE;
else
if (strsame (cptr, ADMIN_CONTROL_CACHE_ON, -1))
sptr = CONTROL_CACHE_ON;
else
if (strsame (cptr, ADMIN_CONTROL_CACHE_OFF, -1))
sptr = CONTROL_CACHE_OFF;
else
if (strsame (cptr, ADMIN_CONTROL_CACHE_PURGE, -1))
sptr = CONTROL_CACHE_PURGE;
else
if (strsame (cptr, ADMIN_CONTROL_DCL_PURGE, -1))
sptr = CONTROL_DCL_PURGE;
else
if (strsame (cptr, ADMIN_CONTROL_DCL_DELETE, -1))
sptr = CONTROL_DCL_DELETE;
else
if (strsame (cptr, ADMIN_CONTROL_DECNET_DISCONNECT, -1))
sptr = CONTROL_DECNET_DISCONNECT;
else
if (strsame (cptr, ADMIN_CONTROL_DECNET_PURGE, -1))
sptr = CONTROL_DECNET_PURGE;
else
if (strsame (cptr, ADMIN_CONTROL_EXIT, -1))
sptr = CONTROL_EXIT;
else
if (strsame (cptr, ADMIN_CONTROL_EXIT_NOW, -1))
sptr = CONTROL_EXIT_NOW;
else
if (strsame (cptr, ADMIN_CONTROL_HTTP2_PURGE, -1))
sptr = CONTROL_HTTP2_PURGE;
else
if (strsame (cptr, ADMIN_CONTROL_HTTP2_PURGE_ALL, -1))
sptr = CONTROL_HTTP2_PURGE_ALL;
else
if (strsame (cptr, ADMIN_CONTROL_INSTANCE_ACTIVE, -1))
sptr = CONTROL_INSTANCE_ACTIVE;
else
if (strsame (cptr, ADMIN_CONTROL_INSTANCE_PASSIVE, -1))
sptr = CONTROL_INSTANCE_PASSIVE;
else
if (strsame (cptr, ADMIN_CONTROL_INSTANCE,
sizeof(ADMIN_CONTROL_INSTANCE)-1))
{
sptr = cptr;
while (*cptr) cptr++;
while (cptr > sptr && *cptr != '/') cptr--;
if (*cptr == '/')
{
cptr++;
FaoToBuffer (String, sizeof(String), NULL, "!AZ!AZ",
CONTROL_INSTANCE, cptr);
sptr = String;
}
}
else
if (strsame (cptr, ADMIN_CONTROL_LOG_OPEN, -1))
sptr = CONTROL_LOG_OPEN;
else
if (strsame (cptr, ADMIN_CONTROL_LOG_CLOSE, -1))
sptr = CONTROL_LOG_CLOSE;
else
if (strsame (cptr, ADMIN_CONTROL_LOG_FLUSH, -1))
sptr = CONTROL_LOG_FLUSH;
else
if (strsame (cptr, ADMIN_CONTROL_MAP, -1))
sptr = CONTROL_MAP_LOAD1;
else
if (strsame (cptr, ADMIN_CONTROL_NET_PURGE, -1))
sptr = CONTROL_NET_PURGE;
else
if (strsame (cptr, ADMIN_CONTROL_NET_PURGE_ALL, -1))
sptr = CONTROL_NET_PURGE_ALL;
else
if (strsame (cptr, ADMIN_CONTROL_NET_PURGE_HTTP1, -1))
sptr = CONTROL_NET_PURGE_HTTP1;
else
if (strsame (cptr, ADMIN_CONTROL_NET_PURGE_HTTP2, -1))
sptr = CONTROL_NET_PURGE_HTTP2;
else
if (strsame (cptr, ADMIN_CONTROL_PROXY_ON, -1))
sptr = CONTROL_PROXY_ON;
else
if (strsame (cptr, ADMIN_CONTROL_PROXY_OFF, -1))
sptr = CONTROL_PROXY_OFF;
else
if (strsame (cptr, ADMIN_CONTROL_PROXY_PURGE_HOST, -1))
sptr = CONTROL_PROXY_PURGE_HOST;
else
if (strsame (cptr, ADMIN_CONTROL_PROXY_STATISTICS, -1))
sptr = CONTROL_PROXY_STATISTICS;
else
if (strsame (cptr, ADMIN_CONTROL_RESTART, -1))
sptr = CONTROL_RESTART;
else
if (strsame (cptr, ADMIN_CONTROL_RESTART_NOW, -1))
sptr = CONTROL_RESTART_NOW;
else
if (strsame (cptr, ADMIN_CONTROL_RESTART_QUIET, -1))
sptr = CONTROL_RESTART_QUIET;
else
if (strsame (cptr, ADMIN_CONTROL_SSL_CA_LOAD, -1))
sptr = CONTROL_SSL_CA_LOAD;
else
if (strsame (cptr, ADMIN_CONTROL_THROTTLE_RELEASE, -1))
sptr = CONTROL_THROTTLE_RELEASE;
else
if (strsame (cptr, ADMIN_CONTROL_THROTTLE_TERMINATE, -1))
sptr = CONTROL_THROTTLE_TERMINATE;
else
if (strsame (cptr, ADMIN_CONTROL_WEBSOCKET_DISCONNECT, -1))
sptr = CONTROL_WEBSOCKET_DISCONNECT;
else
if (strsame (cptr, ADMIN_CONTROL_THROTTLE_ZERO, -1))
sptr = CONTROL_THROTTLE_ZERO;
else
if (strsame (cptr, ADMIN_CONTROL_ZERO_NOTICED, -1))
sptr = CONTROL_ZERO_NOTICED;
else
if (strsame (cptr, ADMIN_CONTROL_ZERO_PROXY, -1))
sptr = CONTROL_ZERO_PROXY;
else
if (strsame (cptr, ADMIN_CONTROL_ZERO, -1))
sptr = CONTROL_ZERO;
if (!sptr)
{
/* unknown function */
rqptr->rqResponse.HttpStatus = 400;
ErrorGeneral (rqptr, "Unknown control function.", FI_LI);
AdminEnd (rqptr);
return;
}
if (ClusterDo)
LockIndex = INSTANCE_CLUSTER_DO;
else
LockIndex = INSTANCE_NODE_DO;
cptr = ControlEnqueueCommand (LockIndex, sptr);
strcat (cptr, ".");
if (*cptr == '!')
{
rqptr->rqResponse.HttpStatus = 403;
cptr[1] = TOUP(cptr[1]);
ErrorGeneral (rqptr, cptr+1, FI_LI);
}
else
{
cptr[0] = TOUP(cptr[0]);
ReportSuccess (rqptr, "Command !AZ", cptr);
}
AdminEnd (rqptr);
}
/*****************************************************************************/
/*
Provide a menu of HTTPd server administration functions.
*/
void AdminMenu (REQUEST_STRUCT *rqptr)
{
static int ActHours [] = { 0,1,2,4,8,16,24,72,168,336,504,672,0 };
static char BeginPageFao [] =
"!AZ\
<html>\n\
<head>\n\
!AZ\
!AZ\
!&@\
<title>WASD !AZ ... Server Administration</title>\n\
<script language=\"JavaScript\">\n\
<!!--\n\
function confact (btn,msg1,msg2) {\n\
this.btn = btn;\n\
this.msg1 = msg1;\n\
this.msg2 = msg2;\n\
}\n\
var confary = new Array();\n\
confary[0] = new confact \
(\"restart\",\"Restart \",\" after allowing current requests to complete?\");\n\
confary[1] = new confact \
(\"restart/now\",\"Restart \",\" DISCONNECTING current requests?\");\n\
confary[2] = new confact \
(\"restart/quiet\",\"Restart \",\" when current requests reach zero?\");\n\
confary[3] = new confact \
(\"exit\",\"Exit \",\" allowing current requests to complete?\");\n\
confary[4] = new confact \
(\"exit/now\",\"Exit \",\" DISCONNECTING current requests?\");\n\
confary[6] = new confact \
(\"zero\",\"Zero \",\" server accounting?\");\n\
confary[7] = new confact \
(\"zero/proxy\",\"Zero \",\" proxy accounting?\");\n\
confary[8] = new confact \
(\"active\",\"Allow \",\" network connections to all instances \
(active mode)?\");\n\
confary[9] = new confact \
(\"passive\",\"Limit \",\" network connections to just one instance \
(passive mode)?\");\n\
confary[10] = new confact \
(\"net/purge\",\"Purge \",\" persistent (idle) network connections?\");\n\
confary[11] = new confact \
(\"net/purge/all\",\"Purge \",\" all (idle and in-progress) \
network connections, DISCONNECTING current requests?\");\n\
\
function doIt(link,btn) {\n\
!&@\
for (idx in confary)\n\
if (confary[idx].btn == btn) \
return confirm (confary[idx].msg1 + scope + confary[idx].msg2);\n\
return true;\n\
}\n\
!AZ\
// Safari (at least) does not honour HTTP cache control headers!!\n\
// Its back-forward cache mechanism breaks stuff. These are kludges!!\n\
var dueToSafariFBCache = new Date().getTime();\n\
window.addEventListener(\"pageshow\",function(event) {\n\
if (event.persisted) window.location.reload()\n\
});\n\
window.addEventListener(\"focus\",function(event) {\n\
if (new Date().getTime() - dueToSafariFBCache > 60000) \
window.location.reload()\n\
});\n\
// -->\n\
</script>\n\
<style type=\"text/css\">\n\
table.admn1 { margin:0.4em; border-style:none; border-collapse:collapse; \
text-align:center; }\n\
table.admn1 th, table.admn1 td { padding:0.1em 0.1em 0.1em 0.1em; }\n\
input { border-style:groove; border-width:2px; \
font-family:monospace; font-size:90%; }\n\
table.admn2 { border-style:none; border-collapse:collapse; \
margin:0.2em 0.2em 0.6em 0.2em; font-size:80%; }\n\
table.admn2 th { padding:0.1em 0.2em 0.1em 0.2em; text-align:right; \
vertical-align:top; }\n\
table.admn2 td { padding:0.1em 0.2em 0.1em 0.2em; text-align:left; \
vertical-align:top; }\n\
</style>\n\
</head>\n\
<body!AZ\n\
<div class=\"wasd\">\n\
<h2><nobr>WASD !AZ</nobr></h2>\n\
<h3>Server Administration!&@</h3>\n\
<p>\n\
\
<form name=\"doallform\">\n\
\
<table class=\"ctgry\">\n\
\
<tr><th class=\"ctttl\" style=\"height:1.2em!!important;\
vertical-align:middle;\" colspan=\"2\">Configuration</th><tr>\n\
\
<tr><td class=\"tacnt\" colspan=\"2\">\n\
\
<table class=\"admn1\" style=\"margin-left:1em;\">\n\
\
<tr><td></td><td>|</td>\
<th colspan=\"2\">Report</th><td>|</td>\n\
<th colspan=\"3\">Revise</th><td>|</td>\n\
<th colspan=\"2\">Action</th><td>|</td><tr>\n\
\
<tr>\n\
<th>Server</th>\n\
<td></td>\n\
<td><a class=\"abttn bttn400\" href=\"!AZ\">Statistics</a></td>\n\
<td>!&@</td>\n\
<td></td>\n\
<td colspan=\"2\"><a class=\"abttn bttn400\" \
href=\"!AZ?do=edit\">Site-Log</a></td>\n\
<td><a class=\"abttn bttn300\" href=\"!AZ?do=edit\">Edit</a></td>\n\
<td></td>\n\
<td><a class=\"abttn bttn300\" \
href=\"!AZ\" onClick=\"return doIt(this,\'zero\')\">Zero</a></td>\n\
</tr>\n\
\
<tr>\n\
<th>Configuration</th>\n\
<td></td>\n\
<td><a class=\"abttn bttn400\" href=\"!AZ?server=yes\">Server</a></td>\n\
<td><a class=\"abttn bttn300\" href=\"!AZ?file=yes\">File</a></td>\n\
<td></td>\n\
<td><a class=\"abttn bttn400\" href=\"!AZ?server=yes\">Server</a></td>\n\
<td><a class=\"abttn bttn300\" href=\"!AZ?file=yes\">File</a></td>\n\
<td><a class=\"abttn bttn300\" href=\"!AZ?do=edit\">Edit</a></td>\n\
</tr>\n\
\
<tr>\n\
<th>Services</th>\n\
<td></td>\n\
<td><a class=\"abttn bttn400\" href=\"!AZ?server=yes\">Server</a></td>\n\
<td><a class=\"abttn bttn300\" href=\"!AZ?file=yes\">File</a></td>\n\
<td></td>\n\
<td><a class=\"abttn bttn400\" href=\"!AZ?server=yes\">Server</a></td>\n\
<td><a class=\"abttn bttn300\" href=\"!AZ?file=yes\">File</a></td>\n\
<td><a class=\"abttn bttn300\" href=\"!AZ?do=edit\">Edit</a></td>\n\
<td></td>\n\
<td><a class=\"abttn bttn300\" href=\"!AZ\" \
onClick=\"return doIt(this,\'net/purge\')\">Purge</a></td>\n\
<td><a class=\"abttn bttn200\" href=\"!AZ\" \
onClick=\"return doIt(this,\'net/purge/all\')\">All</a></td>\n\
</tr>\n\
\
<tr>\n\
<th>Messages</th>\n\
<td></td>\n\
<td><a class=\"abttn bttn400\" href=\"!AZ?server=yes\">Server</a></td>\n\
<td><a class=\"abttn bttn300\" href=\"!AZ?file=yes\">File</a></td>\n\
<td></td>\n\
<td><a class=\"abttn bttn400\" href=\"!AZ?server=yes\">Server</a></td>\n\
<td><a class=\"abttn bttn300\" href=\"!AZ?file=yes\">File</a></td>\n\
<td><a class=\"abttn bttn300\" href=\"!AZ?do=edit\">Edit</a></td>\n\
</tr>\n\
\
<tr>\n\
<th>Path Mapping</th>\n\
<td></td>\n\
<td><a class=\"abttn bttn400\" href=\"!AZ?server=yes\">Server</a></td>\n\
<td><a class=\"abttn bttn300\" href=\"!AZ?file=yes\">File</a></td>\n\
<td></td>\n\
<td></td>\n\
<td></td>\n\
<td><a class=\"abttn bttn300\" href=\"!AZ?do=edit\">Edit</a></td>\n\
<td></td>\n\
<td colspan=\"2\"><a class=\"abttn bttn400\" href=\"!AZ\" \
onClick=\"return doIt(this,null)\">Reload</a></td>\n\
</tr>\n\
\
<tr>\n\
<th>Path Authorization</th>\n\
<td></td>\n\
<td><a class=\"abttn bttn400\" href=\"!AZ?server=yes\">Server</a></td>\n\
<td><a class=\"abttn bttn300\" href=\"!AZ?file=yes\">File</a></td>\n\
<td></td>\n\
<td></td>\n\
<td></td>\n\
<td><a class=\"abttn bttn300\" href=\"!AZ?do=edit\">Edit</a></td>\n\
<td></td>\n\
<td colspan=\"2\"><a class=\"abttn bttn400\" href=\"!AZ\" \
onClick=\"return doIt(this,null)\">Reload</a></td>\n\
</tr>\n\
\
<tr>\n\
<th>User Authentication</th>\n\
<td></td>\n\
<td><a class=\"abttn bttn400\" href=\"!AZ\">Server</a></td>\n\
<td></td>\n\
<td></td>\n\
<td colspan=\"2\"><a class=\"abttn bttn300\" href=\"!AZ\">HTA</a>\
<a class=\"abttn bttn300\" href=\"!AZ\">HTL</a></td>\n\
<td></td>\n\
<td></td>\n\
<td colspan=\"2\"><a class=\"abttn bttn400\" href=\"!AZ\" \
onClick=\"return doIt(this,null)\">Purge</a></td>\n\
</tr>\n\
\
<tr>\n\
<th>Secure Sockets</th>\n\
<td></td>\n\
<td>!&@</td>\n\
<td>!&@</td>\n\
<td></td>\n\
<td></td>\n\
<td class=\"targht\" colspan=\"2\">!&@</td>\n\
<td></td>\n\
<td colspan=\"2\">!&@</td>\n\
</tr>\n\
\
<tr>\n\
<th style=\"padding-top:0.5em;\" rowspan=\"4\">Other Reports</th>\n\
<td rowspan=\"4\"></td>\n\
<td colspan=\"11\" style=\"padding-top:0.5em;\">\n\
!&@\n\
!&@\n\
!&@\n\
!&@\n\
!&@\n\
!&@\n\
<td></td></tr>\n\
<tr><td colspan=\"11\">\n\
!&@\n\
!&@\n\
!&@\n\
!&@\n\
!&@\n\
!&@\n\
<td></td></tr>\n\
<tr><td colspan=\"11\">\n\
!&@\n\
!&@\n\
!&@\n\
!&@\n\
!&@\n\
!&@\n\
</td></tr>\n\
<tr><td colspan=\"11\" style=\"padding-bottom:0.4em;\">\n\
!&@!&@!&@!&@!&@!&@!&@!&@!&@!&@!&@ \
<span style=\"font-size:80%\">hours activity</span>\n\
</td></tr>\n\
\
</table>\n\
\
<tr>\n\
<th class=\"ctttl\" style=\"height:1.2em!!important;\
vertical-align:middle;\">Control</th>\n\
\
<td class=\"ctttl\" rowspan=\"2\" style=\"text-align:center;\">\n\
<!!-- 16-DEC-2017 if Chrome shows a non-collapsed border around here \
it's due to a decade-old bug in it!! Fixed from version 68... -->\n\
\
<table class=\"admn2\">\n\
<tr><th colspan=\"4\" style=\"text-align:center;font-size:105%;\">\
!20&W</th></tr>\n\
<tr><td colspan=\"4\" style=\"padding:0.2em;text-align:center;\
font-size:80%;\">!AZ (!AZ)</td></tr>\n\
\
<tr><td colspan=\"3\" lang=\"en\" \
style=\"width:5em!!important;padding:0.1em 0 0.3em 0;white-space:normal;\
hyphens:auto;text-align:center;\">!&@</td></tr>\n\
\
<tr><th class=\"talft\">Time</th>\n\
<th>!AZ::</th>\
<td>!%D</td></tr>\n\
<tr><th colspan=\"2\">!AZ:</th>\
<td>!%D</td></tr>\n\
<tr><th colspan=\"2\">Image:</th>\
<td>!%D</td></tr>\n\
<tr><th colspan=\"2\">CPU:</th>\
<td>!UL !2ZL:!2ZL:!2ZL.!2ZL</td></tr>\n\
\
<tr><th class=\"talft\" rowspan=\"3\">Connect</th>\n\
<th>Current:</th>\
<td>!&L</td></tr>\n\
<tr><th>Peak:</th>\
<td>!&L</td></tr>\n\
<tr><th>Total:</th>\
<td>!&L</td></tr>\n\
\
<tr><th class=\"talft\" rowspan=\"4\">Request</th>\n\
<th>Current:</th>\
<td>!&L</td></tr>\n\
<tr><th>Peak:</th>\
<td>!&L</td></tr>\n\
<tr><th>Total:</th>\
<td>!&L</td></tr>\n\
<tr><th>Bytes:</th>\
<td>!&,@SQ</td></tr>\n\
\
!AZ\
!&@\
!&@\
!AZ\
\
</table>\n\
\
</td></tr>\n\
<tr><td>\n\
\
<table class=\"admn1\">\n\
<tr><td>\n\
\
<table class=\"admn1\">\n\
<tr><td>\
<a class=\"abttn bttn800\" href=\"!AZ\" \
onClick=\"return doIt(this,\'restart\')\">RESTART</a>\
</td></tr>\n\
<tr><td>\
<a class=\"abttn bttn800\" href=\"!AZ\" \
onClick=\"return doIt(this,\'restart/now\')\">\
<span style=\"font-size:85%;\">RESTART</span>NOW\
</a>\
</td></tr>\n\
<tr><td>\
<a class=\"abttn bttn800\" href=\"!AZ\" \
onClick=\"return doIt(this,\'restart/quiet\')\">\
<span style=\"font-size:85%;\">RESTART</span>Quiet\
</a>\
</td></tr>\n\
<tr><td>\
<a class=\"abttn bttn800\" href=\"!AZ\" \
onClick=\"return doIt(this,\'exit\')\">EXIT</a>\
</td></tr>\n\
<tr><td>\
<a class=\"abttn bttn800\" href=\"!AZ\" \
onClick=\"return doIt(this,\'exit/now\')\">\
<span style=\"font-size:85%;\">EXIT</span>NOW\
</a>\
</td></tr>\n\
</table>\n\
\
</td><td>\n\
\
<table class=\"admn1\">\n\
<tr><td style=\"text-align:right;padding-right:0.4em;\"><b>Log</b></td><td>!&@</td></tr>\n\
<tr><td style=\"text-align:right;padding-right:0.4em;\"><b>Cache</b></td><td>!&@</td></tr>\n\
<tr><td style=\"text-align:right;padding-right:0.4em;\"><b>Proxy</b></td><td>!&@</td></tr>\n\
<tr><td style=\"text-align:right;padding-right:0.4em;\"><b>Instance</b></td><td>\
!&@\
!&@";
static char EndInstanceFao [] =
"</td></tr>\n\
<tr><td></td><td>!&@</td></tr>\n\
</table>\n\
\
</td></tr>\n\
<tr><td colspan=\"3\" style=\"padding:0 0.5em 0.5em 0.5em;text-align:right;\">\
<input type=\"submit\" style=\"min-width:5em;\" value=\"/DO=\">\
<input name=\"slashdo\" type=\"text\" size=\"25\" \
style=\"max-width:25em;border:1px solid gray;outline:none;\">\
</td></tr>\n\
</table>\n\
</td></tr>\n\
<!!-- 16-DEC-2017 if Chrome shows a non-collapsed border around here \
it's due to a decade-old bug in it!! -->\n";
static char EndPageFao [] =
"</table>\n\
\
</form>\n\
\
<script>var norefresh = true;</script>\n\
!AZ\
\
</div>\n\
</body>\n\
</html>\n";
static unsigned long LibDeltaHours = LIB$K_DELTA_HOURS;
static unsigned short SyiClusterNodes;
static unsigned long JpiCpuTime,
Pid = 0;
static int64 ActivityUpTime64,
Time64,
ImageUpTime64,
JpiLoginTime64,
ProcessUpTime64,
SystemUpTime64;
static VMS_ITEM_LIST3 JpiItems [] =
{
{ sizeof(JpiCpuTime), JPI$_CPUTIM, &JpiCpuTime, 0 },
{ sizeof(JpiLoginTime64), JPI$_LOGINTIM, &JpiLoginTime64, 0 },
{0,0,0,0}
};
static VMS_ITEM_LIST3 SyiItem [] =
{
{ sizeof(SyiClusterNodes), SYI$_CLUSTER_NODES, &SyiClusterNodes, 0 },
{ 0,0,0,0 }
};
int cnt, idx, status, total,
ClusterInstanceCount,
InstanceStartupMax,
NodeInstanceCount;
int64 BytesTotal64;
unsigned short Length;
unsigned long ActivityDeltaHours;
unsigned long *vecptr;
unsigned long FaoVector [192];
char *cptr,
*ClusterInstancePtr,
*NodeInstancePtr;
IO_SB IOsb;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER, "AdminMenu()");
if (HTTP2_REQUEST(rqptr))
Http2Ping (rqptr->Http2Stream.Http2Ptr, 0, NULL, 0);
status = sys$getjpiw (EfnWait, &Pid, 0, &JpiItems, &IOsb, 0, 0);
if (VMSok (status)) status = IOsb.Status;
if (VMSnok (status))
{
rqptr->rqResponse.ErrorTextPtr = "sys$getjpiw()";
ErrorVmsStatus (rqptr, status, FI_LI);
AdminEnd (rqptr);
return;
}
status = sys$getsyiw (EfnWait, 0, 0, &SyiItem, &IOsb, 0, 0);
if (VMSok (status)) status = IOsb.Status;
if (VMSnok (status))
{
rqptr->rqResponse.ErrorTextPtr = "sys$getsyiw()";
ErrorVmsStatus (rqptr, status, FI_LI);
AdminEnd (rqptr);
return;
}
#ifdef WATCH_MOD
if (!SyiClusterNodes)
if (cptr = SysTrnLnm (WASD_CLUSTER_NODES))
SyiClusterNodes = atoi(cptr);
#endif
sys$gettim (&Time64);
SystemUpTime64 = SysInfo.BootTime64 - Time64;
ImageUpTime64 = HttpdStartTime64 - Time64;
ProcessUpTime64 = JpiLoginTime64 - Time64;
if (ActivityTotalMinutes)
{
InstanceMutexLock (INSTANCE_MUTEX_HTTPD);
ActivityUpTime64 = ActivityGblSecPtr->StartTime64 - Time64;
InstanceMutexUnLock (INSTANCE_MUTEX_HTTPD);
ActivityDeltaHours = -ActivityUpTime64 / TIME64_ONE_HOUR;
if (!ActivityDeltaHours) ActivityDeltaHours = 1;
}
else
ActivityDeltaHours = 1;
/* get the number (if any) of other HTTP servers on this node/cluster */
NodeInstanceCount = InstanceLockList (INSTANCE_NODE_SUPERVISOR, "\n",
&NodeInstancePtr);
ClusterInstanceCount = InstanceLockList (INSTANCE_CLUSTER, "\n",
&ClusterInstancePtr);
vecptr = FaoVector;
*vecptr++ = WASD_DOCTYPE;
*vecptr++ = HtmlMetaInfo (rqptr, NULL);
*vecptr++ = AdminWasdCss ();
if (rqptr->rqPathSet.StyleSheetPtr)
{
*vecptr++ = "<link rel=\"stylesheet\" type=\"text/css\" href=\"!AZ\">\n";
*vecptr++ = rqptr->rqPathSet.StyleSheetPtr;
}
else
*vecptr++ = "";
*vecptr++ = ServerHostPort;
if (SyiClusterNodes > 1 && ClusterInstanceCount > NodeInstanceCount)
{
*vecptr++ =
" scope = \"node instance!&?s\r\r\";\n\
if (document.doallForm.scope[1].checked) {\n\
if (link.href.indexOf(\"?\") >= 0) link.href = \
link.href.substring(0,link.href.indexOf(\"?\"));\n\
link.href = link.href + \"?scope=cluster\";\n\
scope = \"cluster instances\";\n\
}\n";
*vecptr++ = (NodeInstanceCount > 1);
}
else
{
*vecptr++ = "scope = \"node instance!&?s\r\r\";\n";
*vecptr++ = (NodeInstanceCount > 1);
}
*vecptr++ = AdminPing (NULL);
*vecptr++ = ADMIN_BODY_TAG + 5;
*vecptr++ = ServerHostPort;
if (InstanceNodeCurrent > 1)
{
if (rqptr->ServicePtr->AdminService)
*vecptr++ = " - !AZ";
else
*vecptr++ = " (!AZ)";
*vecptr++ = HttpdProcess.PrcNam;
}
else
*vecptr++ = "";
/* statistics */
*vecptr++ = ADMIN_REPORT_STATS;
if (HttpdProcess.SysOutputFile)
{
*vecptr++ = "<span class=\"abttn bttn300\">\
<a style=\"text-decoration:none;color:inherit;\" href=\"!AZ\">Log</a>\
<a style=\"text-decoration:none;color:inherit;\" href=\"!AZ\">+</a></span>";
*vecptr++ = ADMIN_REPORT_PROCESS_OUTPUT;
*vecptr++ = ADMIN_REPORT_PROCESS_OUTPUT_PLUS;
}
else
*vecptr++ = "<a class=\"abttn bttn300 dbttn\">Log</a>";
*vecptr++ = ADMIN_REVISE_SITELOG_ENTRY;
*vecptr++ = ADMIN_REVISE_SITELOG;
*vecptr++ = ADMIN_CONTROL_ZERO;
/* configuration */
*vecptr++ = ADMIN_REPORT_CONFIG;
*vecptr++ = ADMIN_REPORT_CONFIG;
*vecptr++ = ADMIN_REVISE_CONFIG;
*vecptr++ = ADMIN_REVISE_CONFIG;
*vecptr++ = ADMIN_REVISE_CONFIG;
/* services */
*vecptr++ = ADMIN_REPORT_SERVICES;
*vecptr++ = ADMIN_REPORT_SERVICES;
*vecptr++ = ADMIN_REVISE_SERVICES;
*vecptr++ = ADMIN_REVISE_SERVICES;
*vecptr++ = ADMIN_REVISE_SERVICES;
*vecptr++ = ADMIN_CONTROL_NET_PURGE;
*vecptr++ = ADMIN_CONTROL_NET_PURGE_ALL;
/* messages */
*vecptr++ = ADMIN_REPORT_MESSAGES;
*vecptr++ = ADMIN_REPORT_MESSAGES;
*vecptr++ = ADMIN_REVISE_MESSAGES;
*vecptr++ = ADMIN_REVISE_MESSAGES;
*vecptr++ = ADMIN_REVISE_MESSAGES;
/* mapping */
*vecptr++ = ADMIN_REPORT_MAPPING;
*vecptr++ = ADMIN_REPORT_MAPPING;
*vecptr++ = ADMIN_REVISE_MAPPING;
*vecptr++ = ADMIN_CONTROL_MAP;
/* authorization */
*vecptr++ = ADMIN_REPORT_AUTH_PATHS;
*vecptr++ = ADMIN_REPORT_AUTH_PATHS;
*vecptr++ = ADMIN_REVISE_AUTH_PATHS;
*vecptr++ = ADMIN_CONTROL_AUTH_LOAD;
/* authentication */
*vecptr++ = ADMIN_REPORT_AUTH_USER;
*vecptr++ = ADMIN_REVISE_HTA;
*vecptr++ = ADMIN_REVISE_HTL;
*vecptr++ = ADMIN_CONTROL_AUTH_PURGE;
/* secure socket layer */
if (ProtocolHttpsConfigured)
{
*vecptr++ = "<a class=\"abttn bttn400\" href=\"!AZ\">Service</a>";
*vecptr++ = ADMIN_REPORT_SSL;
if (SesolaVerifyCAConfigured)
{
*vecptr++ = "<a class=\"abttn bttn300\" \
href=\"!AZ?do=report&virtual=!AZ\">CA</a>";
*vecptr++ = ADMIN_REPORT_SSL_CA;
*vecptr++ = rqptr->ServicePtr->ServerHostPort;
*vecptr++ = "<a class=\"abttn bttn400\" \
href=\"!AZ?do=edit\">Edit-CA</a>";
*vecptr++ = ADMIN_REVISE_SSL_CA;
*vecptr++ =
"<a class=\"abttn bttn400\" href=\"!AZ\" \
onClick=\"return doIt(this,null)\">Load-CA</a>";
*vecptr++ = ADMIN_CONTROL_SSL_CA_LOAD;
}
else
{
*vecptr++ = "<a class=\"abttn bttn300 dbttn\">CA</a>";
*vecptr++ = "<a class=\"abttn bttn400 dbttn\">Edit-CA</a>";
*vecptr++ = "<a class=\"abttn bttn400 dbttn\">Load-CA</a>";
}
}
else
{
*vecptr++ = "<a class=\"abttn bttn400 dbttn\">Service</a>";
*vecptr++ = "<a class=\"abttn bttn300 dbttn\">CA</a>";
*vecptr++ = "<a class=\"abttn bttn400 dbttn\">Edit-CA</a>";
*vecptr++ = "<a class=\"abttn bttn400 dbttn\">Load-CA</a>";
}
/* other */
if (HttpdAlignFaultReport)
{
*vecptr++ = "<a class=\"abttn bttn400\" href=\"!AZ\">AlnFlt</a>";
*vecptr++ = ADMIN_REPORT_ALIGN;
}
else
*vecptr++ = "<a class=\"abttn bttn400 dbttn\">AlnFlt</a>";
*vecptr++ = "<a class=\"abttn bttn400\" href=\"!AZ\">Cache</a>";
*vecptr++ = ADMIN_REPORT_CACHE;
if (SyiClusterNodes > 1)
{
*vecptr++ = "<a class=\"abttn bttn400\" href=\"!AZ\">Cluster</a>";
*vecptr++ = ADMIN_REPORT_CLUSTER;
}
else
*vecptr++ = "<a class=\"abttn bttn400 dbttn\">Cluster</a>";
*vecptr++ = "<a class=\"abttn bttn400\" href=\"!AZ\">DCL</a>";
*vecptr++ = ADMIN_REPORT_DCL;
*vecptr++ = "<a class=\"abttn bttn400\" href=\"!AZ\">DECnet</a>";
*vecptr++ = ADMIN_REPORT_DECNET;
if (TcpIpHostCachePtr)
{
*vecptr++ = "<a class=\"abttn bttn400\" href=\"!AZ\">Host</a>";
*vecptr++ = ADMIN_REPORT_HOSTCACHE;
}
else
*vecptr++ = "<a class=\"abttn bttn400 dbttn\">Host</a>";
*vecptr++ = "<a class=\"abttn bttn400\" href=\"!AZ\">HTTP</a>";
*vecptr++ = ADMIN_REPORT_HTTP;
*vecptr++ = "<a class=\"abttn bttn400\" href=\"!AZ\">Lock</a>";
*vecptr++ = ADMIN_REPORT_LOCK;
*vecptr++ = "<a class=\"abttn bttn400\" href=\"!AZ\">Match</a>";
*vecptr++ = ADMIN_REPORT_MATCH;
*vecptr++ = "<span class=\"abttn bttn400\">\
<a style=\"text-decoration:none;color:inherit;letter-spacing:-0.04em;\" href=\"!AZ\">Memory</a>\
<a style=\"text-decoration:none;color:inherit;\" href=\"!AZ\">+</a></span>";
*vecptr++ = ADMIN_REPORT_MEMORY;
*vecptr++ = ADMIN_REPORT_MEMORY_PLUS;
*vecptr++ = "<a class=\"abttn bttn400\" href=\"!AZ\">Process</a>";
*vecptr++ = ADMIN_REPORT_PROCESS;
if (ProxyServiceCount())
{
*vecptr++ = "<a class=\"abttn bttn400\" href=\"!AZ\">Proxy</a>";
*vecptr++ = ADMIN_REPORT_PROXY;
}
else
*vecptr++ = "<a class=\"abttn bttn400 dbttn\">Proxy</a>";
*vecptr++ = "<a class=\"abttn bttn400\" href=\"!AZ\">Request</a>";
*vecptr++ = ADMIN_REPORT_REQUEST;
*vecptr++ = "<span class=\"abttn bttn400\">\
<a style=\"text-decoration:none;color:inherit;\" href=\"!AZ\">System</a>\
<a style=\"text-decoration:none;color:inherit;\" href=\"!AZ\">+</a></span>";
*vecptr++ = ADMIN_REPORT_SYSTEM;
*vecptr++ = ADMIN_REPORT_SYSTEM_PLUS;
if (MappingMetaPtr->ThrottleTotal)
{
*vecptr++ = "<a class=\"abttn bttn400\" href=\"!AZ\">Throttle</a>";
*vecptr++ = ADMIN_REPORT_THROTTLE;
}
else
*vecptr++ = "<a class=\"abttn bttn400 dbttn\">Throttle</a>";
if (WATCH_CAT || !Watch.Disabled)
{
*vecptr++ = "<a class=\"abttn bttn400\" href=\"!AZ\">WATCH</a>";
*vecptr++ = ADMIN_REPORT_WATCH;
}
else
*vecptr++ = "<a class=\"abttn bttn400 dbttn\">WATCH</a>";
if (WebDavEnabled)
{
*vecptr++ = "<a class=\"abttn bttn400\" href=\"!AZ\">WebDAV</a>";
*vecptr++ = ADMIN_REPORT_WEBDAV;
}
else
*vecptr++ = "<a class=\"abttn bttn400 dbttn\">WebDAV</a>";
*vecptr++ = "<a class=\"abttn bttn500\" href=\"!AZ\">WebSocket</a>";
*vecptr++ = ADMIN_REPORT_WEBSOCKET;
for (idx = 1; ActHours[idx]; idx++)
{
if (ActivityDeltaHours >= ActHours[idx])
{
*vecptr++ = "<a class=\"abttn bttn125\" href=\"!AZ?of=!UL\">!-!UL</a>";
*vecptr++ = ADMIN_REPORT_ACTIVITY;
*vecptr++ = ActHours[idx];
}
else
if (ActivityDeltaHours > ActHours[idx-1] &&
ActivityDeltaHours < ActHours[idx])
{
*vecptr++ = "<a class=\"abttn bttn125\" href=\"!AZ?of=!UL\">!-!UL</a>";
*vecptr++ = ADMIN_REPORT_ACTIVITY;
*vecptr++ = ActivityDeltaHours;
}
else
{
*vecptr++ = "<a class=\"abttn bttn125 dbttn\">!UL</a>";
*vecptr++ = ActHours[idx];
}
}
*vecptr++ = &rqptr->rqTime.BeginTime64;
*vecptr++ = rqptr->rqTime.GmDateTime;
*vecptr++ = TimeGmtString;
/* client using the Server Admin */
if (MATCH8 (&rqptr->ClientPtr->IpAddressString,
rqptr->ClientPtr->Lookup.HostName))
{
/* client IP address DNS lookup is disabled */
cptr = AdminLookYouUp (&rqptr->ClientPtr->IpAddress);
if (cptr && *cptr)
{
*vecptr++ = "!AZ (!AZ) !&@";
*vecptr++ = cptr;
}
else
*vecptr++ = "!AZ !&@";
}
else
{
*vecptr++ = "!AZ (!AZ) !&@";
*vecptr++ = rqptr->ClientPtr->Lookup.HostName;
}
*vecptr++ = &rqptr->ClientPtr->IpAddressString;
if (HTTP2_REQUEST(rqptr))
*vecptr++ = "HTTP/2<span id=\"pingRTT\"></span>";
else
if (rqptr->rqResponse.HttpVersion == HTTP_VERSION_1_1)
*vecptr++ = "HTTP/1.1<span id=\"pingRTT\"></span>";
else
*vecptr++ = "HTTP/1.0<span id=\"pingRTT\"></span>";
/* informational accounting */
*vecptr++ = SysInfo.NodeName;
*vecptr++ = &SystemUpTime64;
if (NodeInstanceCount > 1)
*vecptr++ = HttpdProcess.PrcNam;
else
*vecptr++ = "Process";
*vecptr++ = &ProcessUpTime64;
*vecptr++ = &ImageUpTime64;
*vecptr++ = JpiCpuTime / 8640000; /* CPU day */
*vecptr++ = (JpiCpuTime % 8640000) / 360000; /* CPU hour */
*vecptr++ = (JpiCpuTime % 360000) / 6000; /* CPU minute */
*vecptr++ = (JpiCpuTime % 6000 ) / 100; /* CPU second */
*vecptr++ = JpiCpuTime % 100; /* CPU 10 milliseconds */
*vecptr++ = acptr->CurrentConnected[HTTP12];
*vecptr++ = acptr->ConnectPeak[HTTP12];
*vecptr++ = acptr->ConnectCount[HTTP12];
*vecptr++ = acptr->CurrentProcessing[HTTP12];
*vecptr++ = acptr->ProcessingPeak[HTTP12];
*vecptr++ = acptr->ProcessingTotalCount[HTTP12];
BytesTotal64 = acptr->BytesRawRx64[HTTP12] +
acptr->BytesRawTx64[HTTP12];
*vecptr++ = &BytesTotal64;
if (WatchQuotasAlert[0] || LoggingFileError)
*vecptr++ = "<tr><td colspan=\"3\" style=\"text-align:center;\">";
else
*vecptr++ = "";
if (WatchQuotasAlert[0])
{
*vecptr++ = "<span class=\"alert\">!AZ</span>";
*vecptr++ = WatchQuotasAlert;
}
else
*vecptr++ = "";
if (LoggingFileError)
*vecptr++ = "<span class=\"alert\">Problem writing access logs!!</span>";
else
*vecptr++ = "";
if (WatchQuotasAlert[0] || LoggingFileError)
*vecptr++ = "</td></tr>";
else
*vecptr++ = "";
/* server control menu items */
*vecptr++ = ADMIN_CONTROL_RESTART;
*vecptr++ = ADMIN_CONTROL_RESTART_NOW;
*vecptr++ = ADMIN_CONTROL_RESTART_QUIET;
*vecptr++ = ADMIN_CONTROL_EXIT;
*vecptr++ = ADMIN_CONTROL_EXIT_NOW;
/* logging control menu items */
if (LoggingEnabled)
{
*vecptr++ =
"<a class=\"abttn bttn200 dbttn\">On</a>\
<a class=\"abttn bttn200\" href=\"!AZ\" \
onClick=\"return doIt(this,null)\">Off</a>\
<a class=\"abttn bttn300\" href=\"!AZ\" \
onClick=\"doIt(this,null)\">Flush</a>";
*vecptr++ = ADMIN_CONTROL_LOG_CLOSE;
*vecptr++ = ADMIN_CONTROL_LOG_FLUSH;
}
else
{
*vecptr++ =
"<a class=\"abttn bttn200\" href=\"!AZ\" \
onClick=\"return doIt(this,null)\">On</a>\
<a class=\"abttn bttn200 dbttn\">Off</a>\
<a class=\"abttn bttn300 dbttn\">Flush</a>";
*vecptr++ = ADMIN_CONTROL_LOG_OPEN;
}
/* cache control menu items */
if (CacheEnabled)
{
*vecptr++ =
"<a class=\"abttn bttn200 dbttn\">On</a>\
<a class=\"abttn bttn200\" href=\"!AZ\" \
onClick=\"return doIt(this,null)\">Off</a>\
<a class=\"abttn bttn300\" href=\"!AZ\" \
onClick=\"doIt(this,null)\">Purge</a>";
*vecptr++ = ADMIN_CONTROL_CACHE_OFF;
*vecptr++ = ADMIN_CONTROL_CACHE_PURGE;
}
else
{
*vecptr++ =
"<a class=\"abttn bttn200\" href=\"!AZ\" \
onClick=\"return doIt(this,null)\">On</a>\
<a class=\"abttn bttn200 dbttn\">Off</a>\
<a class=\"abttn bttn300 dbttn\">Flush</a>";
*vecptr++ = ADMIN_CONTROL_CACHE_ON;
}
/* proxy control */
if (ProxyServiceCount())
{
*vecptr++ =
"<a class=\"abttn bttn400\" href=\"!AZ\" \
onClick=\"return doIt(this,\'proxy/adjust\')\">Adjust</a>\
<a class=\"abttn bttn400\" href=\"!AZ\" \
onClick=\"return doIt(this,\'zero/proxy\')\">Zero</a>";
*vecptr++ = ADMIN_CONTROL_PROXY_ADJUST;
*vecptr++ = ADMIN_CONTROL_ZERO_PROXY;
}
else
*vecptr++ =
"<a class=\"abttn bttn400 dbttn\">Adjust</a>\
<a class=\"abttn bttn400 dbttn\">Zero</a>";
InstanceMutexLock (INSTANCE_MUTEX_HTTPD);
InstanceStartupMax = HttpdGblSecPtr->InstanceStartupMax;
InstanceMutexUnLock (INSTANCE_MUTEX_HTTPD);
if (!InstanceStartupMax)
{
*vecptr++ =
"<a class=\"abttn bttn290\" href=\"!AZ/max\" \
onClick=\"return doIt(this,null)\">Max</a>";
*vecptr++ = ADMIN_CONTROL_INSTANCE;
}
else
*vecptr++ = "<a class=\"abttn bttn290 dbttn\">Max</a>";
if (InstanceStartupMax != INSTANCE_PER_CPU)
{
*vecptr++ =
"<a class=\"abttn bttn290\" href=\"!AZ/cpu\" \
onClick=\"return doIt(this,null)\">CPU</a>";
*vecptr++ = ADMIN_CONTROL_INSTANCE;
}
else
*vecptr++ = "<a class=\"abttn bttn290 dbttn\">CPU</a>";
FaoCheck (sizeof(FaoVector), &FaoVector, vecptr, FI_LI);
status = FaolToNet (rqptr, BeginPageFao, &FaoVector);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
for (cnt = 1; cnt <= INSTANCE_MAX; cnt++)
{
vecptr = FaoVector;
if (cnt == InstanceStartupMax)
{
*vecptr++ = cnt;
status = FaolToNet (rqptr,
"<a class=\"abttn bttn090 dbttn\">!UL</a>",
&FaoVector);
}
else
{
*vecptr++ = ADMIN_CONTROL_INSTANCE;
*vecptr++ = cnt;
status = FaolToNet (rqptr,
"<a class=\"abttn bttn090\" href=\"!AZ/!UL\" \
onClick=\"return doIt(this,null)\">!-!UL</a>",
&FaoVector);
}
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
if (cnt == 2) FaolToNet (rqptr, "<br>\n", NULL);
}
vecptr = FaoVector;
/* instance active/pass control menu items */
if (InstanceNodeCurrent == 1)
{
*vecptr++ =
"<a class=\"abttn bttn400 dbttn\">Active</a>\
<a class=\"abttn bttn400 dbttn\">Passive</a>";
}
else
if (NetInstancePassive)
{
*vecptr++ =
"<a class=\"abttn bttn400\" href=\"!AZ\" \
onClick=\"return doIt(this,\'active\')\">Active</a>\
<a class=\"abttn bttn400 dbttn\">Passive</a>";
*vecptr++ = ADMIN_CONTROL_INSTANCE_ACTIVE;
}
else
{
*vecptr++ =
"<a class=\"abttn bttn400 dbttn\">Active</a>\
<a class=\"abttn bttn400\" href=\"!AZ\" \
onClick=\"return doIt(this,\'passive\')\">Passive</a>";
*vecptr++ = ADMIN_CONTROL_INSTANCE_PASSIVE;
}
status = FaolToNet (rqptr, EndInstanceFao, &FaoVector);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
InstanceStatusAdminReport (rqptr);
status = FaoToNet (rqptr, EndPageFao, AdminRefresh());
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
if (NodeInstancePtr) VmFree (NodeInstancePtr, FI_LI);
if (ClusterInstancePtr) VmFree (ClusterInstancePtr, FI_LI);
rqptr->rqResponse.PreExpired = PRE_EXPIRE_ADMIN;
ResponseHeader200 (rqptr, "text/html", &rqptr->NetWriteBufferDsc);
AdminEnd (rqptr);
}
/*****************************************************************************/
/*
Provide a menu of HTTPd per-service administration functions.
*/
void AdminVirtualServerMenu (REQUEST_STRUCT *rqptr)
{
char BeginPageFao [] =
"!AZ\
<html>\n\
<head>\n\
!AZ\
<title>WASD !AZ ... Virtual Server Administration</title>\n\
</head>\n\
!AZ\n\
<h2><nobr>WASD !AZ</nobr></h2>\n\
<h3>Virtual Server Administration</h3>\n\
<p>\n\
\
<table class=\"rghtlft\">\n\
<tr><td>\n\
\
<table class=\"rghtlft\">\n\
\
<tr><th class=\"sbttl talft\">Time</th>\
<th>Local: </th><td>!20&W</td></tr>\n\
<tr><th colspan=\"2\">Universal:</th><td>!AZ (!AZ)</td></tr>\n\
<tr><th colspan=\"2\">System-Up:</th><td>!%D</td></tr>\n\
<tr><th></th></tr>\n\
\
<tr>\n\
<th class=\"sbttl\" colspan=\"2\">Authentication HTA:</th>\n\
<td>[<a href=\"!AZ\">Access</a>]</td>\n\
</tr>\n\
<tr>\n\
<th colspan=\"2\">HTL:</th>\n\
<td>[<a href=\"!AZ\">Access</a>]</td>\n\
</tr>\n\
<tr>\n\
<th colspan=\"2\">Cache:</th>\n\
<td>[<a href=\"!AZ\">Purge</a>]</td>\n\
</tr>\n\
\
</table>\n\
\
</td></tr>\n\
</table>\n\
\
</form>\n\
\
</div>\n\
</body>\n\
</html>\n";
static unsigned long LibDeltaHours = LIB$K_DELTA_HOURS;
static unsigned long Pid = 0;
static int64 Time64,
JpiLoginTime64,
SystemUpTime64;
static VMS_ITEM_LIST3 JpiItems [] =
{
{ sizeof(JpiLoginTime64), JPI$_LOGINTIM, &JpiLoginTime64, 0 },
{0,0,0,0}
};
int status;
unsigned short Length;
unsigned long *vecptr;
unsigned long FaoVector [32];
IO_SB IOsb;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER,
"AdminVirtualServerMenu()");
status = sys$getjpiw (EfnWait, &Pid, 0, &JpiItems, &IOsb, 0, 0);
if (VMSok (status)) status = IOsb.Status;
if (VMSnok (status))
{
rqptr->rqResponse.ErrorTextPtr = "sys$getjpiw()";
ErrorVmsStatus (rqptr, status, FI_LI);
AdminEnd (rqptr);
return;
}
sys$gettim (&Time64);
SystemUpTime64 = SysInfo.BootTime64 - Time64;
vecptr = FaoVector;
*vecptr++ = WASD_DOCTYPE;
*vecptr++ = HtmlMetaInfo (rqptr, NULL);
*vecptr++ = ServerHostPort;
*vecptr++ = ADMIN_BODY_TAG;
*vecptr++ = ServerHostPort;
*vecptr++ = &rqptr->rqTime.BeginTime64;
*vecptr++ = rqptr->rqTime.GmDateTime;
*vecptr++ = TimeGmtString;
*vecptr++ = &SystemUpTime64;
*vecptr++ = ADMIN_VS_REVISE_HTA;
*vecptr++ = ADMIN_VS_REVISE_HTL;
*vecptr++ = ADMIN_VS_CONTROL_AUTH_PURGE;
FaoCheck (sizeof(FaoVector), &FaoVector, vecptr, FI_LI);
status = FaolToNet (rqptr, BeginPageFao, &FaoVector);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
rqptr->rqResponse.PreExpired = PRE_EXPIRE_ADMIN;
ResponseHeader200 (rqptr, "text/html", &rqptr->NetWriteBufferDsc);
AdminEnd (rqptr);
}
/*****************************************************************************/
/*
The 'InstanceList' comprises a string containing instance process names in the
format 'node::WASD:port' (e.g. DELTA::WASD:80") separated by newlines (the
string is generated by InstanceLockList()). Parse this list using the process
names to interogate locks taken out by each process to contain their
per-instance administration IP address and port. Use this information to
return a count of how many such ports are available.
*/
int AdminMenuInstanceCount
(
REQUEST_STRUCT *rqptr,
char *InstanceList
)
{
int status,
AdminPortCount;
char ch;
char *cptr, *sptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER,
"AdminMenuInstanceCount() !&Z", InstanceList);
AdminPortCount = 0;
cptr = InstanceList;
while (*cptr)
{
sptr = cptr;
while (*cptr && *cptr != '\n') cptr++;
ch = *cptr;
if (*cptr) *cptr = '\0';
status = InstanceSocketForAdmin (sptr, NULL);
if (VMSok (status)) AdminPortCount++;
if (*cptr = ch) cptr++;
}
return (AdminPortCount);
}
/*****************************************************************************/
/*
The 'InstanceList' comprises a string containing instance process names in the
format 'node::WASD:port' (e.g. DELTA::WASD:80") separated by newlines (the
string is generated by InstanceLockList()). Parse this list using the process
names to interogate locks taken out by each process to contain their
per-instance administration IP address and port. Use this information to
generate links to each of the instances.
*/
void AdminMenuInstanceList
(
REQUEST_STRUCT *rqptr,
char *InstanceList
)
{
BOOL InsrancePassive;
int status;
unsigned short IpPort;
unsigned long *vecptr;
unsigned long FaoVector [16];
char ch;
char *aptr, *cptr, *sptr, *zptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER,
"AdminMenuInstanceList() !&Z", InstanceList);
cptr = InstanceList;
while (*cptr)
{
sptr = cptr;
while (*cptr && *cptr != '\n') cptr++;
ch = *cptr;
if (*cptr) *cptr = '\0';
vecptr = FaoVector;
status = InstanceSocketForAdmin (sptr, &IpPort);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
aptr = "";
if (NetInstancePassive)
{
/* node::prcnam */
for (zptr = sptr; *zptr != ':'; zptr++);
if (*zptr)
{
*zptr = '\0';
if (!strcmp (sptr, SysInfo.NodeName))
{
if (InstanceNodeSupervisor &&
!strcmp (zptr+2, HttpdProcess.PrcNam))
aptr = " <i>active</i>";
else
aptr = " <i>passive</i>";
}
*zptr = ':';
}
}
if (IpPort)
{
*vecptr++ = "<a href=\"!AZ//!#AZ:!UL!AZ\">!AZ</a>!AZ<br>\n";
*vecptr++ = rqptr->ServicePtr->RequestSchemeNamePtr;
*vecptr++ = strchr(sptr,':') - sptr;
*vecptr++ = sptr;
*vecptr++ = IpPort;
*vecptr++ = rqptr->rqHeader.PathInfoPtr;
}
else
*vecptr++ = "!AZ!AZ<br>\n";
*vecptr++ = sptr;
*vecptr++ = aptr;
FaoCheck (sizeof(FaoVector), &FaoVector, vecptr, FI_LI);
status = FaolToNet (rqptr, "!&@", &FaoVector);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
if (*cptr = ch) cptr++;
}
}
/*****************************************************************************/
/*
Return report on the HTTPd server's activities.
*/
void AdminReportServerStats (REQUEST_STRUCT *rqptr)
{
/* ALTPRI and SETPRI synonyms? */
#define IMAG_PRIV_0_ALLOWED \
(~(PRV$M_ALTPRI | PRV$M_CMKRNL | PRV$M_DETACH | PRV$M_OPER | \
PRV$M_PRMGBL | PRV$M_PRMMBX | PRV$M_SHMEM | PRV$M_SYSGBL | \
PRV$M_SYSNAM | PRV$M_SYSLCK | PRV$M_SYSPRV | PRV$M_PSWAPM | \
PRV$M_WORLD))
#define IMAG_PRIV_1_ALLOWED (~(0x40 /* PRV$M_SECURITY */))
/*
VAX VMS does not seem to like "!@UQ" and must be made "!@UJ"!!!
The VAX version not supporting this doesn't seem to be documented,
but at run-time returns a %X00000014 status (%SYSTEM-F-BADPARAM).
Implication: VAX version can only report a maximum of 2^32-1 bytes, or
4,294,967,295 before overflow, AXP 2^64-1 (calculator gave an ERROR :^)
*/
static char BeginPageFao [] =
"<p><table class=\"ctgry\">\n\
<tr><th class=\"ctttl\">Environment!AZ</th></tr>\n\
<tr><td>\n\
<table class=\"rghtlft\">\n\
<tr><th>Version:</th><td>!AZ</td></tr>\n\
<tr><th>Build:</th><td>!AZ</td></tr>\n\
<tr><th>SSL:</th><td>!AZ</td></tr>\n\
!&@\
<tr><th>TCP/IP:</th><td>!AZ</td></tr>\n\
<tr><th>System:</th>\
<td>!AZ with !UL CPU!%s and !AZ running VMS !AZ</td></tr>\n\
<tr><th>Startup:</th><td>!&;AZ</td></tr>\n\
<tr><th style=\"font-size:85%;\">!#AZ:</th><td>!&;AZ</td></tr>\n\
</table>\n\
</td></tr>\n\
</table>\n\
\
<p><table class=\"ctgry\">\n\
<tr><th class=\"ctttl\">Instances</th></tr>\n\
<tr><td>\n\
<table class=\"lftlft\">\n\
<tr><th><u>Node</u></th><th><u>Cluster</u></th></tr>\n\
<tr><td>!AZ</td><td>!AZ</td></tr>\n\
<tr><td colspan=\"2\">!AZ</td></tr>\n\
</table>\n\
</td></tr>\n\
</table>\n\
\
<p><table class=\"ctgry\">\n\
<tr><th class=\"ctttl\">!&?Server\rInstance\r Process</th></td></tr>\n\
<tr><td>\n\
<table class=\"rghtlft\">\n\
<tr>\
<th>Name:</th><td>!AZ</td>\
<th>PID:</th><td><a href=\"!AZ?pid=!8XL!&@\">!8XL</a></td>\
<th>User:</th><td>!AZ</td>\
</tr>\n\
<tr>\
<th>AuthPriv:</th><td>!AZ</td>\
<th>ImagPriv:</th><td>!AZ</td>\
<th>CurPriv:</th><td>!AZ</td>\
</tr>\n\
<tr>\
<th><nobr>Last Exit:</nobr></th><td>!AZ</td>\
<th><nobr>Exit Time:</nobr></th><td><nobr>!AZ</nobr></td>\
<th><nobr>Exit PID:</nobr></th><td>!AZ</td>\
</tr>\n\
<tr>\
<th>Image:</th><td>!%D</td>\
<th>Process:</th><td>!%D</td>\
<th>CPU:</th><td>!UL !2ZL:!2ZL:!2ZL.!2ZL</td>\n\
</tr>\n\
<tr>\
<th>Pg.Faults:</th><td>!UL</td>\n\
<th>Startup:</th><td>!UL</td>\
<th>Mode:</th><td>!AZ</td>\
</tr>\n\
<tr>\
<th>WsSize:</th><td>!UL (!ULMB)</td>\
<th>WsPeak:</th><td>!UL (!ULMB)</td>\n\
<th>VirtPeak:</th><td>!UL (!ULMB)</td>\
</tr>\n\
<tr>\
<th>AST:</th><td>!UL / !UL (!UL%)</td>\
<th>BIO:</th><td>!UL / !UL (!UL%)</td>\
<th>BYT:</th><td>!UL / !UL (!UL%)</td>\
</tr>\n\
<tr>\
<th>DIO:</th><td>!UL / !UL (!UL%)</td>\
<th>ENQ:</th><td>!UL / !UL (!UL%)</td>\
<th>FIL:</th><td>!UL / !UL (!UL%)</td>\
</tr>\n\
<tr>\
<th>PGFL:</th><td style=\"max-width:13em;font-size:90%;\">\
!UL / !UL (!UL/!ULMB !UL%)</td>\
<th>PRC:</th><td>!&@</td>\
<th>TQ:</th><td>!UL / !UL (!UL%)</td>\n\
</tr>\n\
<tr><th>Input:</th>\
<td colspan=\"3\"><font size=\"-1\">!&@</font></td></tr>\n\
<tr><th>Output:</th>\
<td colspan=\"3\"><font size=\"-1\">!&@</font></td></tr>\n\
!&@\
</table>\n\
</td></tr>\n\
</table>\n\
\
<p><table class=\"ctgry\">\n\
<tr><th class=\"ctttl\">System Resources</th></tr>\n\
<tr><td>\n\
<table class=\"rghtlft\">\n\
<tr><td></td><td style=\"font-size:90%;\"><b>GBLPAGES</b></td>\
<td style=\"font-size:90%;\"><b>GBLSECTIONS</b></td></tr>\n\
<tr><th>Temporary:</th><td>!UL</td><td>!UL</td></tr>\n\
<tr><th>Permanent:</th><td>!UL</td><td>!UL</td></tr>\n\
<tr><th>Total:</th><td>!UL</td><td>!UL</td></tr>\n\
</table>\n\
</td></tr>\n\
</table>\n";
static char StatisticsFao [] =
"<style type=\"text/css\">\n\
table.request th { padding-top:0; padding-bottom:0; }\n\
table.request td { padding-top:0; padding-bottom:0; }\n\
</style>\n\
<p><table class=\"ctgry request\">\n\
<tr><th class=\"ctttl\">Request Processing</th></tr>\n\
<tr><td>\n\
<table class=\"rghtlft\">\n\
<tr><td>\n\
\
<table>\n\
<tr><th class=\"sbttl\">Connection</th></tr>\n\
<tr><th>Total:</th><td>!&L</td></tr>\n\
<tr><th>Current:</th><td>!&L</td></tr>\n\
<tr><th>Peak:</th><td>!&L</td></tr>\n\
<tr><th>Busy:</th><td>!&L</td></tr>\n\
<tr><th>HTTP2 /Total:</th>\
<td>!&L</td><td>(!UL%)</td></tr>\n\
<tr><th>/Current:</th>\
<td>!&L</td><td>(!UL%)</td></tr>\n\
<tr><th>/Peak:</th><td>!&L</td></tr>\n\
<tr><th>Persistent /Current:</th><td>!&L</td></tr>\n\
<tr><th>/Peak:</th><td>!&L</td></tr>\n\
<tr><th>IPv4:</th><td>!&L</td><td>(!UL%)</td></tr>\n\
<tr><th>IPv6:</th><td>!&L</td><td>(!UL%)</td></tr>\n\
<tr><th>SSL:</th><td>!&L</td><td>(!UL%)</td></tr>\n\
<tr><th>Total /Rx:</th><td colspan=\"2\">!&,@SQ</td></tr>\n\
<tr><th>/Tx:</th><td colspan=\"2\">!&,@SQ</td></tr>\n\
<tr><th>Error /Rx:</th><td>!&L</td></tr>\n\
<tr><th>/Tx:</th><td>!&L</td></tr>\n\
\
</table>\n\
\
</td><td>\n\
\
<table>\n\
<tr><th class=\"sbttl\">Request</th></tr>\n\
<tr><th>Total:</th><td>!&L</td></tr>\n\
<tr><th>Current:</th><td>!&L</td></tr>\n\
<tr><th>Peak:</th><td>!&L</td></tr>\n\
<tr><th>Busy:</th><td>!&L</td></tr>\n\
<tr><th>HTTP2 /Total:</th>\
<td>!&L</td><td>(!UL%)</td></tr>\n\
<tr><th>/Current:</th>\
<td>!&L</td><td>(!UL%)</td></tr>\n\
<tr><th>/Peak:</th><td>!&L</td></tr>\n\
<tr><th>WebSocket /Current:</th><td>!&L</td></tr>\n\
<tr><th>/Total:</th><td>!&L</td></tr>\n\
<tr><th>Raw /Current:</th><td>!&L</td>\
<td>(!UL%)</td></tr>\n\
<tr><th>/Total:</th><td>!&L</td><td>(!UL%)</td></tr>\n\
<tr><th>SSL:</th>\
<td>!&L</td><td>(!UL%)</td></tr>\n\
<tr><th>Throttle /Queued:</th><td>!&L</td></tr>\n\
<tr><th>/Processing:</th><td>!&L</td></tr>\n\
<tr><th>/Busy:</th><td>!UL%</td></tr>\n\
<tr><th>Persistent /Total:</th><td>!&L</td></tr>\n\
<tr><th>/Max:</th><td>!&L</td></tr>\n\
<tr><th>Pipeline /Total:</th><td>!&L</td></tr>\n\
<tr><th>/Max:</th><td>!&L</td>\
<td>!#AZ</td></tr>\n\
\
</table>\n\
\
</td><td rowspan=\"3\">\n\
<table>\n\
<tr><th class=\"sbttl\">HTTP</th></tr>\n\
<tr><th>2:</th><td>!&L</td><td>(!UL%)</td></tr>\n\
<tr><th>1.1:</th><td>!&L</td><td>(!UL%)</td></tr>\n\
<tr><th>1.0:</th><td>!&L</td><td>(!UL%)</td></tr>\n\
<tr><th>0.9:</th><td>!&L</td><td>(!UL%)</td></tr>\n\
<tr><td> </td></tr>\n\
\
<tr><th class=\"sbttl\">Method</th></tr>\n\
<tr><th>CONNECT:</th><td>!&L</td></tr>\n\
<tr><th>COPY:</th><td>!&L</td></tr>\n\
<tr><th>DELETE:</th><td>!&L</td></tr>\n\
<tr><th>GET:</th><td>!&L</td></tr>\n\
<tr><th>HEAD:</th><td>!&L</td></tr>\n\
<tr><th>LOCK:</th><td>!&L</td></tr>\n\
<tr><th>MKCOL:</th><td>!&L</td></tr>\n\
<tr><th>MOVE:</th><td>!&L</td></tr>\n\
<tr><th>OPTIONS:</th><td>!&L</td></tr>\n\
<tr><th>POST:</th><td>!&L</td></tr>\n\
<tr><th>PROPFIND:</th><td>!&L</td></tr>\n\
<tr><th>PROPPATCH:</th>\
<td>!&L</td></tr>\n\
<tr><th>PUT:</th><td>!&L</td></tr>\n\
<tr><th>TRACE:</th><td>!&L</td></tr>\n\
<tr><th>UNLOCK:</th><td>!&L</td></tr>\n\
<tr><th>Extension:</th><td>!&L</td></tr>\n\
<tr><th>(SSH):</th><td>!&L</td></tr>\n\
</table>\n\
</td></tr>\n\
\
<tr><td style=\"margin-top:0.5em;\"></td></tr>\n\
<tr><td colspan=\"2\">\n\
<table cellpadding=\"0\" cellspacing=\"5\" border=\"0\">\n\
\
<tr><td>\n\
\
<table>\n\
<tr><th colspan=\"10\" class=\"sbttl\" style=\"text-align:center;\">\
Response Status</th></tr>\n\
<tr>\
<th>1nn:</th><td>!&L</td>\
<th> 2nn:</th><td>!&L</td>\
<th> 3nn:</th><td>!&L</td>\
<th> 4nn:</th><td>!&L</td>\
<th> 5nn:</th><td>!&L</td>\
</tr>\n\
<tr></tr>\n\
<tr>\
<th>100:</th><td>!&L</td>\
<th>200:</th><td>!&L</td>\
<th>300:</th><td>!&L</td>\
<th>400:</th><td>!&L</td>\
<th>500:</th><td>!&L</td>\
</tr>\n\
<tr>\
<th>101:</th><td>!&L</td>\
<th>201:</th><td>!&L</td>\
<th>301:</th><td>!&L</td>\
<th>401:</th><td>!&L</td>\
<th>501:</th><td>!&L</td>\
</tr>\n\
<tr>\
<th>102:</th><td>!&L</td>\
<th>202:</th><td>!&L</td>\
<th>302:</th><td>!&L</td>\
<th>402:</th><td>!&L</td>\
<th>502:</th><td>!&L</td>\
</tr>\n\
<tr>\
<td colspan=\"2\"></td>\
<th>203:</th><td>!&L</td>\
<th>303:</th><td>!&L</td>\
<th>403:</th><td>!&L</td>\
<th>503:</th><td>!&L</td>\
</tr>\n\
<tr>\
<td colspan=\"2\"></td>\
<th>204:</th><td>!&L</td>\
<th>304:</th><td>!&L</td>\
<th>404:</th><td>!&L</td>\
<th>504:</th><td>!&L</td>\
</tr>\n\
<tr>\
<td colspan=\"2\"></td>\
<th>205:</th><td>!&L</td>\
<th>305:</th><td>!&L</td>\
<th>405:</th><td>!&L</td>\
<th>505:</th><td>!&L</td>\
</tr>\n\
<tr>\
<td colspan=\"2\"></td>\
<th>206:</th><td>!&L</td>\
<th>306:</th><td>!&L</td>\
<th>406:</th><td>!&L</td>\
</tr>\n\
<tr>\
<td colspan=\"2\"></td>\
<th>207:</th><td>!&L</td>\
<th>307:</th><td>!&L</td>\
<th>407:</th><td>!&L</td>\
<th>507:</th><td>!&L</td>\
</tr>\n\
<tr>\
<td colspan=\"6\"></td>\
<th>408:</th><td>!&L</td>\
</tr>\n<tr>\
<td colspan=\"4\"></td>\
<th>409:</th><td>!&L</td>\
<th>410:</th><td>!&L</td>\
<th>411:</th><td>!&L</td>\
</tr>\n<tr>\
<td colspan=\"4\"></td>\
<th>412:</th><td>!&L</td>\
<th>413:</th><td>!&L</td>\
<th>414:</th><td>!&L</td>\
</tr>\n<tr>\
<td colspan=\"4\"></td>\
<th>415:</th><td>!&L</td>\
<th>416:</th><td>!&L</td>\
<th>417:</th><td>!&L</td>\
</tr>\n<tr>\
<td colspan=\"4\"></td>\
<th>418:</th><td>!&L</td>\
<th>421:</th><td>!&L</td>\
<th>422:</th><td>!&L</td>\
</tr>\n<tr>\
<td colspan=\"4\"></td>\
<th>423:</th><td>!&L</td>\
<th>424:</th><td>!&L</td>\
</tr>\n<tr>\
<th>000:</th><td>!&L</td>\
<th>???:</th><td>!&L</td>\
</tr>\n\
</table>\n\
\
</td><td> </td><td>\n\
\
<table>\n\
<tr><th class=\"sbttl\" style=\"text-decoration:none;\">\
<sup>*</sup><u>Duration</u></th><td></td></tr>\n\
<tr><th>Min:</th><td colspan=\"2\">!AZ</td></tr>\n\
<tr><th>Max:</th><td colspan=\"2\">!AZ</td></tr>\n\
<tr><th>Ave:</th><td colspan=\"2\">!AZ</td></tr>\n\
<tr><th>Total:</th><td colspan=\"2\">!AZ</td></tr>\n\
\
<tr><td> </td></tr>\n\
\
<tr><th class=\"sbttl\" style=\"text-decoration:none;\">\
<sup>*</sup><u>Bytes/Second</u></th><td></td></tr>\n\
<tr><th>Min /Bps:</th><td>!&L</td></tr>\n\
<tr><th>/Bytes:</th><td>!&,@SQ</td></tr>\n\
<tr><th>/Duration:</th><td>!AZ</td></tr>\n\
<tr><th>Max /Bps:</th><td>!&L</td></tr>\n\
<tr><th>/Bytes:</th><td>!&,@SQ</td></tr>\n\
<tr><th>/Duration:</th><td>!AZ</td></tr>\n\
<tr><th>Ave /Bps:</th><td>!&L</td></tr>\n\
<tr><th>/Bytes:</th><td>!&L</td></tr>\n\
<tr><th>/Duration:</th><td>!AZ</td></tr>\n\
<tr><td colspan=\"2\" style=\"font-size:90%;\">\
<sup>*</sup><i>excludes WebSocket and<br> \
Proxy-Tunnel requests</i></td></tr>\n\
</table>\n\
\
</td></tr>\n\
\
</table>\n\
</td></tr>\n\
</table>\n\
</td></tr>\n\
</table>\n\
\
<p><table class=\"ctgry\">\n\
<tr><th class=\"ctttl\">Processing Modules</th></tr>\n\
<tr><td>\n\
<table class=\"rghtlft\">\n\
<tr><td>\n\
<table class=\"rghtlft\">\n\
<tr><th>Admin:</th><td>!&L</td></tr>\n\
<tr><th>Cache /Load:</th><td>!&L</td></tr>\n\
<tr><th>/Hit:</th><td>!&L</td></tr>\n\
<tr><th>/304:</th><td>!&L</td></tr>\n\
<tr><th>Directory:</th><td>!&L</td></tr>\n\
<tr><th>File /All:</th><td>!&L</td></tr>\n\
<tr><th>/304:</th><td>!&L</td></tr>\n\
<tr><th>Put:</th><td>!&L</td></tr>\n\
<tr><th>Proxy:</th><td>!&L</td></tr>\n\
<tr><th>SSI:</th><td>!&L</td></tr>\n\
<tr><th>Update:</th><td>!&L</td></tr>\n\
<tr><th>WebDAV:</th><td>!&L</td></tr>\n\
<tr><th>WebSocket:</th><td>!&L</td></tr>\n\
<tr><th></th></tr>\n\
<tr><th><i>none</i>:</th><td>!&L</td></tr>\n\
</table>\n\
</td><td>\n\
<table class=\"rghtlft\">\n\
<tr><th class=\"sbttl\">DCL</th></tr>\n\
<tr><td colspan=\"2\"> <b>As:</b> !AZ</td></tr>\n\
<tr><th>CGI:</th><td>!&L</td></tr>\n\
<tr><th>CGIplus /All:</th><td>!&L</td></tr>\n\
<tr><th>/Reused:</th><td>!&L</td></tr>\n\
<tr><th>RTE /All:</th><td>!&L</td></tr>\n\
<tr><th>/Reused:</th><td>!&L</td></tr>\n\
<tr><th>Autoscript:</th><td>!&L</td></tr>\n\
<tr><th>CLI:</th><td>!&L</td></tr>\n\
<tr><th>Proctor:</th><td>!&L</td></tr>\n\
<tr><th>WebSocket:</th><td>!&L</td></tr>\n\
<tr><th>$CREPRC:</th><td>!&L</td></tr>\n\
<tr><th> $PERSONA!&?_MACRO\r\r /All:</th><td>!&L</td></tr>\n\
<tr><th>/Default:</th><td>!&L</td></tr>\n\
<tr><th>/Invalid:</th><td>!&L</td><td></td></tr>\n\
<tr><th>/Privileged:</th><td>!&L</td></tr>\n\
<tr><th>$FORCEX:</th><td>!&L</td></tr>\n\
<tr><th>$DELPRC:</th><td>!&L</td></tr>\n\
</table>\n\
\
</td><td>\n\
<table class=\"rghtlft\">\n\
<tr><th class=\"sbttl\">DECnet</th></tr>\n\
<tr><td colspan=\"2\"> <b>As:</b> !AZ</td></tr>\n\
<tr><th>Connect /All:</th><td>!&L</td></tr>\n\
<tr><th>/Reused:</th><td>!&L</td></tr>\n\
<tr><th>CGI:</th><td>!&L</td></tr>\n\
<tr><th>OSU:</th><td>!&L</td></tr>\n\
</table>\n\
</td></tr>\n\
\
</table>\n\
</td></tr>\n\
</table>\n";
static char GzipFao [] =
"<p><table class=\"ctgry\">\n\
<tr><th class=\"ctttl\">Gzip Encoding!&?\r - DISABLED\r</th></tr>\n\
<tr><td>\n\
<table class=\"rghtrght\">\n\
<tr><th></th>\
<th class=\"sbttl\">Count</th>\
<th class=\"sbttl\">Of Total</th>\
<th class=\"sbttl\">Bytes In</th>\
<th class=\"sbttl\">Bytes Out</th>\
<th class=\"sbttl\">Ratio</th>\
</tr>\n\
<tr><th>Deflate:</th>\
<td>!&L</td>\
<td>!UL%</td>\
<td>!&,@SQ</td>\
<td>!&,@SQ</td>\
<td>!UL%</td>\
</tr>\n\
<tr><th>Inflate:</th>\
<td>!&L</td>\
<td>!UL%</td>\
<td>!&,@SQ</td>\
<td>!&,@SQ</td>\
<td>!UL%</td>\
</tr>\n\
<tr><th>Total Tx:</th>\
<td>!&L</td>\
<td>100%</td>\
<td>!&,@SQ</td>\
<td>!&,@SQ</td>\
<td>!UL%</td>\
</tr>\n\
</table>\n\
</td></tr>\n\
</table>\n";
static char LookupFao [] =
"<p><table class=\"ctgry\">\n\
<tr><th class=\"ctttl\">Host Resolution</th></tr>\n\
<tr><td>\n\
<table class=\"rghtrght\">\n\
<tr><th></th>\
<th class=\"sbttl\">Literal</th>\
<th class=\"sbttl talft\" colspan=\"2\">DNS</th>\
<th class=\"sbttl\">Cache</th>\
<th class=\"sbttl\">Error</th>\
</tr>\n\
<tr><th>Address:</th>\
<td>!&L</td>\
<td></td>\
<td></td>\
<td></td>\
<td>!&L</td>\
</tr>\n\
<tr><th>Address-to-name:</th>\
<td></td>\
<td>!&L</td>\
<td class=\"talft\">(!UL%)</td>\
<td>!&L</td>\
<td>!&L</td>\
</tr>\n\
<tr><th>Name-to-address:</th>\
<td></td>\
<td>!&L</td>\
<td class=\"talft\">(!UL%)</td>\
<td>!&L</td>\
<td>!&L</td>\
</tr>\n\
</table>\n\
</td></tr>\n\
</table>\n";
static char OtherFao [] =
"<p><table class=\"ctgry\">\n\
<tr><th class=\"ctttl\">Other</th></tr>\n\
<tr><td>\n\
<table class=\"rghtlft\">\n\
<tr><th>Statistics Zeroed:</th><td>!&L</td></tr>\n\
!AZ\
<tr><th>Alignment Fault:</th><td>!&L</td></tr>\n\
<tr><th>Path Alert:</th><td>!&L</td></tr>\n\
<tr><th>NCS Conversion:</th>\
<td>!&L / !&L</td></tr>\n\
<tr><th>StreamLF File Conversion:</th>\
<td>!&L</td></tr>\n\
<tr><th>Errors Noticed:</th>\
<td>!&L</td><td>!&@!&@!AZ</td></tr>\n\
<tr><th>$HIBER spurious wake:</th>\
<td>!&L</td></tr>\n\
</table>\n\
</td></tr>\n\
</table>\n\
\
</div>\n\
</body>\n\
</html>\n";
static char SysPrvWarning[] = "<font color=\"#ff0000\">SYSPRV</font>";
static char PrivWarning[] = "<font color=\"#ff0000\">WARNING</font>";
static char PrivExpected[] = "as expected";
static char JpiPrcNam [16],
JpiUserName [13],
LastExitPid [13],
LastExitStatus [16],
LastExitTime [21];
static unsigned short SyiClusterNodes;
static unsigned long JpiAstCnt,
JpiBioCnt,
JpiBytCnt,
JpiCpuTime,
JpiDioCnt,
JpiEnqCnt,
JpiFilCnt,
JpiPageFlts,
JpiPagFilCnt,
JpiPid,
JpiPrcCnt,
JpiTqCnt,
JpiVirtPeak,
JpiWsSize,
JpiWsPeak,
Pid;
static unsigned long JpiAuthPriv [2],
JpiCurPriv [2],
JpiImagPriv [2];
static int64 Time64,
ImageUpTime64,
JpiLoginTime64,
ProcessUpTime64;
static $DESCRIPTOR (LastExitPidDsc, LastExitPid);
static $DESCRIPTOR (LastExitStatusDsc, LastExitStatus);
static $DESCRIPTOR (LastExitPidFaoDsc, "!8XL\0");
static $DESCRIPTOR (LastExitStatusFaoDsc, "%X!XL\0");
static $DESCRIPTOR (LastExitTimeDsc, LastExitTime);
static $DESCRIPTOR (LastExitTimeFaoDsc, "!20%D\0");
static VMS_ITEM_LIST3 JpiItems [] =
{
{ sizeof(JpiAstCnt), JPI$_ASTCNT, &JpiAstCnt, 0 },
{ sizeof(JpiAuthPriv), JPI$_AUTHPRIV, &JpiAuthPriv, 0 },
{ sizeof(JpiBioCnt), JPI$_BIOCNT, &JpiBioCnt, 0 },
{ sizeof(JpiBytCnt), JPI$_BYTCNT, &JpiBytCnt, 0 },
{ sizeof(JpiCpuTime), JPI$_CPUTIM, &JpiCpuTime, 0 },
{ sizeof(JpiCurPriv), JPI$_CURPRIV, &JpiCurPriv, 0 },
{ sizeof(JpiDioCnt), JPI$_DIOCNT, &JpiDioCnt, 0 },
{ sizeof(JpiEnqCnt), JPI$_ENQCNT, &JpiEnqCnt, 0 },
{ sizeof(JpiFilCnt), JPI$_FILCNT, &JpiFilCnt, 0 },
{ sizeof(JpiImagPriv), JPI$_IMAGPRIV, &JpiImagPriv, 0 },
{ sizeof(JpiLoginTime64), JPI$_LOGINTIM, &JpiLoginTime64, 0 },
{ sizeof(JpiPageFlts), JPI$_PAGEFLTS, &JpiPageFlts, 0 },
{ sizeof(JpiPagFilCnt), JPI$_PAGFILCNT, &JpiPagFilCnt, 0 },
{ sizeof(JpiPid), JPI$_PID, &JpiPid, 0 },
{ sizeof(JpiPrcCnt), JPI$_PRCCNT, &JpiPrcCnt, 0 },
{ sizeof(JpiPrcNam), JPI$_PRCNAM, &JpiPrcNam, 0 },
{ sizeof(JpiTqCnt), JPI$_TQCNT, &JpiTqCnt, 0 },
{ sizeof(JpiUserName), JPI$_USERNAME, &JpiUserName, 0 },
{ sizeof(JpiVirtPeak), JPI$_VIRTPEAK, &JpiVirtPeak, 0 },
{ sizeof(JpiWsSize), JPI$_WSSIZE, &JpiWsSize, 0 },
{ sizeof(JpiWsPeak), JPI$_WSPEAK, &JpiWsPeak, 0 },
{0,0,0,0}
};
static VMS_ITEM_LIST3 SyiItem [] =
{
{ sizeof(SyiClusterNodes), SYI$_CLUSTER_NODES, &SyiClusterNodes, 0 },
{ 0,0,0,0 }
};
int64 bytes64;
int cnt, idx, status, total,
ConnectTotalCount,
GzipDeflatePercent,
GzipInflatePercent,
MatchPercent,
RequestHttpCount,
StringTotal,
TotalCount;
unsigned int bit;
unsigned long Remainder,
Seconds,
SubSeconds;
unsigned long *vecptr;
unsigned long FaoVector [180];
char *cptr, *sptr,
*AuthPrivPtr,
*CurPrivPtr,
*ImagPrivPtr,
*ClusterInstancePtr,
*NodeInstancePtr,
*SesolaVersionPtr;
char EnvNumber [16];
IO_SB IOsb;
ODS_STRUCT WasdRootOds;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER,
"AdminReportServerStats()");
SesolaVersionPtr = SesolaVersion (false);
status = sys$getjpiw (EfnWait, &Pid, 0, &JpiItems, &IOsb, 0, 0);
if (VMSok (status)) status = IOsb.Status;
if (VMSnok (status))
{
rqptr->rqResponse.ErrorTextPtr = "sys$getjpiw()";
ErrorVmsStatus (rqptr, status, FI_LI);
AdminEnd (rqptr);
return;
}
status = sys$getsyiw (EfnWait, 0, 0, &SyiItem, &IOsb, 0, 0);
if (VMSok (status)) status = IOsb.Status;
if (VMSnok (status))
{
rqptr->rqResponse.ErrorTextPtr = "sys$getsyiw()";
ErrorVmsStatus (rqptr, status, FI_LI);
AdminEnd (rqptr);
return;
}
InstanceLockList (INSTANCE_NODE_SUPERVISOR, "<br>", &NodeInstancePtr);
InstanceLockList (INSTANCE_CLUSTER, "<br>", &ClusterInstancePtr);
JpiUserName[12] = '\0';
for (cptr = JpiUserName; *cptr && *cptr != ' '; cptr++);
*cptr = '\0';
JpiPrcNam[15] = '\0';
for (cptr = JpiPrcNam; *cptr && *cptr != ' '; cptr++);
*cptr = '\0';
sys$gettim (&Time64);
ImageUpTime64 = HttpdStartTime64 - Time64;
ProcessUpTime64 = JpiLoginTime64 - Time64;
if ((JpiAuthPriv[0] & ~(PRV$M_NETMBX | PRV$M_TMPMBX)) || JpiAuthPriv[1])
AuthPrivPtr = PrivWarning;
else
AuthPrivPtr = PrivExpected;
if ((JpiImagPriv[0] & IMAG_PRIV_0_ALLOWED) ||
(JpiImagPriv[1] & IMAG_PRIV_1_ALLOWED))
ImagPrivPtr = PrivWarning;
else
ImagPrivPtr = PrivExpected;
if (OperateWithSysPrv)
{
if ((JpiCurPriv[0] & ~(PRV$M_NETMBX | PRV$M_TMPMBX | PRV$M_SYSPRV)) ||
JpiCurPriv[1])
CurPrivPtr = PrivWarning;
else
CurPrivPtr = SysPrvWarning;
}
else
if ((JpiCurPriv[0] & ~(PRV$M_NETMBX | PRV$M_TMPMBX)) || JpiCurPriv[1])
CurPrivPtr = PrivWarning;
else
CurPrivPtr = PrivExpected;
AdminPageTitle (rqptr, "Server Statistics");
InstanceMutexLock (INSTANCE_MUTEX_HTTPD);
ConnectTotalCount = acptr->ConnectCount[HTTP12];
if (acptr->LastExitStatus)
sys$fao (&LastExitStatusFaoDsc, 0, &LastExitStatusDsc,
acptr->LastExitStatus);
else
strcpy (LastExitStatus, "<i>(none)</i>");
if (acptr->LastExitTime64)
sys$fao (&LastExitTimeFaoDsc, 0, &LastExitTimeDsc,
&acptr->LastExitTime64);
else
strcpy (LastExitTime, "<i>(none)</i>");
if (acptr->LastExitPid)
sys$fao (&LastExitPidFaoDsc, 0, &LastExitPidDsc, acptr->LastExitPid);
else
strcpy (LastExitPid, "<i>(none)</i>");
/***************/
/* environment */
/***************/
vecptr = FaoVector;
if (InstanceEnvNumber > 1)
sprintf (*vecptr++ = EnvNumber, " %d", InstanceEnvNumber);
else
*vecptr++ = "";
*vecptr++ = SoftwareID;
*vecptr++ = BuildInfo;
if (SesolaVersionPtr[0])
*vecptr++ = SesolaVersionPtr;
else
*vecptr++ = "<i>(none)</i>";
if (Config.cfMisc.GzipResponseCompLevel)
{
*vecptr++ = "<tr><th>ZLIB:</th><td>!&@</td></tr>\n";
if (VMSok(GzipFindImageStatus))
{
*vecptr++ = "!AZ V!AZ";
*vecptr++ = GzipZlibNamePtr;
*vecptr++ = GzipZlibVersionPtr;
}
else
if (GzipFindImageStatus == RMS$_FNF)
*vecptr++ = "%HTTPD-W-GZIP, shareable image not found";
else
{
*vecptr++ = "!AZ %!&M";
*vecptr++ = GzipZlibNamePtr;
*vecptr++ = GzipFindImageStatus;
}
}
else
*vecptr++ = "";
*vecptr++ = TcpIpAgentInfo;
*vecptr++ = SysInfo.HwName;
*vecptr++ = SysInfo.AvailCpuCnt;
*vecptr++ = SysInfo.MemoryMBGB;
*vecptr++ = SysInfo.Version;
*vecptr++ = CommandLine;
cptr = v10orPrev10(CONFIG_WASD_ROOT,-1);
OdsStructInit (&WasdRootOds, true);
OdsParse (&WasdRootOds, cptr, strlen(cptr), NULL, 0,
NAM$M_NOCONCEAL | NAM$M_SYNCHK, 0, 0);
sptr = strstr (WasdRootOds.ExpFileName, ".][000000]");
if (sptr) SET2(sptr,']\0');
*vecptr++ = strchr(cptr,':') - cptr;
*vecptr++ = cptr;
*vecptr++ = WasdRootOds.ExpFileName;
/*************/
/* instances */
/*************/
*vecptr++ = NodeInstancePtr;
if (SyiClusterNodes > 1)
*vecptr++ = ClusterInstancePtr;
else
*vecptr++ = "<i>(n/a)</i>";
if (HttpdGblSecPtr->InstancePassive)
*vecptr++ = "Node instances are currently PASSIVE.";
else
*vecptr++ = "Node instances are currently ACTIVE.";
/***********/
/* process */
/***********/
*vecptr++ = (InstanceNodeCurrent <= 1);
*vecptr++ = JpiPrcNam;
*vecptr++ = ADMIN_REPORT_SHOW_PROCESS;
*vecptr++ = JpiPid;
if (DclPersonaServicesAvailable ||
HttpdScriptAsUserName[0])
{
*vecptr++ = "&puser=!AZ";
*vecptr++ = (unsigned long)JpiUserName;
}
else
*vecptr++ = "";
*vecptr++ = JpiPid;
*vecptr++ = (unsigned long)JpiUserName;
*vecptr++ = AuthPrivPtr;
*vecptr++ = ImagPrivPtr;
*vecptr++ = CurPrivPtr;
*vecptr++ = LastExitStatus;
*vecptr++ = LastExitTime;
*vecptr++ = LastExitPid;
*vecptr++ = &ImageUpTime64;
*vecptr++ = &ProcessUpTime64;
*vecptr++ = JpiCpuTime / 8640000; /* CPU day */
*vecptr++ = (JpiCpuTime % 8640000) / 360000; /* CPU hour */
*vecptr++ = (JpiCpuTime % 360000) / 6000; /* CPU minute */
*vecptr++ = (JpiCpuTime % 6000 ) / 100; /* CPU second */
*vecptr++ = JpiCpuTime % 100; /* CPU 10 milliseconds */
*vecptr++ = JpiPageFlts;
*vecptr++ = acptr->StartupCount;
*vecptr++ = HttpdProcess.ModeName;
*vecptr++ = JpiWsSize;
*vecptr++ = JpiWsSize * 512 / 1048576,
*vecptr++ = JpiWsPeak;
*vecptr++ = JpiWsPeak * 512 / 1048576,
*vecptr++ = JpiVirtPeak;
*vecptr++ = JpiVirtPeak * 512 / 1048576,
*vecptr++ = JpiAstCnt;
*vecptr++ = HttpdProcess.AstLm;
*vecptr++ = 100 - PercentOf32(JpiAstCnt,HttpdProcess.AstLm);
*vecptr++ = JpiBioCnt;
*vecptr++ = HttpdProcess.BioLm;
*vecptr++ = 100 - PercentOf32(JpiBioCnt,HttpdProcess.BioLm);
*vecptr++ = JpiBytCnt;
*vecptr++ = HttpdProcess.BytLm;
*vecptr++ = 100 - PercentOf32(JpiBytCnt,HttpdProcess.BytLm);
*vecptr++ = JpiDioCnt;
*vecptr++ = HttpdProcess.DioLm;
*vecptr++ = 100 - PercentOf32(JpiDioCnt,HttpdProcess.DioLm);
*vecptr++ = JpiEnqCnt;
*vecptr++ = HttpdProcess.EnqLm;
*vecptr++ = 100 - PercentOf32(JpiEnqCnt,HttpdProcess.EnqLm);
*vecptr++ = JpiFilCnt;
*vecptr++ = HttpdProcess.FilLm;
*vecptr++ = 100 - PercentOf32(JpiFilCnt,HttpdProcess.FilLm);
*vecptr++ = JpiPagFilCnt;
*vecptr++ = HttpdProcess.PgFlQuo;
*vecptr++ = JpiPagFilCnt * 512 / 1048576;
*vecptr++ = HttpdProcess.PgFlQuo * 512 / 1048576;
*vecptr++ = 100 - PercentOf32(JpiPagFilCnt,HttpdProcess.PgFlQuo);
if (DclScriptDetachProcess)
*vecptr++ = "(detached)";
else
{
*vecptr++ = "!&L / !&L (!UL%)";
*vecptr++ = HttpdProcess.PrcLm - JpiPrcCnt;
*vecptr++ = HttpdProcess.PrcLm;
*vecptr++ = 100 - PercentOf32(HttpdProcess.PrcLm-JpiPrcCnt,
HttpdProcess.PrcLm);
}
*vecptr++ = JpiTqCnt;
*vecptr++ = HttpdProcess.TqLm;
*vecptr++ = 100 - PercentOf32(JpiTqCnt,HttpdProcess.TqLm);
if (HttpdProcess.SysInputFile)
{
*vecptr++ = "<a href=\"!AZ\">!AZ</a>";
*vecptr++ = ADMIN_REPORT_PROCESS_INPUT;
}
*vecptr++ = HttpdProcess.SysInput;
if (HttpdProcess.SysOutputFile)
{
*vecptr++ = "<a href=\"!AZ\">!AZ</a>";
*vecptr++ = ADMIN_REPORT_PROCESS_OUTPUT;
}
*vecptr++ = HttpdProcess.SysOutput;
InstanceMutexUnLock (INSTANCE_MUTEX_HTTPD);
if (cptr = SysTrnLnm (WASTEE_LOGFILE))
{
*vecptr++ = "<tr><th>WAStee:</th><td colspan=\"3\">\
<font size=\"-1\"><a href=\"!AZ\">!AZ</a></font></td></tr>\n";
*vecptr++ = ADMIN_REPORT_WASTEE;
*vecptr++ = cptr;
}
else
*vecptr++ = "";
*vecptr++ = GblPageCount;
*vecptr++ = GblSectionCount;
*vecptr++ = GblPagePermCount;
*vecptr++ = GblSectionPermCount;
*vecptr++ = GblPageCount + GblPagePermCount;
*vecptr++ = GblSectionCount + GblSectionPermCount;
FaoCheck (sizeof(FaoVector), &FaoVector, vecptr, FI_LI);
status = FaolToNet (rqptr, BeginPageFao, &FaoVector);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
/************/
/* services */
/************/
NetServiceReportStats (rqptr);
/**************/
/* statistics */
/**************/
InstanceMutexLock (INSTANCE_MUTEX_HTTPD);
vecptr = FaoVector;
/* connections */
*vecptr++ = acptr->ConnectCount[HTTP12];
*vecptr++ = acptr->CurrentConnected[HTTP12];
*vecptr++ = acptr->ConnectPeak[HTTP12];
*vecptr++ = acptr->ConnectTooBusyCount;
*vecptr++ = acptr->ConnectCount[HTTP2];
*vecptr++ = PercentOf32(acptr->ConnectCount[HTTP2],
acptr->ConnectCount[HTTP12]);
*vecptr++ = acptr->CurrentConnected[HTTP2];
*vecptr++ = PercentOf32(acptr->CurrentConnected[HTTP2],
acptr->CurrentConnected[HTTP12]);
*vecptr++ = acptr->ConnectPeak[HTTP2];
*vecptr++ = acptr->CurrentHttp1Persistent;
*vecptr++ = acptr->ConnectPeakPersistent;
*vecptr++ = acptr->ConnectIpv4Count;
*vecptr++ = PercentOf32(acptr->ConnectIpv4Count,
acptr->ConnectCount[HTTP12]);
*vecptr++ = acptr->ConnectIpv6Count;
*vecptr++ = PercentOf32(acptr->ConnectIpv6Count,
acptr->ConnectCount[HTTP12]);
*vecptr++ = acptr->ConnectSSLCount;
*vecptr++ = PercentOf32(acptr->ConnectSSLCount,
acptr->ConnectCount[HTTP12]);
*vecptr++ = &acptr->BytesRawRx64;
*vecptr++ = &acptr->BytesRawTx64;
*vecptr++ = acptr->NetReadErrorCount;
*vecptr++ = acptr->NetWriteErrorCount;
/* requests */
*vecptr++ = acptr->ProcessingTotalCount[HTTP12];
*vecptr++ = acptr->CurrentProcessing[HTTP12];
*vecptr++ = acptr->ProcessingPeak[HTTP12];
*vecptr++ = acptr->ProcessingTooBusyCount;
*vecptr++ = acptr->ProcessingTotalCount[HTTP2];
*vecptr++ = PercentOf32(acptr->ProcessingTotalCount[HTTP2],
acptr->ProcessingTotalCount[HTTP12]);
*vecptr++ = acptr->CurrentProcessing[HTTP2];
*vecptr++ = PercentOf32(acptr->CurrentProcessing[HTTP2],
acptr->CurrentProcessing[HTTP12]);
*vecptr++ = acptr->ProcessingPeak[HTTP2];
for (total = cnt = 0; cnt <= InstanceNodeCurrent; cnt++)
total += acptr->CurrentWebSockets[cnt];
*vecptr++ = total;
StringTotal = total;
*vecptr++ = acptr->WebSocketCount;
for (total = cnt = 0; cnt <= InstanceNodeCurrent; cnt++)
total += acptr->CurrentWebSocketsRaw[cnt];
*vecptr++ = total;
*vecptr++ = PercentOf32(StringTotal,total);
*vecptr++ = acptr->WebSocketRawCount;
*vecptr++ = PercentOf32(acptr->WebSocketCount,acptr->WebSocketRawCount);
*vecptr++ = acptr->RequestSSLCount;
*vecptr++ = PercentOf32(acptr->RequestSSLCount,
acptr->ProcessingTotalCount[HTTP12]);
for (total = cnt = 0; cnt <= InstanceNodeCurrent; cnt++)
total += acptr->CurrentThrottleQueued[cnt];
*vecptr++ = total;
for (total = cnt = 0; cnt <= InstanceNodeCurrent; cnt++)
total += acptr->CurrentThrottleProcessing[cnt];
*vecptr++ = total;
*vecptr++ = acptr->ThrottleBusyMetric;
*vecptr++ = acptr->RequestPersistentCount;
*vecptr++ = acptr->RequestPersistentMax;
*vecptr++ = acptr->PipelineRequestCount;
*vecptr++ = acptr->PipelineRequestMax;
/* force it to the left because of the following 'duration' width */
if (ConnectTotalCount < 10)
*vecptr++ = 36;
else
if (ConnectTotalCount < 100)
*vecptr++ = 30;
else
if (ConnectTotalCount < 1000)
*vecptr++ = 24;
else
if (ConnectTotalCount < 10000)
*vecptr++ = 18;
else
if (ConnectTotalCount < 100000)
*vecptr++ = 12;
else
if (ConnectTotalCount < 1000000)
*vecptr++ = 6;
else
*vecptr++ = 0;
*vecptr++ = " ";
/* HTTP versions */
RequestHttpCount = acptr->RequestHttp2Count +
acptr->RequestHttp11Count +
acptr->RequestHttp10Count +
acptr->RequestHttp09Count;
*vecptr++ = acptr->RequestHttp2Count;
*vecptr++ = PercentOf32 (acptr->RequestHttp2Count, RequestHttpCount);
*vecptr++ = acptr->RequestHttp11Count;
*vecptr++ = PercentOf32 (acptr->RequestHttp11Count, RequestHttpCount);
*vecptr++ = acptr->RequestHttp10Count;
*vecptr++ = PercentOf32 (acptr->RequestHttp10Count, RequestHttpCount);
*vecptr++ = acptr->RequestHttp09Count;
*vecptr++ = PercentOf32 (acptr->RequestHttp09Count, RequestHttpCount);
/* HTTP methods */
*vecptr++ = acptr->MethodConnectCount;
*vecptr++ = acptr->MethodWebDavCopyCount;
*vecptr++ = acptr->MethodDeleteCount;
*vecptr++ = acptr->MethodGetCount;
*vecptr++ = acptr->MethodHeadCount;
*vecptr++ = acptr->MethodWebDavLockCount;
*vecptr++ = acptr->MethodWebDavMkColCount;
*vecptr++ = acptr->MethodWebDavMoveCount;
*vecptr++ = acptr->MethodOptionsCount;
*vecptr++ = acptr->MethodPostCount;
*vecptr++ = acptr->MethodWebDavPropFindCount;
*vecptr++ = acptr->MethodWebDavPropPatchCount;
*vecptr++ = acptr->MethodPutCount;
*vecptr++ = acptr->MethodTraceCount;
*vecptr++ = acptr->MethodWebDavUnLockCount;
*vecptr++ = acptr->MethodExtensionCount;
*vecptr++ = acptr->MethodSshCount;
/* responses */
*vecptr++ = acptr->ResponseStatusCodeGroup[1];
*vecptr++ = acptr->ResponseStatusCodeGroup[2];
*vecptr++ = acptr->ResponseStatusCodeGroup[3];
*vecptr++ = acptr->ResponseStatusCodeGroup[4];
*vecptr++ = acptr->ResponseStatusCodeGroup[5];
/* see ResponseHttpStatusCode() for making sense of this array */
#define RHSI(n) RequestHttpStatusIndex(n)
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(100)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(200)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(300)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(400)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(500)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(101)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(201)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(301)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(401)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(501)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(102)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(202)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(302)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(402)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(502)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(203)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(303)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(403)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(503)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(204)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(304)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(404)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(504)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(205)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(305)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(405)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(505)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(206)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(306)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(406)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(207)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(307)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(407)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(507)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(408)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(409)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(410)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(411)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(412)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(413)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(414)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(415)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(416)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(417)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(418)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(421)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(422)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(423)];
*vecptr++ = acptr->ResponseStatusCodeCount[RHSI(424)];
*vecptr++ = acptr->ResponseStatusCodeGroup[0]; /* 000 */
*vecptr++ = acptr->ResponseStatusCodeCount[0]; /* ??? */
#undef RHSI
/* response duration */
/* without this kludge we get %CC-W-ALIGNCONFLICT */
bytes64 = acptr->ResponseDurationMin64[HTTP12];
*vecptr++ = DurationString (rqptr, &bytes64);
bytes64 = acptr->ResponseDurationMax64[HTTP12];
*vecptr++ = DurationString (rqptr, &bytes64);
bytes64 = acptr->ResponseDuration64[HTTP12];
*vecptr++ = AverageDurationString (rqptr, &bytes64,
acptr->ResponseDurationCount[HTTP12]);
bytes64 = acptr->ResponseDuration64[HTTP12];
*vecptr++ = DurationString (rqptr, &bytes64);
/* bytes per second */
*vecptr++ = acptr->BytesPerSecondMin[HTTP12];
*vecptr++ = &acptr->BytesPerSecondMinBytes64[HTTP12];
bytes64 = acptr->BytesPerSecondMinDuration64[HTTP12];
*vecptr++ = DurationString (rqptr, &bytes64);
*vecptr++ = acptr->BytesPerSecondMax[HTTP12];
*vecptr++ = &acptr->BytesPerSecondMaxBytes64[HTTP12];
bytes64 = acptr->BytesPerSecondMaxDuration64[HTTP12];
*vecptr++ = DurationString (rqptr, &bytes64);
*vecptr++ = acptr->BytesPerSecondAve[HTTP12];
*vecptr++ = (ulong)((float)acptr->BytesPerSecondRawTotal64[HTTP12] /
(float)(acptr->RequestHttp2Count +
acptr->RequestHttp11Count +
acptr->RequestHttp10Count));
bytes64 = acptr->ResponseDuration64[HTTP12];
*vecptr++ = DurationString (rqptr, &bytes64);
/* modules */
*vecptr++ = acptr->DoServerAdminCount;
*vecptr++ = acptr->CacheLoadCount;
*vecptr++ = acptr->CacheHitCount;
*vecptr++ = acptr->CacheHitNotModifiedCount;
*vecptr++ = acptr->DoDirectoryCount;
*vecptr++ = acptr->DoFileCount;
*vecptr++ = acptr->DoFileNotModifiedCount;
*vecptr++ = acptr->DoPutCount;
*vecptr++ = acptr->DoProxyCount;
*vecptr++ = acptr->DoSsiCount;
*vecptr++ = acptr->DoUpdateCount;
*vecptr++ = acptr->DoWebDavCount;
*vecptr++ = acptr->DoWebSockCount;
*vecptr++ = acptr->DoNoModuleCount;
if (HttpdScriptAsUserName[0])
*vecptr++ = HttpdScriptAsUserName;
else
*vecptr++ = HttpdProcess.UserName;
*vecptr++ = acptr->DoScriptCount;
*vecptr++ = acptr->DoCgiPlusScriptCount;
*vecptr++ = acptr->DclCgiPlusReusedCount;
*vecptr++ = acptr->DoRteScriptCount;
*vecptr++ = acptr->DclRteReusedCount;
*vecptr++ = acptr->DoAutoScriptCount;
*vecptr++ = acptr->DoDclCommandCount;
*vecptr++ = acptr->DclProctorCount;
*vecptr++ = acptr->DclWebSocketCount;
*vecptr++ = acptr->DclCrePrcCount;
*vecptr++ = PersonaMacro;
*vecptr++ = acptr->DclCrePrcPersonaCount;
*vecptr++ = acptr->DclCrePrcPersonaDefaultCount;
*vecptr++ = acptr->DclCrePrcPersonaInvUserCount;
*vecptr++ = acptr->DclCrePrcPersonaPrvUserCount;
*vecptr++ = acptr->DclForceXCount;
*vecptr++ = acptr->DclDelPrcCount;
if (HttpdScriptAsUserName[0])
*vecptr++ = HttpdScriptAsUserName;
else
*vecptr++ = HttpdProcess.UserName;
*vecptr++ = acptr->DoDECnetCount;
*vecptr++ = acptr->DoDECnetCount -
acptr->DoDECnetCgiCount -
acptr->DoDECnetOsuCount;
*vecptr++ = acptr->DoDECnetCgiCount;
*vecptr++ = acptr->DoDECnetOsuCount;
InstanceMutexUnLock (INSTANCE_MUTEX_HTTPD);
FaoCheck (sizeof(FaoVector), &FaoVector, vecptr, FI_LI);
status = FaolToNet (rqptr, StatisticsFao, &FaoVector);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
InstanceMutexLock (INSTANCE_MUTEX_HTTPD);
if (Config.cfMisc.GzipResponseCompLevel)
{
/* GZIP compression (if enabled) */
vecptr = FaoVector;
*vecptr++ = GzipAvailable;
*vecptr++ = acptr->GzipDeflateCount;
*vecptr++ = PercentOf32 (acptr->GzipDeflateCount,
acptr->ProcessingTotalCount[HTTP12]);
*vecptr++ = &acptr->GzipDeflateBytesIn64;
*vecptr++ = &acptr->GzipDeflateBytesOut64;
*vecptr++ = PercentOf64 (&acptr->GzipDeflateBytesOut64,
&acptr->GzipDeflateBytesIn64);
*vecptr++ = acptr->GzipInflateCount;
*vecptr++ = PercentOf32 (acptr->GzipInflateCount,
acptr->ProcessingTotalCount[HTTP12]);
*vecptr++ = &acptr->GzipInflateBytesIn64;
*vecptr++ = &acptr->GzipInflateBytesOut64;
*vecptr++ = PercentOf64 (&acptr->GzipInflateBytesIn64,
&acptr->GzipInflateBytesOut64);
bytes64 = acptr->BytesRawTx64[HTTP12] +
(acptr->GzipDeflateBytesIn64 -
acptr->GzipDeflateBytesOut64);
*vecptr++ = acptr->ProcessingTotalCount[HTTP12];
*vecptr++ = &bytes64;
*vecptr++ = &acptr->BytesRawTx64[HTTP12];
*vecptr++ = PercentOf64 (&acptr->BytesRawTx64[HTTP12], &bytes64);
FaoCheck (sizeof(FaoVector), &FaoVector, vecptr, FI_LI);
status = FaolToNet (rqptr, GzipFao, &FaoVector);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
}
/* lookup */
vecptr = FaoVector;
*vecptr++ = acptr->LookupLiteralCount;
*vecptr++ = acptr->LookupLiteralErrorCount;
*vecptr++ = acptr->LookupDnsAddressCount;
*vecptr++ = PercentOf32 (acptr->LookupDnsAddressCount,
acptr->LookupDnsAddressCount +
acptr->LookupCacheAddressCount);
*vecptr++ = acptr->LookupCacheAddressCount;
*vecptr++ = acptr->LookupDnsAddressErrorCount;
*vecptr++ = acptr->LookupDnsNameCount;
*vecptr++ = PercentOf32 (acptr->LookupDnsNameCount,
acptr->LookupDnsNameCount +
acptr->LookupCacheNameCount);
*vecptr++ = acptr->LookupCacheNameCount;
*vecptr++ = acptr->LookupDnsNameErrorCount;
FaoCheck (sizeof(FaoVector), &FaoVector, vecptr, FI_LI);
status = FaolToNet (rqptr, LookupFao, &FaoVector);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
/* other */
vecptr = FaoVector;
*vecptr++ = acptr->ZeroedCount;
#if ODS_DIRECT
*vecptr++ = OdsDirectReport (rqptr);
#else
*vecptr++ = "";
#endif
*vecptr++ = HttpdAlignFaultCount;
*vecptr++ = acptr->PathAlertCount;
*vecptr++ = acptr->NcsCount;
*vecptr++ = acptr->NcsConvertCount;
*vecptr++ = acptr->StreamLfConversionCount;
*vecptr++ = acptr->ErrorsNoticedCount;
if (acptr->ErrorsNoticedCount)
{
*vecptr++ = "(!20%D";
*vecptr++ = &acptr->ErrorsNoticedTime64;
if (HttpdProcess.SysOutputFile)
{
*vecptr++ = ", see <a href=\"!AZ\">Log</a>";
*vecptr++ = ADMIN_REPORT_PROCESS_OUTPUT;
}
else
*vecptr++ = "";
*vecptr++ = ")";
}
else
{
*vecptr++ = "";
*vecptr++ = "";
*vecptr++ = "";
}
*vecptr++ = acptr->SpuriousWakeCount;
InstanceMutexUnLock (INSTANCE_MUTEX_HTTPD);
FaoCheck (sizeof(FaoVector), &FaoVector, vecptr, FI_LI);
status = FaolToNet (rqptr, OtherFao, &FaoVector);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
VmFree (NodeInstancePtr, FI_LI);
VmFree (ClusterInstancePtr, FI_LI);
rqptr->rqResponse.PreExpired = PRE_EXPIRE_ADMIN;
ResponseHeader200 (rqptr, "text/html", &rqptr->NetWriteBufferDsc);
AdminEnd (rqptr);
}
/*****************************************************************************/
/*
Get the file module to output the server process log.
*/
void AdminServerProcessInput (REQUEST_STRUCT *rqptr)
{
int status;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER, "AdminServerProcessInput()");
if (!HttpdProcess.SysInputFile)
{
rqptr->rqResponse.HttpStatus = 500;
ErrorGeneral (rqptr, HttpdProcess.SysInput, FI_LI);
AdminEnd (rqptr);
return;
}
rqptr->rqResponse.PreExpired = PRE_EXPIRE_ADMIN;
ResponseHeader200 (rqptr, "text/plain", NULL);
FileSetCacheAllowed (rqptr, false);
FileSetAuthorizePath (rqptr, false);
FileBegin (rqptr, &AdminEnd, NULL, NULL,
HttpdProcess.SysInput, "text/plain");
}
/*****************************************************************************/
/*
Get the file module to output the server process log.
*/
void AdminServerProcessOutput (REQUEST_STRUCT *rqptr)
{
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER,
"AdminServerProcessOutput()");
if (!HttpdProcess.SysOutputFile)
{
rqptr->rqResponse.HttpStatus = 500;
ErrorGeneral (rqptr, HttpdProcess.SysOutput, FI_LI);
AdminEnd (rqptr);
return;
}
/* Q&D flush SYS$OUTPUT */
fsync (STDOUT_FILENO);
rqptr->rqResponse.PreExpired = PRE_EXPIRE_ADMIN;
ResponseHeader200 (rqptr, "text/plain", NULL);
FileSetCacheAllowed (rqptr, false);
FileSetAuthorizePath (rqptr, false);
FileBegin (rqptr, &AdminEnd, NULL, NULL,
HttpdProcess.SysOutput, "text/plain");
}
/*****************************************************************************/
/*
List the process logs (directory index) or output a specific log file.
*/
void AdminServerProcessOutputPlus (REQUEST_STRUCT *rqptr)
{
int sizeofPlus = sizeof(ADMIN_REPORT_PROCESS_OUTPUT_PLUS)-1;
char *cptr, *pinptr, *sptr, *zptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER,
"AdminServerProcessOutputPlus()");
/* Q&D flush SYS$OUTPUT */
fsync (STDOUT_FILENO);
rqptr->rqResponse.PreExpired = PRE_EXPIRE_ADMIN;
zptr = (sptr = rqptr->RequestMappedFile) +
sizeof(rqptr->RequestMappedFile)-1;
for (cptr = "WASD_ROOT:[LOG_SERVER]"; *cptr; *sptr++ = *cptr++);
*sptr = '\0';
for (cptr = pinptr = rqptr->rqHeader.PathInfoPtr; *cptr; cptr++);
if ((cptr - pinptr) > sizeofPlus)
{
FileSetCacheAllowed (rqptr, false);
FileSetAuthorizePath (rqptr, false);
for (cptr = pinptr + sizeofPlus; *cptr && sptr < zptr; *sptr++ = *cptr++);
*sptr = '\0';
FileBegin (rqptr, &AdminEnd, NULL, NULL,
rqptr->RequestMappedFile, "text/plain");
}
else
DirBegin (rqptr, &AdminEnd, rqptr->RequestMappedFile,
"httpd=index&these=*.log&delimit=footer&readme=no", "", false);
}
/*****************************************************************************/
/*
See WASD_ROOT:[SRC.UTILS]WASTEE.C for background.
*/
void AdminReportWAStee (REQUEST_STRUCT *rqptr)
{
int len;
char *sptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER, "AdminReportWAStee()");
if (!(sptr = SysTrnLnm (WASTEE_LOGFILE)))
{
rqptr->rqResponse.HttpStatus = 500;
ErrorGeneral (rqptr, "WASTEE_LOGFILE", FI_LI);
AdminEnd (rqptr);
return;
}
rqptr->rqResponse.PreExpired = PRE_EXPIRE_ADMIN;
ResponseHeader200 (rqptr, "text/plain", NULL);
FileSetCacheAllowed (rqptr, false);
FileSetAuthorizePath (rqptr, false);
FileBegin (rqptr, &AdminEnd, NULL, NULL, sptr, "text/plain");
}
/*****************************************************************************/
/*
Provide administration menu/report page titles. Will accept a small number of
variable arguments to provide text following the titles themselves.
*/
int AdminPageTitle
(
REQUEST_STRUCT *rqptr,
char *Title,
...
)
{
static char PageTitleFao [] =
"!AZ\
<html>\n\
<head>\n\
!AZ\
!AZ\
!&@\
<title>WASD !AZ ... !AZ</title>\n\
</head>\n\
!AZ\n\
<div class=\"wasd\">\n\
<h2><nobr>WASD !AZ</nobr></h2>\n\
<h3>!AZ!&@</h3>\n\
!20&W\n\
!&@";
int argcnt, status;
unsigned long *vecptr;
unsigned long FaoVector [32+16];
va_list argptr;
/*********/
/* begin */
/*********/
va_count (argcnt);
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER,
"AdminPageTitle() !UL !&Z", argcnt, Title);
if (argcnt > 32+4)
{
ErrorNoticed (rqptr, SS$_OVRMAXARG, NULL, FI_LI);
return (SS$_OVRMAXARG);
}
vecptr = FaoVector;
*vecptr++ = WASD_DOCTYPE;
*vecptr++ = HtmlMetaInfo (rqptr, NULL);
*vecptr++ = AdminWasdCss ();
if (rqptr->rqPathSet.StyleSheetPtr)
{
*vecptr++ = "<link rel=\"stylesheet\" type=\"text/css\" href=\"!AZ\">\n";
*vecptr++ = rqptr->rqPathSet.StyleSheetPtr;
}
else
*vecptr++ = "";
*vecptr++ = ServerHostPort;
*vecptr++ = Title;
*vecptr++ = ADMIN_BODY_TAG;
*vecptr++ = ServerHostPort;
*vecptr++ = Title;
if (InstanceNodeCurrent > 1)
{
if (rqptr->ServicePtr->AdminService)
*vecptr++ = " - !AZ";
else
*vecptr++ = " (!AZ)";
*vecptr++ = HttpdProcess.PrcNam;
}
else
*vecptr++ = "";
*vecptr++ = &rqptr->rqTime.BeginTime64;
if (argcnt > 2)
{
va_start (argptr, Title);
for (argcnt -= 2; argcnt; argcnt--)
*vecptr++ = va_arg (argptr, unsigned long);
va_end (argptr);
}
else
*vecptr++ = "";
FaoCheck (sizeof(FaoVector), &FaoVector, vecptr, FI_LI);
status = FaolToNet (rqptr, PageTitleFao, &FaoVector);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
return (status);
}
/*****************************************************************************/
/*
Provide a list of problems reported during a meta-config load in standard
admininistration menu/report format.
*/
void AdminMetaConReport
(
REQUEST_STRUCT *rqptr,
META_CONFIG *mcptr,
META_CONFIG *MetaConStartupPtr
)
{
static char ReportFao [] =
"<p><table class=\"ctgry\">\n\
<tr><th class=\"ctttl\">\
!UL Informational, !UL Warning, \
!&?<span style=\"color:#ff0000\">\r\r!-!UL Error!%s !-!&?</span>\r\r \\
!&?At Startup\rDuring Load\r </th></tr>\n\
<tr><td><pre>!AZ</pre></td></tr>\n\
</table>\n";
int status;
unsigned long *vecptr;
unsigned long FaoVector [16];
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER, "AdminMetaConReport()");
if (!mcptr->LoadReport.ItemCount) return;
vecptr = FaoVector;
*vecptr++ = mcptr->LoadReport.InformCount;
*vecptr++ = mcptr->LoadReport.WarningCount;
*vecptr++ = mcptr->LoadReport.ErrorCount;
*vecptr++ = (mcptr == MetaConStartupPtr);
*vecptr++ = mcptr->LoadReport.TextPtr;
FaoCheck (sizeof(FaoVector), &FaoVector, vecptr, FI_LI);
status = FaolToNet (rqptr, ReportFao, &FaoVector);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
}
/*****************************************************************************/
/*
Provide a description of the source of this configuration in an administration
standard menu/report format.
*/
void AdminMetaConSource
(
REQUEST_STRUCT *rqptr,
META_CONFIG *mcptr,
META_CONFIG *MetaConStartupPtr
)
{
static char SourceFao [] =
"<p><table class=\"ctgry\">\n\
<tr><th class=\"ctttl\">Source: "!&?Server\rFile\r"</th></tr>\n\
<tr><td>\n\
<table class=\"rghtlft\">\n\
<tr><th>File:</th><td>!AZ</td>!&@</tr>\n\
<tr><th>!AZ</th><td>!20&W</td></tr>\n\
!&@\
</table>\n\
</td></tr>\n\
</table>\n";
int status;
unsigned long *vecptr;
unsigned long FaoVector [16];
char *cptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER, "AdminMetaConSource()");
vecptr = FaoVector;
*vecptr++ = (mcptr == MetaConStartupPtr);
*vecptr++ = mcptr->LoadReport.FileName;
if (mcptr->LnmCount > 1)
*vecptr++ = "<th>(search list)</th>";
else
{
*vecptr++ =
"<th style=\"padding-left:1em;\">\
<a class=\"abttn bttn400\" href=\"!AZ\">View</a></th>\
<th><a class=\"abttn bttn400\" href=\"!AZ?do=edit\">Edit</a></th>";
*vecptr++ = cptr = rqptr->rqHeader.PathInfoPtr;
*vecptr++ = cptr;
}
if (mcptr == MetaConStartupPtr)
{
*vecptr++ = "Loaded:";
*vecptr++ = &mcptr->LoadReport.LoadTime64;
}
else
{
*vecptr++ = "Revised:";
*vecptr++ = &mcptr->LoadReport.FileTime64;
}
if (mcptr->IncludeFile)
*vecptr++ =
"<tr><td colspan=\"5\" style=\"color:#ff0000; font-weight:bold; \
text-align:center\">\
Configuration derived from multiple files (e.g. [IncludeFile])</b><br>\
CAUTION: Using this interface will overwrite that!!\
</td></tr>\n";
else
*vecptr++ = "";
FaoCheck (sizeof(FaoVector), &FaoVector, vecptr, FI_LI);
status = FaolToNet (rqptr, SourceFao, &FaoVector);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
}
/*****************************************************************************/
/*
For administration menu configuration update pages provide the <form..> element
and some leading, commented-out descriptive text for the configuration file.
*/
void AdminMetaConBeginUpdateForm (REQUEST_STRUCT *rqptr)
{
static char BeginFormFao [] =
"<form method=\"POST\" action=\"!AZ\">\n\
<input type=\"hidden\" name=\"hidden$lf\" value=\"\
# Configuration: !AZ^\
# !AZ^\
# Last Modified: !20&W^\
# !AZ.\'!AZ\'@!AZ^\
\">";
int status;
unsigned long *vecptr;
unsigned long FaoVector [16];
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER,
"AdminMetaConBeginUpdateForm()");
vecptr = FaoVector;
*vecptr++ = rqptr->rqHeader.PathInfoPtr;
*vecptr++ = ServerHostPort;
*vecptr++ = SoftwareID;
*vecptr++ = &rqptr->rqTime.BeginTime64;
*vecptr++ = rqptr->RemoteUser;
*vecptr++ = rqptr->rqAuth.RealmDescrPtr;
*vecptr++ = rqptr->ClientPtr->Lookup.HostName;
FaoCheck (sizeof(FaoVector), &FaoVector, vecptr, FI_LI);
status = FaolToNet (rqptr, BeginFormFao, &FaoVector);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
}
/*****************************************************************************/
/*
For administration menu configuration update pages provide the update buttons
and the </form> tag (complements AdminMetaConEndUpdateForm()).
*/
void AdminMetaConEndUpdateForm (REQUEST_STRUCT *rqptr)
{
static char EndForm [] =
"<p><input type=\"hidden\" name=\"hidden$lf\" value=\"^^# End!!^\">\n\
<p><input type=\"submit\" value=\" Commit Changes \">\n\
<input type=reset value=\" Reset \">\n\
</form>\n";
int status;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER,
"AdminMetaConEndUpdateForm()");
status = FaolToNet (rqptr, EndForm, NULL);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
}
/*****************************************************************************/
/*
For administration menu configuration update pages provide the update buttons
and the </form> tag (complements AdminMetaConEndUpdateForm()).
*/
void AdminVirtualServiceForm
(
REQUEST_STRUCT *rqptr,
char *FormAction,
char *VirtualService,
BOOL UseServerDatabase
)
{
static char BeginFormFao [] =
"<form action=\"!AZ\">\n\
<input type=\"hidden\" name=\"server\" value=\"!&?yes\rno\r\">\n\
<select name=\"virtual\">\n\
<option!&?\r SELECT\r value=\"\">!&?none configured\rfor all services\r\n";
static char EndFormFao [] =
"</select>\n\
<input type=\"submit\" value=\" Service \">\n\
</form>\n";
int status;
unsigned long *vecptr;
unsigned long FaoVector [16];
SERVICE_STRUCT *svptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD__OTHER))
WatchThis (WATCHITM(rqptr), WATCH_MOD__OTHER,
"AdminVirtualServiceForm()");
vecptr = FaoVector;
*vecptr++ = FormAction;
*vecptr++ = UseServerDatabase;
*vecptr++ = VirtualService[0];
*vecptr++ = (ServiceList.EntryCount == 1);
FaoCheck (sizeof(FaoVector), &FaoVector, vecptr, FI_LI);
status = FaolToNet (rqptr, BeginFormFao, &FaoVector);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
if (ServiceList.EntryCount > 1)
{
LIST_ITERATE (svptr, &ServiceList)
{
vecptr = FaoVector;
*vecptr++ = svptr->ServerHostPort;
*vecptr++ = strsame (svptr->ServerHostPort, VirtualService, -1);
*vecptr++ = svptr->ServerHostPort;
FaoCheck (sizeof(FaoVector), &FaoVector, vecptr, FI_LI);
status = FaolToNet (rqptr,
"<option value=\"!AZ\"!&? SELECTED\r\r>!AZ\n",
&FaoVector);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
}
}
status = FaolToNet (rqptr, EndFormFao, NULL);
if (VMSnok (status)) ErrorNoticed (rqptr, status, NULL, FI_LI);
}
/*****************************************************************************/
/*
The admin report page using an XMLHttpRequest() generates a response that
provides an HTTP RTT (round trip time) between the client browser and server.
This RTT represents the underlying overhead for a request-response between
client and server. The request header is parsed and immediately responded to
using a standard response header. Both HTTP/1.n and HTTP/2 perform the same
underlying processing which is a stripped-down code path. These requests are
not access logged. The client (browser) calculates the RTT from
client-internal timestamps. The internal overhead (in time) can be observed
from the associated request WATCH report line "STATUS 204 (No Content) rx:60
tx:365 bytes 0.977ms 435,227 B/s". Observation shows it to be negligible.
*/
char* AdminPing (REQUEST_STRUCT *rqptr)
{
static char pingJS [] =
"var pingGO;\n\
function doPing() {\n\
var url = \'/rtt?ping\';\n\
xhr = new XMLHttpRequest();\n\
xhr.open(\'GET\', url, true);\n\
\
xhr.onload = function() {\n\
var mSecs = Date.now() - pingGO;\n\
if (mSecs < 100) \n\
var ping = mSecs + \'.0ms\';\n\
else\n\
var ping = mSecs + \'ms\';\n\
document.getElementById(\'pingRTT\').innerHTML = \
\' (\' + ping + \')\';\n\
};\n\
\
pingGO = Date.now();\n\
xhr.send();\n\
}\n\
setTimeout(doPing,200);\n";
/*********/
/* begin */
/*********/
if (!rqptr) return (pingJS);
if (WATCHING (rqptr, WATCH_CONNECT))
WatchThis (WATCHITM(rqptr), WATCH_CONNECT, "RTT PING!!");
rqptr->PersistentRequest = rqptr->PersistentResponse =
rqptr->rqPathSet.Expired = rqptr->rqPathSet.NoLog = true;
ResponseHeader (rqptr, 204, NULL, 0, NULL, NULL);
RequestEnd (rqptr);
return (NULL);
}
/*****************************************************************************/
/*
When client IP address DNS host name lookup is not enabled specifically lookup
the host name of the client accessing the Server Admin.
*/
char* AdminLookYouUp (IPADDRESS *ipaptr)
{
static BOOL InProgress;
static IPADDRESS IpAddress;
static TCPIP_HOST_LOOKUP HostLookup;
/*********/
/* begin */
/*********/
if (WATCH_MODULE(WATCH_MOD__OTHER))
WatchThis (WATCHALL, WATCH_MOD__OTHER, "AdminLookYouUp()");
if (!ipaptr)
{
/* AST call after lookup */
InProgress = false;
return (NULL);
}
if (InProgress) return (NULL);
/* if this (most recent) IP address has already been resolved */
if (IPADDRESS_IS_SAME (ipaptr, &IpAddress))
if (HostLookup.HostName[0] != '?')
return (HostLookup.HostName);
IPADDRESS_COPY (&IpAddress, ipaptr);
/* lookup the IP address from server cache */
if (VMSok (TcpIpCacheAddresstoName (&HostLookup, &IpAddress)))
if (HostLookup.HostName[0] != '?')
return (HostLookup.HostName);
/* lookup the IP address using DNS */
InProgress = true;
TcpIpAddressToName (&HostLookup, &IpAddress, 5, &AdminLookYouUp, NULL);
return (NULL);
}
/*****************************************************************************/
/*
Javascript to allow selection of a page's refresh interval.
*/
char* AdminRefresh ()
{
static char *JsRefresh =
"<div id=\"wasdRefreshDiv\" style=\"display:none;\">\n\
<p>Refresh: <select id=\"refreshInterval\" \
onfocus=\"selfoc=true\" onblur=\"selfoc=false\" \
onchange=\"selfoc=false;refreshNow()\">\n\
<option value=\"0\">none</option>\n\
<option value=\"1\">1</option>\n\
<option value=\"2\">2</option>\n\
<option value=\"5\">5</option>\n\
<option value=\"10\">10</option>\n\
<option value=\"30\">30</option>\n\
</select> Seconds\n\
<script language=\"JavaScript\">\n\
if (typeof norefresh == \'undefined\') \
document.getElementById(\"wasdRefreshDiv\").style.display = \'block\';\n\
var selfoc = false;\n\
var refint = 0;\n\
var refloc = window.location.search.search(\'refresh=\');\n\
if (refloc >= 0) refint = parseInt(window.location.search.substr(refloc+8));\n\
var selobj = document.getElementById(\'refreshInterval\');\n\
switch (refint)\n\
{\n\
case 1 : selobj.selectedIndex = 1; break;\n\
case 2 : selobj.selectedIndex = 2; break;\n\
case 5 : selobj.selectedIndex = 3; break;\n\
case 10 : selobj.selectedIndex = 4; break;\n\
case 30 : selobj.selectedIndex = 5; break;\n\
default : selobj.selectedIndex = 0;\n\
}\n\
if (refint) setTimeout(\'refreshNow();\',refint*1000);\n\
function refreshNow()\n\
{\n\
if (selfoc) return;\n\
var value = selobj.value;\n\
var href = window.location.href;\n\
var rloc = href.indexOf(\'refresh=\');\n\
if (rloc > 0)\n\
href = href.substr(0,rloc) + \'refresh=\' + value;\n\
else\n\
if (window.location.search.length > 1)\n\
href += \'&refresh=\' + value;\n\
else\n\
href += \'?refresh=\' + value;\n\
window.location.replace(href);\n\
}\n\
</script>\n\
</div>\n";
/*********/
/* begin */
/*********/
if (WATCH_MODULE(WATCH_MOD__OTHER))
WatchThis (WATCHALL, WATCH_MOD__OTHER, "AdminRefresh()");
return (JsRefresh);
}
/*****************************************************************************/
/*
CSS for WASD administration pages.
*/
char* AdminWasdCss ()
{
static char *WasdCss =
"<style type=\"text/css\">\n\
body { background-color:#ffffff; color:#000000; \
font-family:Arial,Helvetica,Sans-serif; }\n\
div.wasd { margin:1.5em 1em 1.5em 1em; }\n\
\
table { margin:0.5em 0.5em 0.5em 0; border-collapse:collapse; }\n\
td,th { padding:0.2em 0.3em 0.1em 0.3em; vertical-align:text-top; \
white-space:nowrap; }\n\
\
table.ctgry { background-color:#f8f8f8; border:1px solid #696969; }\n\
table.ctgry .ctttl { padding:0.2em; border:1px solid #696969; \
font-size:105%; }\n\
\
table.rghtlft { border-style:none; }\n\
table.rghtlft th { text-align:right; }\n\
table.rghtlft td { text-align:left; }\n\
\
table.rghtrght { border-style:none; }\n\
table.rghtrght th, table.rghtrght td { text-align:right; }\n\
\
table.lftlft { border-style:none; }\n\
table.lftlft th, table.lftlft td { text-align:left; }\n\
\
input[type=submit], input[type=reset], .abttn \
{ display:inline-block; position:relative; \
min-width:7em; margin:0.1em 0.2em 0.1em 0.2em; \
padding:0.1em 0.25em 0.1em 0.25em; \
border: 1px solid #444; border-radius:0.2em; \
background-color:#fefefe; background:linear-gradient\
(to bottom,#fefefe,#ebebeb); \
color:#222222; font-size:80%; text-align:center; text-decoration:none; \
}\n\
\
input[type=checkbox], input[type=radio] { vertical-align:text-bottom; }\n\
\
.abttn { min-width:4em; }\n\
\
.alert { display:block; font-weight:bold; font-size:110%; color:red; }\n\
\
input[type=submit]:disabled, input[type=reset]:disabled \
{ font-style:italic; }\n\
\
.bttn090 { min-width:0.9em!important; }\n\
.bttn125 { min-width:1.25em!important; }\n\
.bttn200 { min-width:2em!important; }\n\
.bttn290 { min-width:2.9em!important; }\n\
.bttn300 { min-width:3em!important; }\n\
.bttn400 { min-width:4em!important; }\n\
.bttn500 { min-width:5em!important; }\n\
.bttn600 { min-width:6em!important; }\n\
.bttn700 { min-width:7em!important; }\n\
.bttn800 { min-width:8em!important; }\n\
.dbttn { color:#585858; border:1px dotted black; }\n\
\
.alnk { }\n\
.hlght { background-color:#ededed; }\n\
.lftop th,td { padding:0.1em 0.2em 0 0.3em; text-align:left; }\n\
.maxvis { max-width:10em; overflow-x:visible; }\n\
.pdlft1 { padding-left:1em; }\n\
.pdrght1 { padding-right:1em; }\n\
.px1 { margin:1px; }\n\
.sbttl { padding-bottom:0.3em!important; font-weight:bold; \
text-decoration:underline; }\n\
.struck { text-decoration:line-through; }\n\
.tacnt { text-align:center!important; }\n\
.talft { text-align:left!important; }\n\
.targht { text-align:right!important; }\n\
\
</style>\n";
/*********/
/* begin */
/*********/
if (WATCH_MODULE(WATCH_MOD__OTHER))
WatchThis (WATCHALL, WATCH_MOD__OTHER, "AdminWasdCss()");
return (WasdCss);
}
/****************************************************************************/