[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]
[4627]
[4628]
[4629]
[4630]
[4631]
[4632]
[4633]
[4634]
[4635]
[4636]
[4637]
[4638]
[4639]
[4640]
[4641]
[4642]
[4643]
[4644]
[4645]
[4646]
[4647]
[4648]
[4649]
[4650]
[4651]
[4652]
[4653]
[4654]
[4655]
[4656]
[4657]
[4658]
[4659]
[4660]
[4661]
[4662]
[4663]
[4664]
[4665]
[4666]
[4667]
[4668]
[4669]
[4670]
[4671]
[4672]
[4673]
[4674]
[4675]
[4676]
[4677]
[4678]
[4679]
[4680]
[4681]
[4682]
[4683]
[4684]
[4685]
[4686]
[4687]
[4688]
[4689]
[4690]
[4691]
[4692]
[4693]
[4694]
[4695]
[4696]
[4697]
[4698]
[4699]
[4700]
[4701]
[4702]
[4703]
[4704]
[4705]
[4706]
[4707]
[4708]
[4709]
[4710]
[4711]
[4712]
[4713]
[4714]
[4715]
[4716]
[4717]
[4718]
[4719]
[4720]
[4721]
[4722]
[4723]
[4724]
[4725]
[4726]
[4727]
[4728]
[4729]
[4730]
[4731]
[4732]
[4733]
[4734]
[4735]
[4736]
[4737]
[4738]
[4739]
[4740]
[4741]
[4742]
[4743]
[4744]
[4745]
[4746]
[4747]
[4748]
[4749]
[4750]
[4751]
[4752]
[4753]
[4754]
[4755]
[4756]
[4757]
[4758]
[4759]
[4760]
[4761]
[4762]
[4763]
[4764]
[4765]
[4766]
[4767]
[4768]
[4769]
[4770]
[4771]
[4772]
[4773]
[4774]
[4775]
[4776]
[4777]
[4778]
[4779]
[4780]
[4781]
[4782]
[4783]
[4784]
[4785]
[4786]
[4787]
[4788]
[4789]
[4790]
[4791]
[4792]
[4793]
[4794]
[4795]
[4796]
[4797]
[4798]
[4799]
[4800]
[4801]
[4802]
[4803]
[4804]
[4805]
[4806]
[4807]
[4808]
[4809]
[4810]
[4811]
[4812]
[4813]
[4814]
[4815]
[4816]
[4817]
[4818]
[4819]
[4820]
[4821]
[4822]
[4823]
[4824]
[4825]
[4826]
[4827]
[4828]
[4829]
[4830]
[4831]
[4832]
[4833]
[4834]
[4835]
[4836]
[4837]
[4838]
[4839]
[4840]
[4841]
[4842]
[4843]
[4844]
[4845]
[4846]
[4847]
[4848]
[4849]
[4850]
[4851]
[4852]
[4853]
[4854]
[4855]
[4856]
[4857]
[4858]
[4859]
[4860]
[4861]
[4862]
[4863]
[4864]
[4865]
[4866]
[4867]
[4868]
[4869]
[4870]
[4871]
[4872]
[4873]
[4874]
[4875]
[4876]
[4877]
[4878]
[4879]
[4880]
[4881]
[4882]
[4883]
[4884]
[4885]
[4886]
[4887]
[4888]
[4889]
[4890]
[4891]
[4892]
[4893]
[4894]
[4895]
[4896]
[4897]
[4898]
[4899]
[4900]
[4901]
[4902]
[4903]
[4904]
[4905]
[4906]
[4907]
[4908]
[4909]
[4910]
[4911]
[4912]
[4913]
[4914]
[4915]
[4916]
[4917]
[4918]
[4919]
[4920]
[4921]
[4922]
[4923]
[4924]
[4925]
[4926]
[4927]
[4928]
[4929]
[4930]
[4931]
[4932]
[4933]
[4934]
[4935]
[4936]
[4937]
[4938]
[4939]
[4940]
[4941]
[4942]
[4943]
[4944]
[4945]
[4946]
[4947]
[4948]
[4949]
[4950]
[4951]
[4952]
[4953]
[4954]
[4955]
[4956]
[4957]
[4958]
[4959]
[4960]
[4961]
[4962]
[4963]
[4964]
[4965]
[4966]
[4967]
[4968]
[4969]
[4970]
[4971]
[4972]
[4973]
[4974]
[4975]
[4976]
[4977]
[4978]
[4979]
[4980]
[4981]
[4982]
[4983]
[4984]
[4985]
[4986]
[4987]
[4988]
[4989]
[4990]
[4991]
[4992]
[4993]
[4994]
[4995]
[4996]
[4997]
[4998]
[4999]
[5000]
[5001]
[5002]
[5003]
[5004]
[5005]
[5006]
[5007]
[5008]
[5009]
[5010]
[5011]
[5012]
[5013]
[5014]
[5015]
[5016]
[5017]
[5018]
[5019]
[5020]
[5021]
[5022]
[5023]
[5024]
[5025]
[5026]
[5027]
[5028]
[5029]
[5030]
[5031]
[5032]
[5033]
[5034]
[5035]
[5036]
[5037]
[5038]
[5039]
[5040]
[5041]
[5042]
[5043]
[5044]
[5045]
[5046]
[5047]
[5048]
[5049]
[5050]
[5051]
[5052]
[5053]
[5054]
[5055]
[5056]
[5057]
[5058]
[5059]
[5060]
[5061]
[5062]
[5063]
[5064]
[5065]
[5066]
[5067]
[5068]
[5069]
[5070]
[5071]
[5072]
[5073]
[5074]
[5075]
[5076]
[5077]
[5078]
[5079]
[5080]
[5081]
[5082]
[5083]
[5084]
[5085]
[5086]
[5087]
[5088]
[5089]
[5090]
[5091]
[5092]
[5093]
[5094]
[5095]
[5096]
[5097]
[5098]
[5099]
[5100]
[5101]
[5102]
[5103]
[5104]
[5105]
[5106]
[5107]
[5108]
[5109]
[5110]
[5111]
[5112]
[5113]
[5114]
[5115]
[5116]
[5117]
[5118]
[5119]
[5120]
[5121]
[5122]
[5123]
[5124]
[5125]
[5126]
[5127]
[5128]
[5129]
[5130]
[5131]
[5132]
[5133]
[5134]
[5135]
[5136]
[5137]
[5138]
[5139]
[5140]
[5141]
[5142]
[5143]
[5144]
[5145]
[5146]
[5147]
[5148]
[5149]
[5150]
[5151]
[5152]
[5153]
[5154]
[5155]
[5156]
[5157]
[5158]
[5159]
[5160]
[5161]
[5162]
[5163]
[5164]
[5165]
[5166]
[5167]
[5168]
[5169]
[5170]
[5171]
[5172]
[5173]
[5174]
[5175]
[5176]
[5177]
[5178]
[5179]
[5180]
[5181]
[5182]
[5183]
[5184]
[5185]
[5186]
[5187]
[5188]
[5189]
[5190]
[5191]
[5192]
[5193]
[5194]
[5195]
[5196]
[5197]
[5198]
[5199]
[5200]
[5201]
[5202]
[5203]
[5204]
[5205]
[5206]
[5207]
[5208]
[5209]
[5210]
[5211]
[5212]
[5213]
[5214]
[5215]
[5216]
[5217]
[5218]
[5219]
[5220]
[5221]
[5222]
[5223]
[5224]
[5225]
[5226]
[5227]
[5228]
[5229]
[5230]
[5231]
[5232]
[5233]
[5234]
[5235]
[5236]
[5237]
[5238]
[5239]
[5240]
[5241]
[5242]
[5243]
[5244]
[5245]
[5246]
[5247]
[5248]
[5249]
[5250]
[5251]
[5252]
[5253]
[5254]
[5255]
[5256]
[5257]
[5258]
[5259]
[5260]
[5261]
[5262]
[5263]
[5264]
[5265]
[5266]
[5267]
[5268]
[5269]
[5270]
[5271]
[5272]
[5273]
[5274]
[5275]
[5276]
[5277]
[5278]
[5279]
[5280]
[5281]
[5282]
[5283]
[5284]
[5285]
[5286]
[5287]
[5288]
[5289]
[5290]
[5291]
[5292]
[5293]
[5294]
[5295]
[5296]
[5297]
[5298]
[5299]
[5300]
[5301]
[5302]
[5303]
[5304]
[5305]
[5306]
[5307]
[5308]
[5309]
[5310]
[5311]
[5312]
[5313]
[5314]
[5315]
[5316]
[5317]
[5318]
[5319]
[5320]
[5321]
[5322]
[5323]
[5324]
[5325]
[5326]
[5327]
[5328]
[5329]
[5330]
[5331]
[5332]
[5333]
[5334]
[5335]
[5336]
[5337]
[5338]
[5339]
[5340]
[5341]
[5342]
[5343]
[5344]
[5345]
[5346]
[5347]
[5348]
[5349]
[5350]
[5351]
[5352]
[5353]
[5354]
[5355]
[5356]
[5357]
[5358]
[5359]
[5360]
[5361]
[5362]
[5363]
[5364]
[5365]
[5366]
[5367]
[5368]
[5369]
[5370]
[5371]
[5372]
[5373]
[5374]
[5375]
[5376]
[5377]
[5378]
[5379]
[5380]
[5381]
[5382]
[5383]
[5384]
[5385]
[5386]
[5387]
[5388]
[5389]
[5390]
[5391]
[5392]
[5393]
[5394]
[5395]
[5396]
[5397]
[5398]
[5399]
[5400]
[5401]
[5402]
[5403]
[5404]
[5405]
[5406]
[5407]
[5408]
[5409]
[5410]
[5411]
[5412]
[5413]
[5414]
[5415]
[5416]
[5417]
[5418]
[5419]
[5420]
[5421]
[5422]
[5423]
[5424]
[5425]
[5426]
[5427]
[5428]
[5429]
[5430]
[5431]
[5432]
[5433]
[5434]
[5435]
[5436]
[5437]
[5438]
[5439]
[5440]
[5441]
[5442]
[5443]
[5444]
[5445]
[5446]
[5447]
[5448]
[5449]
[5450]
[5451]
[5452]
[5453]
[5454]
[5455]
[5456]
[5457]
[5458]
[5459]
[5460]
[5461]
[5462]
[5463]
[5464]
[5465]
[5466]
[5467]
[5468]
[5469]
[5470]
[5471]
[5472]
[5473]
[5474]
[5475]
[5476]
[5477]
[5478]
[5479]
[5480]
[5481]
[5482]
[5483]
[5484]
[5485]
[5486]
[5487]
[5488]
[5489]
[5490]
[5491]
[5492]
[5493]
[5494]
[5495]
[5496]
[5497]
[5498]
[5499]
[5500]
[5501]
[5502]
[5503]
[5504]
[5505]
[5506]
[5507]
[5508]
[5509]
[5510]
[5511]
[5512]
[5513]
[5514]
[5515]
[5516]
[5517]
[5518]
[5519]
[5520]
[5521]
[5522]
[5523]
[5524]
[5525]
[5526]
[5527]
[5528]
[5529]
[5530]
[5531]
[5532]
[5533]
[5534]
[5535]
[5536]
[5537]
[5538]
[5539]
[5540]
[5541]
[5542]
[5543]
[5544]
[5545]
[5546]
[5547]
[5548]
[5549]
[5550]
[5551]
[5552]
[5553]
[5554]
[5555]
[5556]
[5557]
[5558]
[5559]
[5560]
[5561]
[5562]
[5563]
[5564]
[5565]
[5566]
[5567]
[5568]
[5569]
[5570]
[5571]
[5572]
[5573]
[5574]
/*****************************************************************************/
/*
Dir.c
This module implements a full multi-threaded, AST-driven, asynchronous
directory listing. The AST-driven nature makes the code a little more
difficult to follow, but creates a powerful, event-driven, multi-threaded
server. All of the necessary functions implementing this module are designed
to be non-blocking.
This module never returns a valid status and ALWAYS calls the supplied next
task (AST) function. This should check for a generated error message to
determine is there were any problems.
This module uses the NetWriteBuffered() function to buffer any output it can
into larger chunks before sending it to the client.
A directory listing is recognised by the server whenever a wildcard is present
in a specification and there is no query string directing another activity
(e.g. a query/search). Compliant with other HTTPD implementations, a
directory listing is also generated if a URL specifies a directory only and
the directory contains no home page.
The directory listing is designed to look very much like the default layout of
the CERN and NCSA HTTPD implementations, with the exception that all
directories are grouped at the top, not dispersed throughout the file names.
This looks and functions better than the above (at least in the experience of
the author).
ACCESS CONTROL
--------------
If the server configuration specifies "DirAccessSelective" then the directory
must contain the file ".WWW_BROWSABLE" to be listed by this module.
If a directory contains the file ".WWW_HIDDEN" it cannot be listed with this
module, but individual files are accessable for server access. If a
subdirectory contains this file it does not appear in a listing.
If a directory contains the file ".WWW_NOWILD" a wildcard directory
specification will not work even if allowed by server configuration.
If a directory contains the file ".WWW_NOP" it does not show a parent.
If a directory contains the file ".WWW_NOS" it does not show subdirectories.
If a directory contains the file ".WWW_NOPS" both the above apply.
LISTING LAYOUT
--------------
The layout of the listing can be controlled from the configuration file or via
a server directive. A decimal number may optionally, immediately precede any
directive, this becomes the width of that particular field. If a width is not
specified an appropriate default is used. Information wider than the field
width is truncated, generally without indication. The following layout
directives provide:
_ (underscore) each underscore provides one space between fields
C creation date
D content-type description (BEST be the last field specified)
D:L content-type description as a link
I icon
L file anchor (link, including name as link)
L:F file anchor, ODS-5 file system name (e.g. spaces, not %20)
L:N file anchor, name-only, do not display the file's extension
L:U file anchor, force the name to upper-case
(these can have multiple specifications, e.g. "__L:U:N__")
N file name (without anchor, why I can't imagine :^)
O file owner (only when SYSUAF-authenticated and profile accessed)
P file protection (only when SYSUAF-authenticated and profile accessed)
R revision date
S file size
S:0 file sizes in 1000 (decimal) not 1024 (binary) kilos
S:2 file sizes in 1024 (binary) not 1000 (decimal) kilos
S:B file size to be in comma-formatted bytes
S:D express file sizes in 1000 (decimal) kilos not 1024 (binary) kilos
S:F file size Mb and Kb to be expressed to one significant place
S:K file size to be in K-bytes
S:M file size to be in M-bytes
S:V file size to be in blocks (VMS-ish)
(these can have multiple specifications, e.g. "__S:2:F__")
U file/directory name in upper case (MUST be the FIRST directive)
These may placed in any order ("D" is best last because it does not use a
field width) and with any (reasonable) field-width. For example see
'DirDefaultLayout' below.
DIRECTORY DIRECTIVES
--------------------
These directives may be added to a directory listing URL, or placed into the
".WWW_WASD" file, to modifiy the format and/or behaviour of the resultant
listing. Multiple query string directives may be added using the normal query
string ampersand syntax. This example forces an ODS-2 volumes file name to
upper-case and does not display the file type (extension).
?httpd=index&upper=1¬ype=1
# .WWW_WASD
upper=yes
notype=yes
Precedence is; .WWW_WASD file directives, then if override=yes SSI query
string, then if override=yes URI query string; if no .WWW_WASD file then SSI
query string and if override=yes URI query string; finally if no SSI query
string then URI query string.
The following are the directives:
autoscript= yes (default), no, true, false, 1, 0
delimit= header, footer, both (default), none
expired= yes, no, true, false, 1, 0 (listing pre-expired)
font= inherit, or monospace (default)
ilink= yes, no, true, false, 1, 0 (icon is a plain-text link)
layout= see "listing layout" immediately above
local= yes, no (default), true, false, 1, 0 (do not propagate)
notype= yes, no (default), true, false, 1, 0 (do not display file type)
nop= yes, no (default), true, false, 1, 0 (as if .WWW_NOP found)
nops= yes, no (default), true, false, 1, 0 (as if .WWW_NOPS found)
nos= yes, no (default), true, false, 1, 0 (as if .WWW_NOS found)
override= yes, no (default), true, false, 1, 0 (query string may override)
query= set this string as the query string for subsequent requests
readme= yes, no (default), true, false, 1, 0
script= script path that will be used when a file link is clicked
sort= on column (e.g. 'R','S') then '+' for ascending '-' descending
style= any of the mapping SET dir=style=
target= open a file in this window (e.g. "_blank")
these= one or more comma-separated wildcard file name.type(s)
type= force file content-type (e.g. "&type=\"text\"/plain")
upper= yes, no (default), true, false, 1, 0
versions= up to <integer> many of a file or if '*' then all
VMS (ODS-2) FILE NAMES
----------------------
Generally directory listings on ODS-2 volumes (VMS disks prior to VMS V7.2) are
displayed lower-case. To force an upper-case listing use any of a directory
listing format beginning with "U", or the "httpd=index&upper=1" query string.
EXTENDED (ODS-5) FILE NAMES
---------------------------
On ODS-5 volumes (available on Alpha VMS V7.2 and following) file names are
displayed in mixed, on-disk case. These file names may contain characters that
need to be escaped. These are displayed as what the escape sequence represents
For example; '^_' as ' ' and '^.' as '.'.
PATHWORKS AND SRI ENCODED FILE NAMES
------------------------------------
These will be displayed as what the encoding represents. For example; in
Pathworks encoding a '$20' sequence represents a ' ' and in SRI encoding the
encoding '$7A' also as ' '. SRI encodings representing mixed-case file names
are displayed in mixed case.
VERSION HISTORY
---------------
04-JAN-2021 MGD bugfix; DirDirectString() title=this=...
24-JAN-2019 MGD DirFormatAcpInfoAst() double size of AnchorLink
04-JAN-2019 MGD bugfix; AuthCompleted()
25-JAN-2018 MGD SET DIR=TITLE=[default|owner|remote|<integer>|this=<string>]
?httpd=index&title=[(as above)]
04-MAY-2017 MGD after twenty-plus years do not list "hidden" directories
22-JUN-2016 MGD DirFiles() ignore ambiguous file names
containing an escaped ("^.") period but no type
02-MAY-2015 MGD tblst refinement
08-NOV-2014 MGD bugfix; and refine DirFormatSize()
16-SEP-2014 MGD default directory listing style now <table>ed
?httpd=index&font=[inherit|monospace(D)]
?httpd=index&style=table[2]
suppress WebDAV metadata subdirectory
when path SET ods=name=utf8 then response charset=utf-8
SET dir=font=[inherit|monospace(D)]
SET dir=style=TABLE[2]
SET ods=name=8bit, ods=name=utf8, ods=name=default
SET webdav=meta=dir=<string>
SET webdav=[no]hidden *always* conceals hidden file names
remove <a name=".."></a> from link (nested <a></a>s)
bugfix; DirAuthorizationAst() tabular with no delimiter
bugfix; DirFormatAcpInfoAst() ThisIsADirectory = false;
27-SEP-2013 MGD ?httpd=index&versions=<integer>|*
SET dir=versions=<integer>|*
18-SEP-2013 MGD refine sortable whitespace in older MSIE and font in all MSIE
10-JUL-2013 MGD .WWW_WASD directive file
sortable directory listing
?httpd=index&local=[yes|no]
?httpd=index&override=[yes|no]
?httpd=index&query=<string>
?httpd=index&style=<which>
?httpd=index&sort=<char>[+|-]
?httpd=index&target=<string>
?httpd=index&these=<wildcard1>[,<wildcard2>]
SET dir=delimit=<which>
SET dir=style=<which>
SET dir=sort=<char>[+|-]
SET dir=target=<string>
SET dir=these=<wildcard1>[,<wildcard2>]
bugfix; DirFormatSize() bytes
01-JUN-2013 MGD bugfix; non-ODS_EXTENDED platforms (e.g. VAX) must
OdsParse() NAM$M_NOCONCEAL before OdsSearchNoConceal()
30-JAN-2012 MGD DirFormatSize() now uses quadword
DirFormatSize() adjusts units to fit size width
27-SEP-2011 MGD bugfix; OdsSearchNoConceal() to successfully process
concealed, multi-value logical device names
28-APR-2010 MGD bugfix; DirAuthorizationAst() only check access on
non-empty expanded file names
24-MAR-2010 MGD bugfix; DirBegin() "httpd=index&" detection (since v9.3.0)
bugfix; DirEnd() suppress </html> unless RequestEnd() AST
23-AUG-2009 MGD WasdCss[] and some refinements
11-JUN-2009 MGD "*.*__WASDAV;" files ignored
10-DEC-2007 MGD DirBegin() only use query string if it begins "httpd=index&"
09-APR-2007 MGD bugfix; DirFormatAcpInfoAst() 'S' (size) processing for
block totals at the end of a listing
24-MAY-2006 MGD DirFormat() and DirFormatSize() allow in-line layouts to
specify size with VMS format listings, as well as
adding size specification of 'V' (VMS-ish, in blocks)
06-SEP-2004 MGD change from self-relative to absolute links in "Index of"
anchor generation (broke usage in some SSI documents)
05-SEP-2003 MGD bugfix; according to the doco "Index of"s from SSI should
not be delimited top or bottom (up to SSI to caption it!)
05-JUN-2003 MGD bugfix; DirFormatLayout() static flags (jpp@esme.fr)
11-MAR-2003 MGD set html= directory listing header and footer,
there are now three directory listing styles implementing
set dir=style[=default|original|anchor|htdir]
15-OCT-2002 MGD demo mode ignores .WWW_HIDDEN, etc.
05-OCT-2002 MGD refine VMS security profile usage
20-SEP-2002 MGD bale-out early if no access
14-SEP-2002 MGD implement SET dir=charset directory listing charset
09-SEP-2002 MGD for consistency return an (if configured) empty listing
if protection on the directory doesn't allow wildcards
04-SEP-2002 MGD bugfix; 'Index of..' string encoding
20-AUG-2002 MGD modify formatting for SRI and PWK ODS encodings,
remove 'filesys=' listing modifier - it's now all FILESYS!
10-JUL-2002 MGD 'RealPath' for absoluting the likes of SSI 'index of's
31-MAY-2002 MGD path SET directory access control
27-APR-2002 MGD make SYSPRV enabled ASTs asynchronous
07-APR-2002 MGD bugfix; ODS-5 parent directories with multiple periods
02-FEB-2002 MGD for non-textual content types the icon is now an
anchor for a "text/plain" content-type access
04-AUG-2001 MGD support module WATCHing
17-JUL-2001 MGD bugfix; 'layout=U' upper-casing
21-FEB-2001 MGD include ODS-5 "hidden" files beginning '^.'
13-FEB-2001 MGD bugfix; directory specfication length (sys$check_access())
04-DEC-2000 MGD bugfix; DirSearchFiles() call DirFiles() with FAB
04-MAR-2000 MGD use FaolToBuffer(), et.al.
27-DEC-1999 MGD support ODS-2 and ODS-5 using ODS module
18-SEP-1999 MGD bugfix; sys$parse() NAM$M_NOCONCEAL for search lists
23-MAY-1999 MGD make year 4 digits for creation and revision date
19-SEP-1998 MGD improve granularity with use of directory/file/ACP services
(not as much as I would have liked, but some things are just
not important enough to be worth the trouble using ASTs!)
08-AUG-1998 MGD configurable implied wildcards
19-JUL-1998 MGD bugfix; MapUrl_Map() pass 'rqptr' for conditionals to work
14-MAY-1998 MGD request-specified content-type ("httpd=index&type=")
16-MAR-1998 MGD bugfix; file bytes incorrect when 'FirstFreeByte' zero
28-FEB-1998 MGD improved icon handling efficiency
19-FEB-1998 MGD size layout allows ":B", ":D", ":F", ":K", ":M" modifiers,
description layout allows ":L" to make a link out of it,
description may now have an associated field width,
allow for directory paths like "/dir1/dir2"
02-NOV-1997 MGD "delimit=", "nop=", "nops=", "nos=" and "readme=" directives
changed file sizes back from 1000 to 1024 kilos, megas, etc.
17-AUG-1997 MGD message database, internationalized file date/times,
file/directory names moved to lower-case (see 'U' above),
SYSUAF-authenticated users security-profile
20-APR-1997 MGD changed file sizes from 1024 to 1000 kilos, megas, etc.
01-FEB-1997 MGD HTTPd version 4
24-APR-1996 MGD chagrin ... just realized I don't need full URLs in links
01-DEC-1995 MGD HTTPd version 3
27-SEP-1995 MGD major revision of file and directory anchor generation
(far fewer MapUrl()s yielding greater efficiency);
added query string capability;
added automatic script capability
07-AUG-1995 MGD include VMS-style directory layout and file sizes
16-JUN-1995 MGD file contents description for non-HTML files (see config.c)
25-MAR-1995 MGD bugfix; error handling with DirReadMe() and DirFileExists()
20-DEC-1994 MGD multi-threaded daemon (it suddenly got very complex!)
20-JUN-1994 MGD single-threaded daemon
*/
/*****************************************************************************/
#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 <string.h>
/* VMS related header files */
#include <atrdef.h>
#include <descrip.h>
#include <dvidef.h>
#include <fibdef.h>
#include <libdtdef.h>
#include <libdef.h>
#include <rmsdef.h>
#include <rms.h>
#include <ssdef.h>
#include <stsdef.h>
/* application related header file */
#include "wasd.h"
#define WASD_MODULE "DIR"
/**********/
/* macros */
/**********/
#define DEFAULT_FIELD_WIDTH_INTERFIELD 1
#define DEFAULT_FIELD_WIDTH_CDT 17
#define DEFAULT_FIELD_WIDTH_NAME 25
#define DEFAULT_FIELD_WIDTH_OWNER 20
#define DEFAULT_FIELD_WIDTH_PROTECTION 19
#define DEFAULT_FIELD_WIDTH_RDT 17
#define DEFAULT_FIELD_WIDTH_SIZE 6
#define DEFAULT_FIELD_WIDTH_DECIMAL 11
#define LAYOUT_PARAMETER ':'
/******************/
/* global storage */
/******************/
char DirBrowsableFileName [] = ".WWW_BROWSABLE",
DirDefaultLayout [] = DEFAULT_DIR_LAYOUT,
DirHiddenFileName [] = ".WWW_HIDDEN",
DirNoWildFileName [] = ".WWW_NOWILD",
DirNopFileName [] = ".WWW_NOP",
DirNosFileName [] = ".WWW_NOS",
DirNopsFileName [] = ".WWW_NOPS",
DirWasdFileName [] = ".WWW_WASD";
char *DirBlankIconPtr,
*DirDirIconPtr,
*DirParentIconPtr;
static char DirColSpan [96];
static $DESCRIPTOR (DirColSpanDsc, DirColSpan);
/********************/
/* external storage */
/********************/
extern BOOL CliDemo,
NaturalLanguageEnglish,
OdsExtended,
WebDavEnabled;
extern int SsiSizeMax;
extern int ToLowerCase[],
ToUpperCase[];
extern unsigned long SysPrvMask[];
extern char *ConfigBlankIconPtr,
*ConfigDirIconPtr,
*ConfigParentIconPtr;
extern char ConfigContentTypeSsi[],
ErrorSanityCheck[],
SoftwareID[];
extern ACCOUNTING_STRUCT *AccountingPtr;
extern CONFIG_STRUCT Config;
extern MSG_STRUCT Msgs;
extern WATCH_STRUCT Watch;
/*****************************************************************************/
/*
This function never returns a valid status and ALWAYS calls the supplied next
task (AST) function. This should check for a generated error message to
determine is there were any problems.
*/
DirBegin
(
REQUEST_STRUCT *rqptr,
REQUEST_AST NextTaskFunction,
char *DirSpec,
char *DirQueryString,
char *RealPath,
BOOL AuthorizePath
)
{
int status;
char *cptr, *sptr, *zptr;
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirBegin() !&A !&Z !&Z !&Z !&B",
NextTaskFunction, DirSpec, DirQueryString,
RealPath, AuthorizePath);
if (ERROR_REPORTED (rqptr))
{
/* previous error, cause threaded processing to unravel */
SysDclAst (NextTaskFunction, rqptr);
return;
}
/* network writes are checked for success, fudge the first one! */
rqptr->NetIoPtr->WriteStatus = SS$_NORMAL;
if (!rqptr->AccountingDone++)
InstanceGblSecIncrLong (&AccountingPtr->DoDirectoryCount);
if (WATCHING (rqptr, WATCH_RESPONSE))
WatchThis (WATCHITM(rqptr), WATCH_RESPONSE, "INDEXOF !AZ", DirSpec);
if ((!Config.cfDir.Access &&
!Config.cfDir.AccessSelective &&
!rqptr->rqPathSet.DirAccess &&
!rqptr->rqPathSet.DirAccessSelective) ||
rqptr->rqPathSet.DirNoAccess)
{
rqptr->rqResponse.HttpStatus = 403;
ErrorGeneral (rqptr, MsgFor(rqptr,MSG_GENERAL_DISABLED), FI_LI);
SysDclAst (NextTaskFunction, rqptr);
return;
}
/* set up the task structure (possibly multiple concurrent) */
rqptr->DirTaskPtr = tkptr = VmGetHeap (rqptr, sizeof(DIR_TASK));
tkptr->NextTaskFunction = NextTaskFunction;
cptr = MapVmsPath (DirSpec, rqptr);
if (!cptr[0])
{
rqptr->rqResponse.HttpStatus = 403;
ErrorGeneral (rqptr, cptr+1, FI_LI);
DirEnd (rqptr);
return;
}
zptr = (sptr = tkptr->DirPath) + sizeof(tkptr->DirPath);
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
if (sptr >= zptr)
{
ErrorGeneralOverflow (rqptr, FI_LI);
DirEnd (rqptr);
return;
}
*sptr = '\0';
/* when the path may be different from base path (e.g. SSI) */
cptr = RealPath;
zptr = (sptr = tkptr->RealPath) + sizeof(tkptr->RealPath);
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
if (sptr >= zptr)
{
ErrorGeneralOverflow (rqptr, FI_LI);
DirEnd (rqptr);
return;
}
*sptr = '\0';
while (sptr > tkptr->RealPath && *sptr != '/') sptr--;
if (*sptr == '/') sptr++;
*sptr = '\0';
cptr = DirSpec;
zptr = (sptr = tkptr->DirSpec) + sizeof(tkptr->DirSpec);
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
if (sptr >= zptr)
{
ErrorGeneralOverflow (rqptr, FI_LI);
DirEnd (rqptr);
return;
}
*sptr = '\0';
tkptr->DirSpecLength = sptr - tkptr->DirSpec;
rqptr->rqResponse.PreExpired = Config.cfDir.PreExpired;
tkptr->AsIfNopFound = tkptr->AsIfNosFound = false;
tkptr->AutoScriptEnabled = tkptr->IconLinkEnabled =
tkptr->IncludeAnyReadme = true;
if (tkptr->RealPath[0])
tkptr->DirDelimit = MAPURL_DIR_DELIMIT_NONE;
else
if (rqptr->rqPathSet.DirDelimit)
tkptr->DirDelimit = rqptr->rqPathSet.DirDelimit;
else
tkptr->DirDelimit = MAPURL_DIR_DELIMIT_BOTH;
if (rqptr->rqPathSet.DirSort[0])
{
tkptr->DirSort[0] = rqptr->rqPathSet.DirSort[0];
tkptr->DirSort[1] = rqptr->rqPathSet.DirSort[1];
}
if (rqptr->rqPathSet.DirFont)
tkptr->DirFont = rqptr->rqPathSet.DirFont;
else
tkptr->DirFont = MAPURL_DIR_FONT_MONOSPACE;
if (rqptr->rqPathSet.DirStyle)
tkptr->DirStyle = rqptr->rqPathSet.DirStyle;
else
tkptr->DirStyle = MAPURL_DIR_STYLE_TABLE;
if (rqptr->rqPathSet.DirTitle)
{
tkptr->DirTitle = rqptr->rqPathSet.DirTitle;
tkptr->DirTitlePtr = rqptr->rqPathSet.DirTitlePtr;
}
else
tkptr->DirTitle = MAPURL_DIR_TITLE_DEFAULT;
if (rqptr->rqPathSet.DirTargetPtr)
{
zptr = (sptr = tkptr->LinkTarget) + sizeof(tkptr->LinkTarget)-2;
for (cptr = " target=\""; *cptr; *sptr++ = *cptr++);
for (cptr = rqptr->rqPathSet.DirTargetPtr; *cptr && sptr < zptr; cptr++)
if (*cptr != '\"') *sptr++ = *cptr;
*sptr++ = '\"';
*sptr = '\0';
}
if (rqptr->rqPathSet.DirThesePtr)
{
for (cptr = sptr = rqptr->rqPathSet.DirThesePtr; *sptr; sptr++);
tkptr->ThesePtr = sptr = VmGetHeap (rqptr, sptr-cptr);
/* null-separated series of strings terminated by empty string */
while (*cptr)
{
if (*cptr == ',')
*sptr++ = '\0';
else
*sptr++ = *cptr;
cptr++;
}
}
if (rqptr->rqPathSet.DirVersionsOf)
/* negative 1 indicates to revert to zero */
if (rqptr->rqPathSet.DirVersionsOf == -1)
tkptr->VersionsOf = 0;
else
tkptr->VersionsOf = rqptr->rqPathSet.DirVersionsOf;
/************************/
/* directory directives */
/************************/
/* .WWW_WASD file */
if (VMSnok (DirWwwWasd (rqptr)))
tkptr->QueryOverride = true;
/* SSI query string */
if (tkptr->QueryOverride)
if (cptr = DirQueryString)
if (cptr && TOLO(*cptr) == 'h' &&
strsame (cptr, "httpd=index&", 12))
DirDirectString (rqptr, cptr+12);
/* URI query string */
if (tkptr->QueryOverride)
if (cptr = tkptr->QueryStringPtr)
if (cptr && TOLO(*cptr) == 'h' &&
strsame (cptr, "httpd=index&", 12))
DirDirectString (rqptr, cptr+12);
/* map any default into the current default */
if (tkptr->DirStyle == MAPURL_DIR_STYLE_DEFAULT)
tkptr->DirStyle = MAPURL_DIR_STYLE_TABLE;
else
if (tkptr->DirStyle == MAPURL_DIR_STYLE_DEFAULT2)
tkptr->DirStyle = MAPURL_DIR_STYLE_TABLE2;
if (tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE ||
tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
tkptr->DirStyleTabular = true;
else
tkptr->DirStyleTabular = false;
if (AuthorizePath)
{
/***********************/
/* check authorization */
/***********************/
cptr = MapVmsPath (tkptr->DirSpec, rqptr);
Authorize (rqptr, cptr, -1, NULL, 0, &DirAuthorizationAst);
if (VMSnok (rqptr->rqAuth.FinalStatus))
{
/* if asynchronous authentication is notunderway */
if (rqptr->rqAuth.FinalStatus != AUTH_PENDING) DirEnd (rqptr);
return;
}
}
/* not to-be-authorized, or authorized ... just carry on regardless! */
DirAuthorizationAst (rqptr);
}
/*****************************************************************************/
/*
This function provides an AST target is Authorize()ation ended up being done
asynchronously, otherwise it is just called directly to continue the modules
processing.
*/
DirAuthorizationAst (REQUEST_STRUCT *rqptr)
{
static char StyleBasicList [] =
"<style type=\"text/css\">\n\
hr { width:95%; margin:0 1em 0 0; height: 2px; \
color:#000000; background-color:#000000; border:1px; }\n\
</style>\n";
/* four strings in this array, [0]&[3] fixed, [1]&[2] selected between */
static char *JavaScriptList [] = {
"<script language=\"JavaScript\" src=\"/httpd/-/wasd.js\"></script>\n\
<style type=\"text/css\">\n\
.sortable { min-width:40%; border-collapse:collapse; }\n",
".sortable th, .sortable td { font-family:inherit; }\n",
".sortable th, .sortable td { font-family:monospace; }\n",
".sortable td { padding:0 1.5em 0 0; margin:0; white-space:pre-wrap; \
vertical-align:top; }\n\
.sortable.sort2 thead td { padding-bottom:0.5em; white-space:pre-wrap; \
vertical-align:top; }\n\
.rghtd { text-align:right; }\n\
.rnwtd { text-align:right; white-space:nowrap!important; }\n\
.wasdI { text-decoration:none; letter-spacing:0; }\n\
hr { width:105%; margin:1em 1em 1em 0; height: 2px; \
color:#000000; background-color:#000000; border:1px; }\n\
</style>\n" };
/* four strings in this array, [0]&[3] fixed, [1]&[2] selected between */
static char *StyleTableList [] = {
"<style type=\"text/css\">\n\
.tblst { min-width:40%; max-width:95%; border-collapse:collapse; }\n",
".tblst th, .tblst td { font-family:inherit; }\n",
".tblst th, .tblst td { font-family:monospace; }\n",
".tblst td { padding:0 1.5em 0 0; margin:0; white-space:pre-wrap; \
vertical-align:top; }\n\
.tblst.list2 thead td { padding-bottom:0.5em; white-space:pre-wrap; \
vertical-align:top; }\n\
.rghtd { text-align:right; }\n\
.rnwtd { text-align:right; white-space:nowrap!important; }\n\
hr { width:105%; margin:1em 0 1em 0; height: 2px; \
color:#000000; background-color:#000000; border:1px; }\n\
</style>\n" };
static $DESCRIPTOR (OwnerFaoDsc, "!%I\0");
int status;
unsigned short slen;
unsigned long FaoVector [32];
unsigned long *vecptr;
char Owner [64],
Scratch [ODS_MAX_FILE_NAME_LENGTH+1];
char *cptr, *sptr,
*IndexOfPtr;
$DESCRIPTOR (OwnerDsc, Owner);
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirAuthorizationAst() !&F !&S",
&DirAuthorizationAst, rqptr->rqAuth.FinalStatus);
/* may have been delivered asynchronously */
rqptr->rqAuth.AstFunction = NULL;
if (VMSnok (rqptr->rqAuth.FinalStatus))
{
DirEnd (rqptr);
return;
}
tkptr = rqptr->DirTaskPtr;
/***************************/
/* parse to get components */
/***************************/
OdsStructInit (&tkptr->SearchOds, false);
if (tkptr->SearchOds.ExpFileNameLength)
AuthAccessEnable (rqptr, tkptr->SearchOds.ExpFileName, AUTH_ACCESS_READ);
OdsParse (&tkptr->SearchOds,
tkptr->DirSpec, tkptr->DirSpecLength, NULL, 0, 0,
NULL, rqptr);
AuthAccessEnable (rqptr, 0, 0);
if (VMSnok (status = tkptr->SearchOds.Fab.fab$l_sts))
{
rqptr->rqResponse.ErrorTextPtr = tkptr->DirPath;
rqptr->rqResponse.ErrorOtherTextPtr = tkptr->DirSpec;
ErrorVmsStatus (rqptr, status, FI_LI);
DirEnd (rqptr);
return;
}
memcpy (tkptr->DirectoryPart,
tkptr->SearchOds.NamDevicePtr,
slen = tkptr->SearchOds.NamNamePtr - tkptr->SearchOds.NamDevicePtr);
tkptr->DirectoryPart[slen] = '\0';
Scratch[0] = '\0';
sptr = MapUrl_Map (Scratch, sizeof(Scratch), tkptr->DirectoryPart, 0,
NULL, 0, NULL, 0, NULL, 0, NULL, rqptr, NULL);
if (!sptr[0] && sptr[1])
{
/* mapping report */
rqptr->rqResponse.HttpStatus = 403;
ErrorGeneral (rqptr, sptr+1, FI_LI);
DirEnd (rqptr);
return;
}
slen = strlen(Scratch) + 1;
tkptr->DirectoryPathPtr = VmGetHeap (rqptr, slen);
memcpy (tkptr->DirectoryPathPtr, Scratch, slen);
if (tkptr->SearchOds.Nam_fnb & NAM$M_WILD_DIR)
{
rqptr->rqResponse.HttpStatus = 403;
ErrorGeneral (rqptr, MsgFor(rqptr,MSG_GENERAL_NO_WILDCARD), FI_LI);
DirEnd (rqptr);
return;
}
/************************/
/* directory access ok? */
/************************/
if (CliDemo ||
rqptr->rqAuth.SkelKeyAuthenticated ||
rqptr->rqAuth.VmsUserProfileLength)
{
/* the VMS security profile allows access, why further prohibit it? */
status = SS$_NORMAL;
}
else
{
/* ensure we can read these directory listing "control" files */
sys$setprv (1, &SysPrvMask, 0, 0);
if (VMSok (status =
OdsFileExists (tkptr->DirectoryPart, DirHiddenFileName)))
status = RMS$_DNF;
else
if ((Config.cfDir.AccessSelective ||
rqptr->rqPathSet.DirAccessSelective) &&
!rqptr->rqPathSet.DirAccess)
{
status = OdsFileExists (tkptr->DirectoryPart, DirBrowsableFileName);
if (status == RMS$_FNF) status = SS$_ABORT;
}
else
if (VMSok (status =
OdsFileExists (tkptr->DirectoryPart, DirNoWildFileName)))
{
if (tkptr->SearchOds.Nam_fnb & NAM$M_WILD_NAME ||
tkptr->SearchOds.Nam_fnb & NAM$M_WILD_TYPE ||
tkptr->SearchOds.Nam_fnb & NAM$M_WILD_VER)
status = SS$_ABORT;
else
status = SS$_NORMAL;
}
else
status = SS$_NORMAL;
sys$setprv (0, &SysPrvMask, 0, 0);
}
if (VMSnok (status))
{
if (status == SS$_ABORT)
{
/* abort here means the facility is disabled */
rqptr->rqResponse.HttpStatus = 403;
ErrorGeneral (rqptr, MsgFor(rqptr,MSG_GENERAL_DISABLED), FI_LI);
}
else
{
/* give some "disinformation" ;^) */
if (status == RMS$_FNF) status = RMS$_DNF;
rqptr->rqResponse.ErrorTextPtr = tkptr->DirPath;
rqptr->rqResponse.ErrorOtherTextPtr = tkptr->DirSpec;
ErrorVmsStatus (rqptr, status, FI_LI);
}
DirEnd (rqptr);
return;
}
/*********************************/
/* further process specification */
/*********************************/
tkptr->DirSpecIncludedFilePart = tkptr->SearchOds.NamNameLength > 0 ||
tkptr->SearchOds.NamTypeLength > 1 ||
tkptr->SearchOds.NamVersionLength > 1;
if (!tkptr->DirSpecIncludedFilePart)
{
/* no name or type was supplied with the request, wildcard it */
AuthAccessEnable (rqptr, tkptr->SearchOds.ExpFileName, AUTH_ACCESS_READ);
OdsParse (&tkptr->SearchOds,
tkptr->DirSpec, tkptr->DirSpecLength, "*.*", 3, 0,
NULL, rqptr);
AuthAccessEnable (rqptr, 0, 0);
if (VMSnok (status = tkptr->SearchOds.Fab.fab$l_sts))
{
rqptr->rqResponse.ErrorTextPtr = tkptr->DirPath;
rqptr->rqResponse.ErrorOtherTextPtr = tkptr->DirSpec;
ErrorVmsStatus (rqptr, status, FI_LI);
DirEnd (rqptr);
return;
}
}
if (tkptr->SearchOds.Nam_fnb & NAM$M_WILD_VER ||
tkptr->SearchOds.Nam_fnb & NAM$M_EXP_VER)
{
/* wildcard or explicit version number supplied ... VMS format */
memcpy (tkptr->FilePart,
tkptr->SearchOds.NamNamePtr,
slen = tkptr->SearchOds.NamVersionPtr -
tkptr->SearchOds.NamNamePtr +
tkptr->SearchOds.NamVersionLength);
tkptr->FormatLikeVms = true;
}
else
{
/* name and/or type or implied wildcards */
memcpy (tkptr->FilePart,
tkptr->SearchOds.NamNamePtr,
slen = tkptr->SearchOds.NamVersionPtr -
tkptr->SearchOds.NamNamePtr);
}
if (tkptr->VersionsOf)
{
/* ?httpd=index&versions=<integer> */
if (!(tkptr->SearchOds.Nam_fnb & NAM$M_WILD_VER ||
tkptr->SearchOds.Nam_fnb & NAM$M_EXP_VER))
tkptr->FilePart[slen++] = ';';
if (!(tkptr->SearchOds.Nam_fnb & NAM$M_WILD_VER))
tkptr->FilePart[slen++] = '*';
}
tkptr->FilePart[slen] = '\0';
/********************/
/* begin processing */
/********************/
tkptr->FileCount = tkptr->DirectoryCount = 0;
if (VMSnok (DirFormatLayout (rqptr)))
{
DirEnd (rqptr);
return;
}
if (tkptr->ResponseHeaderSent = !rqptr->rqResponse.HeaderSent)
{
/* if directory listing charset has been set impose that on any other */
cptr = rqptr->rqPathSet.CharsetPtr;
if (rqptr->rqPathSet.DirCharsetPtr)
rqptr->rqPathSet.CharsetPtr = rqptr->rqPathSet.DirCharsetPtr;
else
if (rqptr->rqPathSet.OdsName == MAPURL_ODS_UTF8)
rqptr->rqPathSet.CharsetPtr = "utf-8";
/* "index of"s can have pre-expiry controlled from the query string */
ResponseHeader200 (rqptr, "text/html", NULL);
/* restore any previous (just to be neat) */
rqptr->rqPathSet.CharsetPtr = cptr;
if (rqptr->rqHeader.Method == HTTP_METHOD_HEAD)
{
DirEnd (rqptr);
return;
}
}
if (tkptr->DirDelimit == MAPURL_DIR_DELIMIT_BOTH ||
tkptr->DirDelimit == MAPURL_DIR_DELIMIT_HEADER)
{
/******************/
/* header delimit */
/******************/
vecptr = &FaoVector;
*vecptr++ = WASD_DOCTYPE;
if (tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE ||
tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE2)
{
*vecptr++ = StyleTableList[0];
if (tkptr->DirFont == MAPURL_DIR_FONT_INHERIT)
*vecptr++ = StyleTableList[1];
else
*vecptr++ = StyleTableList[2];
*vecptr++ = StyleTableList[3];
}
else
if (tkptr->DirStyle == MAPURL_DIR_STYLE_SORT ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
{
*vecptr++ = JavaScriptList[0];
if (tkptr->DirFont == MAPURL_DIR_FONT_INHERIT)
*vecptr++ = JavaScriptList[1];
else
*vecptr++ = JavaScriptList[2];
*vecptr++ = JavaScriptList[3];
}
else
{
*vecptr++ = StyleBasicList;
*vecptr++ = "";
*vecptr++ = "";
}
if (rqptr->rqPathSet.StyleSheetPtr)
{
*vecptr++ =
"<link rel=\"stylesheet\" type=\"text/css\" href=\"!AZ\">\n";
*vecptr++ = rqptr->rqPathSet.StyleSheetPtr;
}
else
*vecptr++ = "";
if (Config.cfDir.MetaInfoEnabled)
{
*vecptr++ = "!AZ<meta name=\"kilo\" content=\"!UL\">\n";
*vecptr++ = HtmlMetaInfo (rqptr, tkptr->DirSpec);
*vecptr++ = tkptr->SizeKilo;
}
else
*vecptr++ = "";
IndexOfPtr = MsgFor(rqptr,MSG_DIR_INDEX_OF);
/* <title>...</title> */
if (tkptr->DirTitle &&
tkptr->DirTitle != MAPURL_DIR_TITLE_DEFAULT)
{
if (tkptr->DirTitle == MAPURL_DIR_TITLE_NONE)
*vecptr++ = " ";
else
if (tkptr->DirTitle == MAPURL_DIR_TITLE_OWNER)
{
OdsFileAcpInfo (&tkptr->SearchOds, NULL, 0);
sys$fao (&OwnerFaoDsc, &slen, &OwnerDsc,
tkptr->SearchOds.FileQio.AtrUic);
*vecptr++ = "!&;AZ";
*vecptr++ = Owner;
}
else
if (tkptr->DirTitle == MAPURL_DIR_TITLE_REMOTE)
{
*vecptr++ = "!&;AZ";
if (rqptr->rqAuth.SourceRealm == AUTH_SOURCE_X509)
if (cptr = SesolaClientCertRemoteUser (rqptr))
*vecptr++ = cptr;
else
*vecptr++ = "";
else
*vecptr++ = rqptr->RemoteUser;
}
else
if (tkptr->DirTitle == MAPURL_DIR_TITLE_THIS)
{
*vecptr++ = "!AZ";
*vecptr++ = tkptr->DirTitlePtr;
}
else
if (tkptr->DirTitle >= 1)
{
*vecptr++ = "!&;AZ";
*vecptr++ = DirTitleInteger (rqptr);
}
else
*vecptr++ = "SS$_BUGCHECK";
}
else
if (tkptr->FormatLikeVms)
{
MapOdsUrlToVms (tkptr->DirPath, Scratch, sizeof(Scratch),
0, rqptr->rqPathSet.MapEllipsis, rqptr->PathOds);
*vecptr++ = "!AZ !&;AZ";
*vecptr++ = IndexOfPtr;
*vecptr++ = Scratch;
}
else
if (tkptr->DirStyle == MAPURL_DIR_STYLE_HTDIR ||
tkptr->DirStyle == MAPURL_DIR_STYLE_HTDIR2)
{
*vecptr++ = "//!AZ!&;&[AZ";
if (rqptr->rqHeader.HostPtr &&
rqptr->rqHeader.HostPtr[0])
*vecptr++ = rqptr->rqHeader.HostPtr;
else
*vecptr++ = rqptr->ServicePtr->ServerHostPort;
*vecptr++ = rqptr->PathOds;
*vecptr++ = tkptr->DirPath;
}
else
{
*vecptr++ = "!AZ //!AZ!&;&[AZ";
*vecptr++ = IndexOfPtr;
if (rqptr->rqHeader.HostPtr &&
rqptr->rqHeader.HostPtr[0])
*vecptr++ = rqptr->rqHeader.HostPtr;
else
*vecptr++ = rqptr->ServicePtr->ServerHostPort;
*vecptr++ = rqptr->PathOds;
*vecptr++ = tkptr->DirPath;
}
if (rqptr->rqPathSet.HtmlBodyTagPtr)
{
/* <body..> */
if (rqptr->rqPathSet.HtmlBodyTagPtr[0] == '<')
*vecptr++ = "!AZ\n<div class=\"wasd\">\n";
else
*vecptr++ = "<body!&+AZ>\n<div class=\"wasd\">\n";
*vecptr++ = rqptr->rqPathSet.HtmlBodyTagPtr;
}
else
{
*vecptr++ = "!AZ\n<div class=\"wasd\">\n";
*vecptr++ = Config.cfDir.BodyTag;
}
if (rqptr->rqPathSet.HtmlHeaderPtr ||
rqptr->rqPathSet.HtmlHeaderTagPtr)
{
if (rqptr->rqPathSet.HtmlHeaderTagPtr &&
rqptr->rqPathSet.HtmlHeaderTagPtr[0] == '<')
*vecptr++ = "!AZ\n!&/AZ";
else
*vecptr++ =
"<table cellpadding=\"5\" cellspacing=\"0\" border=\"0\" width=\"100%\">\
<tr><td!&+AZ>\n!&/AZ";
*vecptr++ = rqptr->rqPathSet.HtmlHeaderTagPtr;
*vecptr++ = rqptr->rqPathSet.HtmlHeaderPtr;
}
else
*vecptr++ = "";
status = FaolToNet (rqptr,
"!AZ\
<html>\n\
<head>\n\
!AZ!AZ!AZ\
!&@\
!&@\
<title>!&@</title>\n\
</head>\n\
!&@\
!&@",
&FaoVector);
if (VMSok (status))
status = DirIndexOf (rqptr, IndexOfPtr,
tkptr->FormatLikeVms ? Scratch : NULL);
}
else
{
/*********************/
/* no header delimit */
/*********************/
vecptr = &FaoVector;
if (tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE ||
tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE2)
{
*vecptr++ = StyleTableList[0];
if (tkptr->DirFont == MAPURL_DIR_FONT_INHERIT)
*vecptr++ = StyleTableList[1];
else
*vecptr++ = StyleTableList[2];
*vecptr++ = StyleTableList[3];
}
else
if (tkptr->DirStyle == MAPURL_DIR_STYLE_SORT ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
{
*vecptr++ = JavaScriptList[0];
if (tkptr->DirFont == MAPURL_DIR_FONT_INHERIT)
*vecptr++ = JavaScriptList[1];
else
*vecptr++ = JavaScriptList[2];
*vecptr++ = JavaScriptList[3];
}
else
{
*vecptr++ = StyleBasicList;
*vecptr++ = "";
*vecptr++ = "";
}
if (rqptr->rqPathSet.StyleSheetPtr)
{
*vecptr++ =
"<link rel=\"stylesheet\" type=\"text/css\" href=\"!AZ\">\n";
*vecptr++ = rqptr->rqPathSet.StyleSheetPtr;
}
else
*vecptr++ = "";
status = FaolToNet (rqptr, "!AZ!AZ!AZ!&@", &FaoVector);
}
if (VMSnok (status))
{
ErrorNoticed (rqptr, status, NULL, FI_LI);
rqptr->rqResponse.ErrorTextPtr = "FaolToNet()";
ErrorVmsStatus (rqptr, status, FI_LI);
DirEnd (rqptr);
return;
}
if ((tkptr->DirStyle == MAPURL_DIR_STYLE_SORT ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2) && VMSok(status))
{
char NoScript [] = "<noscript style=\"font-size:120%;color:red;\">\
JavaScript?</noscript>\n";
NetWriteBuffered (rqptr, NULL, NoScript, sizeof(NoScript)-1);
}
if (Config.cfDir.ReadMeTop && rqptr->DirTaskPtr->IncludeAnyReadme)
SysDclAst (DirReadMeTop, rqptr);
else
SysDclAst (DirHeading, rqptr);
}
/*****************************************************************************/
/*
Provide the "Index of" page heading in any of the post-v8.2, traditional WASD,
or the "ABI" styles.
*/
int DirIndexOf
(
REQUEST_STRUCT *rqptr,
char *IndexOfPtr,
char *UrlAsVms
)
{
int cnt, status,
SlashCount;
unsigned long FaoVector [32];
unsigned long *vecptr;
char *cptr, *sptr, *zptr,
*FinalSlashPtr,
*ThisSlashPtr;
char Scratch [ODS_MAX_FILE_NAME_LENGTH+1];
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirIndexOf() !&Z !&Z", IndexOfPtr, UrlAsVms);
/* get the pointer to the task structure */
tkptr = rqptr->DirTaskPtr;
if (tkptr->DirStyle == MAPURL_DIR_STYLE_ORIGINAL ||
tkptr->DirStyle == MAPURL_DIR_STYLE_ORIGINAL2)
{
/**************************/
/* traditional WASD style */
/**************************/
vecptr = &FaoVector;
*vecptr++ = IndexOfPtr;
*vecptr++ = rqptr->PathOds;
*vecptr++ = tkptr->DirPath;
status = FaolToNet (rqptr,
"<h2><nobr>!AZ !&;&_&[AZ</nobr></h2>\n",
&FaoVector);
return (status);
}
/****************/
/* other styles */
/****************/
/* convert the path into a displayable path (might be ODS-5, etc.) */
vecptr = &FaoVector;
*vecptr++ = rqptr->PathOds;
*vecptr++ = tkptr->DirPath;
status = FaolToBuffer (Scratch, sizeof(Scratch), NULL, "!&;&_&[AZ", &FaoVector);
if (VMSnok (status)) return (status);
/* calculate the number of directory elements */
SlashCount = 0;
FinalSlashPtr = "";
for (cptr = Scratch; *cptr; cptr++)
{
if (*cptr == '/')
{
SlashCount++;
FinalSlashPtr = cptr;
}
}
if (SlashCount > 64) return (SS$_BUGCHECK);
if (*FinalSlashPtr) FinalSlashPtr++;
vecptr = &FaoVector;
if (UrlAsVms)
{
/* VMS format listing (no ABI rendering) */
*vecptr++ = IndexOfPtr;
status = FaolToNet (rqptr, "<h3><nobr>!AZ ", &FaoVector);
if (VMSnok (status)) return (status);
cptr = UrlAsVms;
}
else
{
if (tkptr->DirStyle == MAPURL_DIR_STYLE_HTDIR ||
tkptr->DirStyle == MAPURL_DIR_STYLE_HTDIR2)
{
/* ABI's style begins with the server name as a 'root' anchor */
*vecptr++ = FinalSlashPtr;
if (tkptr->QueryStringPtr)
{
*vecptr++ = "?httpd=index&!AZ";
*vecptr++ = tkptr->QueryStringPtr;
}
else
*vecptr++ = "";
if (rqptr->rqHeader.HostPtr &&
rqptr->rqHeader.HostPtr[0])
*vecptr++ = rqptr->rqHeader.HostPtr;
else
*vecptr++ = rqptr->ServicePtr->ServerHostPort;
status = FaolToNet (rqptr,
"<h3><nobr><a href=\"/!AZ!&@\">//!AZ/</a>",
&FaoVector);
}
else
{
/* WASD style provides an "Index of" heading */
*vecptr++ = IndexOfPtr;
*vecptr++ = FinalSlashPtr;
if (tkptr->QueryStringPtr)
{
*vecptr++ = "?httpd=index&!AZ";
*vecptr++ = tkptr->QueryStringPtr;
}
else
*vecptr++ = "";
if (rqptr->rqHeader.HostPtr &&
rqptr->rqHeader.HostPtr[0])
*vecptr++ = rqptr->rqHeader.HostPtr;
else
*vecptr++ = rqptr->ServicePtr->ServerHostPort;
status = FaolToNet (rqptr,
"<h3><nobr>!AZ //<a href=\"/!AZ!&@\">!AZ</a>/",
&FaoVector);
}
if (VMSnok (status)) return (status);
cptr = Scratch;
}
/* provide an individual anchor for each directory element */
ThisSlashPtr = tkptr->DirPath;
if (*ThisSlashPtr == '/') ThisSlashPtr++;
if (SlashCount) SlashCount--;
while (SlashCount-- > 0)
{
while (*ThisSlashPtr && *ThisSlashPtr != '/') ThisSlashPtr++;
if (*ThisSlashPtr == '/') ThisSlashPtr++;
vecptr = &FaoVector;
*vecptr++ = ThisSlashPtr - tkptr->DirPath;
*vecptr++ = tkptr->DirPath;
*vecptr++ = FinalSlashPtr;
if (tkptr->QueryStringPtr)
{
*vecptr++ = "?httpd=index&!AZ";
*vecptr++ = tkptr->QueryStringPtr;
}
else
*vecptr++ = "";
if (UrlAsVms)
{
/* VMS format, parse based on VMS directory delimiting characters */
while (*cptr == '.' || *cptr == ':' || *cptr == '[' || *cptr == ']')
cptr++;
for (sptr = cptr;
*sptr && *sptr != '.' && *sptr != ':' && *sptr != ']';
sptr++)
if (*sptr == '^') sptr++;
*vecptr++ = sptr - cptr;
*vecptr++ = cptr;
if (*sptr == ':')
*vecptr++ = 2;
else
*vecptr++ = 1;
*vecptr++ = sptr;
}
else
{
/* URL format, parse based on delimiting slashes */
if (*cptr == '/') cptr++;
for (sptr = cptr; *sptr && *sptr != '/'; sptr++);
if (tkptr->DirStyle == MAPURL_DIR_STYLE_HTDIR ||
tkptr->DirStyle == MAPURL_DIR_STYLE_HTDIR2)
{
/* ABI's style, trailing slashes are part of the link */
if (*sptr) sptr++;
*vecptr++ = sptr - cptr;
*vecptr++ = cptr;
*vecptr++ = 0;
*vecptr++ = "";
}
else
{
/* WASD style, trailing slashes are not part of the link */
*vecptr++ = sptr - cptr;
*vecptr++ = cptr;
*vecptr++ = 1;
*vecptr++ = sptr;
}
}
if (VMSnok (status)) return (status);
status = FaolToNet (rqptr,
"<a href=\"!#AZ!AZ!&;&@\">!#AZ</a>!#AZ",
&FaoVector);
cptr = sptr;
}
if (!UrlAsVms &&
(tkptr->DirStyle == MAPURL_DIR_STYLE_HTDIR ||
tkptr->DirStyle == MAPURL_DIR_STYLE_HTDIR2))
{
/* ABI's style, 'file' name and type element as an anchor */
if (*cptr == '/') cptr++;
vecptr = &FaoVector;
*vecptr++ = cptr;
if (tkptr->QueryStringPtr)
{
*vecptr++ = "?httpd=index&!AZ";
*vecptr++ = tkptr->QueryStringPtr;
}
else
*vecptr++ = "";
*vecptr++ = cptr;
status = FaolToNet (rqptr,
"<a href=\"!AZ!&@\">!AZ</a></nobr></h3>\n",
&FaoVector);
}
else
{
/* WASD style, URL or VMS format, 'file' name and type just displayed */
if (UrlAsVms)
while (*cptr == ':' || *cptr == '[' || *cptr == '.' || *cptr == ']')
cptr++;
else
if (*cptr == '/')
cptr++;
vecptr = &FaoVector;
*vecptr++ = cptr;
status = FaolToNet (rqptr, "!AZ</nobr></h3>\n", &FaoVector);
}
return (status);
}
/*****************************************************************************/
/*
(0 is no title)
1 the top-level directory (device?)
2 the second-level directory
... and so on until the bottom-level directory
99 bottom-level directory.
*/
char* DirTitleInteger (REQUEST_STRUCT *rqptr)
{
static char buffer [256];
int number;
char *cptr, *sptr, *zptr;
char Scratch [ODS_MAX_FILE_NAME_LENGTH+1];
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR, "DirTitleInteger()");
/* get the pointer to the task structure */
tkptr = rqptr->DirTaskPtr;
buffer[0] = '\0';
number = tkptr->DirTitle;
if (tkptr->FormatLikeVms)
{
MapOdsUrlToVms (tkptr->DirPath, Scratch, sizeof(Scratch),
0, rqptr->rqPathSet.MapEllipsis, rqptr->PathOds);
if (number == 1)
cptr = Scratch;
else
if (number >= 2)
{
for (cptr = Scratch; *cptr && *cptr != ':'; cptr++);
if (SAME2(cptr,':[')) cptr += 2; else cptr = "?";
for (number -= 2; number > 0; number--)
{
for (sptr = cptr; *sptr != '.' && *sptr != ']'; sptr++)
if (*sptr == '^' && *(sptr+1)) sptr++;
if (*sptr == '.')
cptr = sptr + 1;
else
if (*sptr == ']')
break;
}
}
zptr = (sptr = buffer) + sizeof(buffer)-1;
while (*cptr && *cptr != ':' && *cptr != '.' && *cptr != ']' &&
sptr < zptr)
{
if (*cptr == '^')
{
*sptr++ = *cptr++;
if (sptr < zptr) *sptr++ = *cptr++;
}
else
*sptr++ = *cptr++;
}
*sptr = '\0';
if (sptr >= zptr)
{
strcpy (buffer, "?");
ErrorNoticed (rqptr, SS$_RESULTOVF, NULL, FI_LI);
}
}
else
{
cptr = tkptr->DirPath;
if (*cptr == '/' && *(cptr+1)) cptr++;
while (--number)
{
for (sptr = cptr; *sptr && *sptr != '/'; sptr++);
if (*sptr == '/' && *(sptr+1))
{
for (zptr = sptr+1; *zptr && *zptr != '/'; zptr++);
if (*zptr == '/') cptr = sptr + 1;
}
else
break;
}
zptr = (sptr = buffer) + sizeof(buffer)-1;
while (*cptr && *cptr != '/' && sptr < zptr) *sptr++ = *cptr++;
*sptr = '\0';
if (sptr >= zptr)
{
strcpy (buffer, "?");
ErrorNoticed (rqptr, SS$_RESULTOVF, NULL, FI_LI);
}
}
return (buffer);
}
/*****************************************************************************/
/*
Release any dynamic memory allocated for parse structures.
*/
DirEnd (REQUEST_STRUCT *rqptr)
{
int status;
unsigned long FaoVector [16];
unsigned long *vecptr;
DIR_TASK *tkptr;
REQUEST_AST NextTaskFunction;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR, "DirEnd() !&F", &DirEnd);
/* get the pointer to the task structure */
tkptr = rqptr->DirTaskPtr;
NextTaskFunction = tkptr->NextTaskFunction;
/* ensure parse internal data structures are released */
OdsParseRelease (&tkptr->SearchOds);
if (!ERROR_REPORTED (rqptr))
{
vecptr = &FaoVector;
if (rqptr->rqPathSet.HtmlFooterPtr ||
rqptr->rqPathSet.HtmlFooterTagPtr)
{
if (rqptr->rqPathSet.HtmlFooterTagPtr &&
rqptr->rqPathSet.HtmlFooterTagPtr[0] == '<')
*vecptr++ = "!AZ\n!&@";
else
*vecptr++ =
"<table cellpadding=\"5\" cellspacing=\"0\" border=\"0\" width=\"100%\">\
<tr><td!&+AZ>\n!&@";
*vecptr++ = rqptr->rqPathSet.HtmlFooterTagPtr;
*vecptr++ = "!&/AZ</td></tr></table>\n";
*vecptr++ = rqptr->rqPathSet.HtmlFooterPtr;
}
else
*vecptr++ = "";
if (NextTaskFunction == RequestEnd)
{
status = FaolToNet (rqptr, "!&@</div>\n</body>\n</html>\n",
&FaoVector);
if (VMSnok (status))
{
ErrorNoticed (rqptr, status, NULL, FI_LI);
rqptr->rqResponse.ErrorTextPtr = "FaolToNet()";
ErrorVmsStatus (rqptr, status, FI_LI);
}
}
}
/* restore previous directory task (if any) */
rqptr->DirTaskPtr = NULL;
VmFreeFromHeap (rqptr, tkptr, FI_LI);
/* explicitly flushed in case it's an SSI activity */
NetWriteFullFlush (rqptr, NextTaskFunction);
}
/*****************************************************************************/
/*
AST-driven output of column headings (these have already generated by
DirFormatLayout()).
*/
DirHeading (REQUEST_STRUCT *rqptr)
{
int status;
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirHeading() !&F", DirHeading);
/* error in readme file? */
if (ERROR_REPORTED (rqptr))
{
DirEnd (rqptr);
return;
}
/* get the pointer to the task structure */
tkptr = rqptr->DirTaskPtr;
if (rqptr->rqPathSet.HtmlHeaderPtr ||
rqptr->rqPathSet.HtmlHeaderTagPtr)
{
status = FaolToNet (rqptr, "</td></tr></table>\n", NULL);
if (VMSnok (status))
{
ErrorNoticed (rqptr, status, NULL, FI_LI);
rqptr->rqResponse.ErrorTextPtr = tkptr->DirPath;
rqptr->rqResponse.ErrorOtherTextPtr = tkptr->LayoutFaoPtr;
ErrorVmsStatus (rqptr, status, FI_LI);
DirEnd (rqptr);
return;
}
}
if (tkptr->DirDelimit == MAPURL_DIR_DELIMIT_BOTH ||
tkptr->DirDelimit == MAPURL_DIR_DELIMIT_HEADER ||
tkptr->DirStyleTabular)
{
/* header and horizontal line at top of page */
NetWriteBuffered (rqptr, &DirBeginDirectories,
tkptr->LayoutHeadingPtr, tkptr->LayoutHeadingLength);
return;
}
else
if (!tkptr->DirStyleTabular)
{
/* just start the preformtted text */
NetWriteBuffered (rqptr, &DirBeginDirectories, "\n", 1);
}
else
SysDclAst (&DirBeginDirectories, rqptr);
}
/*****************************************************************************/
/*
Begin a listing with directories if not expressly forbidden by configuration
or local directory-specific configuration files. If required check if there
is an accessable parent directory and if so generate a formatted entry for it.
*/
DirBeginDirectories (REQUEST_STRUCT *rqptr)
{
int status;
char *cptr;
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirBeginDirectories() !&F", &DirBeginDirectories);
tkptr = rqptr->DirTaskPtr;
/*
Determine if any parent directory or subdirectories will be
displayed by checking for the presence of directory listing
control files (and a kludge for user directory mapping).
*/
/* ensure we can read these directory listing "control" files */
sys$setprv (1, &SysPrvMask, 0, 0);
cptr = tkptr->DirectoryPart;
if (tkptr->DirStyle == MAPURL_DIR_STYLE_ORIGINAL ||
tkptr->DirStyle == MAPURL_DIR_STYLE_ORIGINAL2)
tkptr->ListParentDir = true;
else
tkptr->ListParentDir = false;
tkptr->ListSubDir = true;
if (tkptr->AsIfNopFound && tkptr->AsIfNosFound)
tkptr->ListParentDir = tkptr->ListSubDir = false;
else
if (OdsFileExists (cptr, DirNopsFileName) != RMS$_FNF)
tkptr->ListParentDir = tkptr->ListSubDir = false;
else
{
if (tkptr->AsIfNosFound)
tkptr->ListSubDir = false;
else
if (OdsFileExists (cptr, DirNosFileName) != RMS$_FNF)
tkptr->ListSubDir = false;
if (tkptr->AsIfNopFound)
tkptr->ListParentDir = false;
else
if (OdsFileExists (cptr, DirNopFileName) != RMS$_FNF)
tkptr->ListParentDir = false;
else
if (SAME2(tkptr->DirPath,'/~'))
{
/*
This is a kludge to better support user directories ("/~username/").
It prevents a "top-level" user directory from displaying a parent
directory even if it is not a "top-level" VMS directory. It does
this by looking to see if there is any subdirectory to the "top-
level" user directory (e.g. "/~username/subdirectory/").
*/
for (cptr = tkptr->DirPath; *cptr && *cptr != '/'; cptr++);
if (SAME2(cptr,'/\0')) tkptr->ListParentDir = false;
}
}
sys$setprv (0, &SysPrvMask, 0, 0);
if (tkptr->ListSubDir)
{
AuthAccessEnable (rqptr, tkptr->SearchOds.ExpFileName, AUTH_ACCESS_READ);
/* OdsParse() NAM$M_NOCONCEAL before OdsSearchNoConceal() */
OdsParse (&tkptr->SearchOds,
tkptr->DirectoryPart, 0, "*.DIR;", 6, NAM$M_NOCONCEAL,
&DirBeginDirectoriesParseAst, rqptr);
AuthAccessEnable (rqptr, 0, 0);
return;
}
DirBeginDirectoriesParseAst (rqptr);
}
/*****************************************************************************/
/*
AST called from DirDirectoriesBegin() when the asynchronous parse completes,
or when called explicitly if not listing subdirectories.
*/
DirBeginDirectoriesParseAst (REQUEST_STRUCT *rqptr)
{
int status;
char *cptr, *sptr;
char ParentDirPath [ODS_MAX_FILE_NAME_LENGTH+1],
ParentDirVms [ODS_MAX_FILE_NAME_LENGTH+1];
DIR_TASK *tkptr;
REQUEST_AST AstFunction;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirBeginDirectoriesParseAst() !&F sts:!&S stv:!&S",
&DirBeginDirectoriesParseAst,
rqptr->DirTaskPtr->SearchOds.Fab.fab$l_sts,
rqptr->DirTaskPtr->SearchOds.Fab.fab$l_stv);
tkptr = rqptr->DirTaskPtr;
if (tkptr->ListSubDir)
{
/* check the status from the actual sys$parse() */
if (VMSnok (status = tkptr->SearchOds.Fab.fab$l_sts))
{
rqptr->rqResponse.ErrorTextPtr = tkptr->DirPath;
rqptr->rqResponse.ErrorOtherTextPtr = tkptr->DirSpec;
ErrorVmsStatus (rqptr, status, FI_LI);
DirEnd (rqptr);
return;
}
AstFunction = &DirSearchDirectories;
}
else
AstFunction = &DirBeginFiles;
if (tkptr->ListParentDir &&
SAME2(tkptr->DirPath,'/~'))
{
/* no parent directories for top-level user directories */
for (cptr = tkptr->DirPath + 2; *cptr && *cptr != '/'; cptr++);
if (*cptr) cptr++;
while (*cptr && *cptr != '/') cptr++;
if (!*cptr) tkptr->ListParentDir = false;
}
if (tkptr->ListParentDir)
{
cptr = tkptr->DirectoryPart;
sptr = ParentDirVms;
while (*cptr && *cptr != '[') *sptr++ = *cptr++;
if (MATCH8 (cptr, "[000000]"))
{
/* in Master-File-Directory, therefore no parent */
tkptr->ListParentDir = false;
}
else
{
/*
Not in a Master-File-Directory, create a parent directory
(e.g. "DEVICE:[DIR1.DIR2]" from "DEVICE:[DIR1.DIR2.DIR3]",
and "DEVICE:[000000]" from "DEVICE:[DIR1]", etc.)
*/
if (MATCH8 (cptr, "[000000."))
{
/* skip over the Master-File-Directory in the specification */
*sptr++ = *cptr++;
cptr += 7;
}
while (*cptr) *sptr++ = *cptr++;
*sptr = '\0';
while (*sptr != ']') sptr--;
while (*sptr != '[')
{
while (*sptr != '.' && *sptr != '[') sptr--;
if (*sptr == '[' || *(sptr-1) != '^') break;
sptr--;
}
if (*sptr == '.')
{
*sptr++ = ']';
*sptr = '\0';
}
else
memcpy (sptr, "[000000]", 9);
/*
If access is allowed display the details.
Otherwise, its as if the directory just didn't exist!
*/
/* if the VMS profile allows access, why further prohibit it? */
if (!CliDemo &&
!rqptr->rqAuth.SkelKeyAuthenticated &&
!rqptr->rqAuth.VmsUserProfileLength)
{
/* ensure we can read these directory listing "control" files */
sys$setprv (1, &SysPrvMask, 0, 0);
if (OdsFileExists (ParentDirVms, DirHiddenFileName) != RMS$_FNF)
tkptr->ListParentDir = false;
else
if ((Config.cfDir.AccessSelective ||
rqptr->rqPathSet.DirAccessSelective) &&
!rqptr->rqPathSet.DirAccess)
{
if (VMSnok (OdsFileExists (ParentDirVms, DirBrowsableFileName)))
tkptr->ListParentDir = false;
}
sys$setprv (0, &SysPrvMask, 0, 0);
}
}
if (tkptr->ListParentDir)
{
ParentDirPath[0] = '\0';
sptr = MapUrl_Map (ParentDirPath, sizeof(ParentDirPath),
ParentDirVms, 0, NULL, 0, NULL, 0, NULL, 0,
NULL, rqptr, NULL);
if (sptr[0])
{
DirFormat (rqptr, AstFunction, ParentDirPath, false);
return;
}
/*
Mapping error, most probably access forbidden, we'll assume that.
This can happen where a subdirectory is mapable but the parent is
not (e.g. "pass /parent/subd/* /device/parent/subd/*"), making it
forbidden to request "/parent/file" or "/parent/*.*".
Hence, for directory listings, it's as if parent does not exist!
*/
tkptr->ListParentDir = false;
}
}
if (!tkptr->ListParentDir)
{
/* parent directory was not output, explicitly drive the search */
SysDclAst (AstFunction, rqptr);
}
}
/*****************************************************************************/
/*
AST function to invoke another sys$search() call when listing directories.
*/
DirSearchDirectories (REQUEST_STRUCT *rqptr)
{
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirSearchDirectories() !&F !&S",
&DirSearchDirectories, rqptr->NetIoPtr->WriteStatus);
if (rqptr->RequestState >= REQUEST_STATE_ABORT)
{
DirEnd (rqptr);
return;
}
if (VMSnok (rqptr->NetIoPtr->WriteStatus))
{
/* network write has failed (as AST), bail out now */
DirEnd (rqptr);
return;
}
tkptr = rqptr->DirTaskPtr;
AuthAccessEnable (rqptr, tkptr->SearchOds.ExpFileName, AUTH_ACCESS_READ);
OdsSearchNoConceal (&tkptr->SearchOds, &DirDirectories, rqptr);
AuthAccessEnable (rqptr, 0, 0);
}
/*****************************************************************************/
/*
AST completion routine called each time sys$search() completes. It will
either point to another file name found or have "no more files found" status
(or an error!). If a file (directory) has been found check if its a "hidden"
directory and if not format its details for the listing.
*/
DirDirectories (REQUEST_STRUCT *rqptr)
{
int status;
char LocalDirectory [ODS_MAX_FILE_NAME_LENGTH+1];
char *cptr, *sptr;
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
#if WATCH_MOD
HttpdCheckPriv (FI_LI);
#endif /* WATCH_MOD */
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirDirectories() !&F sts:!&S stv:!&S",
&DirDirectories,
rqptr->DirTaskPtr->SearchOds.Fab.fab$l_sts,
rqptr->DirTaskPtr->SearchOds.Fab.fab$l_stv);
if (rqptr->RequestState >= REQUEST_STATE_ABORT)
{
DirEnd (rqptr);
return;
}
tkptr = rqptr->DirTaskPtr;
if (VMSnok (status = tkptr->SearchOds.Fab.fab$l_sts))
{
/* if its a search list treat directory not found as if file not found */
if ((tkptr->SearchOds.Nam_fnb & NAM$M_SEARCH_LIST) && status == RMS$_DNF)
status = RMS$_FNF;
if (status == RMS$_FNF || status == RMS$_NMF)
{
/***************************/
/* end of directory search */
/***************************/
tkptr->SearchOds.ParseInUse = false;
DirBeginFiles (rqptr);
return;
}
/*************************/
/* protection violation? */
/*************************/
if ((status == SS$_NOPRIV || status == RMS$_PRV) &&
Config.cfDir.NoPrivIgnore)
{
tkptr->SearchOds.ParseInUse = false;
if (tkptr->FormatLikeVms)
{
DirFormat (rqptr, &DirEndOutput, "", true);
return;
}
else
{
DirEndOutput (rqptr);
return;
}
}
/**********************/
/* sys$search() error */
/**********************/
rqptr->rqResponse.ErrorTextPtr = tkptr->DirPath;
rqptr->rqResponse.ErrorOtherTextPtr = tkptr->SearchOds.NamDevicePtr;
ErrorVmsStatus (rqptr, status, FI_LI);
DirEnd (rqptr);
return;
}
/* check if the .DIR is really a directory */
status = OdsReallyADir (rqptr, &tkptr->SearchOds);
if (VMSnok (status))
{
DirSearchDirectories (rqptr);
return;
}
/* terminate following the last character in the version number */
tkptr->SearchOds.NamVersionPtr[tkptr->SearchOds.NamVersionLength] = '\0';
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"!&Z", tkptr->SearchOds.NamDevicePtr);
/***********************************/
/* WebDAV metadata (sub)directory? */
/***********************************/
if (WebDavEnabled)
{
if (rqptr->rqPathSet.WebDavRead ||
rqptr->rqPathSet.WebDavWrite ||
rqptr->rqPathSet.WebDavProfile ||
rqptr->rqPathSet.WebDavServer)
{
if (DavMetaDir (rqptr, &tkptr->SearchOds))
{
DirSearchDirectories (rqptr);
return;
}
}
}
/*********************/
/* hidden directory? */
/*********************/
/* Unix-style "hidden" directories do not appear (those beginning ".") */
if (SAME1(tkptr->SearchOds.NamNamePtr,'.') ||
SAME2(tkptr->SearchOds.NamNamePtr,'^.'))
{
/* except in demo mode or to VMS authenticated and profiled requests */
if (rqptr->rqPathSet.WebDavNoHidden ||
!(CliDemo ||
rqptr->rqAuth.SkelKeyAuthenticated ||
rqptr->rqAuth.VmsUserProfileLength))
{
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR, ".DIRECTORY (hidden)");
DirSearchDirectories (rqptr);
return;
}
}
/************************/
/* directory access ok? */
/************************/
/*
Create a directory specification from a directory file name.
(e.g. "DEVICE:[DIR1.DIR2]" from "DEVICE:[DIR1]DIR2.DIR")
*/
sptr = LocalDirectory;
cptr = tkptr->SearchOds.NamDevicePtr;
tkptr->SearchOds.NamTypePtr[0] = '\0';
while (*cptr) *sptr++ = *cptr++;
tkptr->SearchOds.NamTypePtr[0] = '.';
*sptr++ = ']';
*sptr = '\0';
sptr -= 2;
while (*sptr != ']') sptr--;
*sptr = '.';
/*
If access is allowed display the details.
Otherwise, its as if the directory just didn't exist!
Access may also be denied if file protections prevent checking!
*/
if (CliDemo ||
rqptr->rqAuth.SkelKeyAuthenticated ||
rqptr->rqAuth.VmsUserProfileLength)
{
/* the VMS security profile allows access, why further prohibit it? */
status = SS$_NORMAL;
}
else
if (VMSok (status = OdsFileExists (LocalDirectory, DirHiddenFileName)))
status = RMS$_DNF;
else
if ((Config.cfDir.AccessSelective ||
rqptr->rqPathSet.DirAccessSelective) &&
!rqptr->rqPathSet.DirAccess)
status = OdsFileExists (LocalDirectory, DirBrowsableFileName);
else
status = SS$_NORMAL;
if (VMSnok (status))
{
/* directory shouldn't/couldn't be accessed */
DirSearchDirectories (rqptr);
return;
}
tkptr->Description[0] = '\0';
ConfigContentType (&tkptr->ContentInfo, tkptr->SearchOds.NamTypePtr);
DirFormat (rqptr, &DirSearchDirectories, "", false);
}
/*****************************************************************************/
/*
Initiate the listing of non-directory files.
*/
DirBeginFiles (REQUEST_STRUCT *rqptr)
{
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirBeginFiles() !&F", &DirBeginFiles);
tkptr = rqptr->DirTaskPtr;
AuthAccessEnable (rqptr, tkptr->SearchOds.ExpFileName, AUTH_ACCESS_READ);
/* OdsParse() NAM$M_NOCONCEAL before OdsSearchNoConceal() */
OdsParse (&tkptr->SearchOds,
tkptr->FilePart, 0, tkptr->DirectoryPart, 0, NAM$M_NOCONCEAL,
&DirBeginFilesParseAst, rqptr);
AuthAccessEnable (rqptr, 0, 0);
}
/*****************************************************************************/
/*
Asynchronous parse from DirBeginFiles() has completed.
*/
DirBeginFilesParseAst (REQUEST_STRUCT *rqptr)
{
int status;
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirBeginFilesParseAst() !&F sts:!&S stv:!&S",
&DirBeginFilesParseAst,
rqptr->DirTaskPtr->SearchOds.Fab.fab$l_sts,
rqptr->DirTaskPtr->SearchOds.Fab.fab$l_stv);
tkptr = rqptr->DirTaskPtr;
/* check the status from the actual sys$parse() */
if (VMSnok (status = tkptr->SearchOds.Fab.fab$l_sts))
{
rqptr->rqResponse.ErrorTextPtr = tkptr->DirPath;
rqptr->rqResponse.ErrorOtherTextPtr = tkptr->DirSpec;
ErrorVmsStatus (rqptr, status, FI_LI);
DirEnd (rqptr);
return;
}
if (WebDavEnabled)
{
/* WebDAV metadata (sub)directory? */
if (rqptr->rqPathSet.WebDavRead ||
rqptr->rqPathSet.WebDavWrite ||
rqptr->rqPathSet.WebDavProfile ||
rqptr->rqPathSet.WebDavServer)
{
if (DavMetaDir (rqptr, &tkptr->SearchOds))
{
DirEnd (rqptr);
return;
}
}
}
/* fudge this status for the first call */
rqptr->NetIoPtr->WriteStatus = SS$_NORMAL;
DirSearchFiles (rqptr);
}
/*****************************************************************************/
/*
AST completion routine called each time sys$search() completes. It will
either point to another file found or have "no more files found" status
(or an error!).
*/
DirSearchFiles (REQUEST_STRUCT *rqptr)
{
int status;
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR, "DirSearchFiles() !&F !&S",
&DirSearchFiles, rqptr->NetIoPtr->WriteStatus);
if (rqptr->RequestState >= REQUEST_STATE_ABORT)
{
DirEnd (rqptr);
return;
}
if (VMSnok (rqptr->NetIoPtr->WriteStatus))
{
/* network write has failed (as AST), bail out now */
DirEnd (rqptr);
return;
}
tkptr = rqptr->DirTaskPtr;
AuthAccessEnable (rqptr, tkptr->SearchOds.ExpFileName, AUTH_ACCESS_READ);
OdsSearchNoConceal (&tkptr->SearchOds, &DirFiles, rqptr);
AuthAccessEnable (rqptr, 0, 0);
}
/*****************************************************************************/
/*
This is an AST completion routine called each time sys$search() completes. It
will either point to another file name found or have "no more files found"
status (or an error!). If a file call a function to determine if the file
will contain a "description". When that function returns just return to the
AST interrupted routine.
*/
DirFiles (REQUEST_STRUCT *rqptr)
{
int status;
char *cptr, *sptr;
REQUEST_AST AstFunction;
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
#if WATCH_MOD
HttpdCheckPriv (FI_LI);
#endif /* WATCH_MOD */
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirFiles() !&F sts:!&S stv:!&S",
&DirFiles,
rqptr->DirTaskPtr->SearchOds.Fab.fab$l_sts,
rqptr->DirTaskPtr->SearchOds.Fab.fab$l_stv);
if (rqptr->RequestState >= REQUEST_STATE_ABORT)
{
DirEnd (rqptr);
return;
}
tkptr = rqptr->DirTaskPtr;
if (VMSnok (status = tkptr->SearchOds.Fab.fab$l_sts))
{
/* if its a search list treat directory not found as if file not found */
if ((tkptr->SearchOds.Nam_fnb & NAM$M_SEARCH_LIST) &&
status == RMS$_DNF)
status = RMS$_FNF;
if (status == RMS$_FNF || status == RMS$_NMF)
{
/**********************/
/* end of file search */
/**********************/
tkptr->SearchOds.ParseInUse = false;
if (tkptr->FormatLikeVms)
{
DirFormat (rqptr, &DirEndOutput, "", true);
return;
}
else
{
DirEndOutput (rqptr);
return;
}
}
/**********************/
/* sys$search() error */
/**********************/
rqptr->rqResponse.ErrorTextPtr = tkptr->DirPath;
rqptr->rqResponse.ErrorOtherTextPtr = tkptr->SearchOds.NamDevicePtr;
ErrorVmsStatus (rqptr, status, FI_LI);
DirEnd (rqptr);
return;
}
/* terminate following the last character in the version number */
tkptr->SearchOds.NamVersionPtr[tkptr->SearchOds.NamVersionLength] = '\0';
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"!&Z", tkptr->SearchOds.NamDevicePtr);
/* we've already output the directories, ignore them */
if (MATCH5 (tkptr->SearchOds.NamTypePtr, ".DIR;") ||
MATCH5 (tkptr->SearchOds.NamTypePtr, ".dir;"))
{
/* check if the .DIR is really a directory */
status = OdsReallyADir (rqptr, &tkptr->SearchOds);
if (VMSok (status))
{
DirSearchFiles (rqptr);
return;
}
}
/* in true Unix-style "hidden" files do not appear (those beginning ".") */
if (SAME1(tkptr->SearchOds.NamNamePtr,'.') ||
SAME2(tkptr->SearchOds.NamNamePtr,'^.'))
{
/* except in demo mode or to VMS authenticated and profiled requests */
if (rqptr->rqPathSet.WebDavNoHidden ||
!(CliDemo ||
rqptr->rqAuth.SkelKeyAuthenticated ||
rqptr->rqAuth.VmsUserProfileLength))
{
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR, ".FILE (hidden)");
DirSearchFiles (rqptr);
return;
}
}
if (DavMetaFile (&tkptr->SearchOds))
{
/* found one, next file please */
DirSearchFiles (rqptr);
return;
}
if (tkptr->ThesePtr)
{
if (!DirTheseFiles (rqptr))
{
/* nope, next file please */
DirSearchFiles (rqptr);
return;
}
}
if (tkptr->VersionsOf)
{
if (tkptr->VersionLength)
if (tkptr->VersionLength != tkptr->SearchOds.NamNameLength +
tkptr->SearchOds.NamTypeLength)
tkptr->VersionLength = 0;
if (tkptr->VersionLength)
if (strncmp (tkptr->VersionName,
tkptr->SearchOds.NamNamePtr,
tkptr->VersionLength))
tkptr->VersionLength = 0;
if (!tkptr->VersionLength)
{
tkptr->VersionLength = tkptr->SearchOds.NamNameLength +
tkptr->SearchOds.NamTypeLength;
memcpy (tkptr->VersionName,
tkptr->SearchOds.NamNamePtr,
tkptr->VersionLength);
tkptr->VersionName[tkptr->VersionLength] = '\0';
tkptr->VersionCount = 0;
}
if (tkptr->VersionCount++ >= tkptr->VersionsOf)
{
/* enough is enough! */
DirSearchFiles (rqptr);
return;
}
}
if (tkptr->SearchOds.NamTypeLength <= 1)
{
/* no explicit type - look to see if name contains escaped period */
for (cptr = tkptr->SearchOds.NamNamePtr;
cptr < tkptr->SearchOds.NamTypePtr;
cptr++)
if (*(USHORTPTR)cptr == '^.') break;
if (cptr < tkptr->SearchOds.NamTypePtr)
{
/* escaped period - do not list these ambiguous file names */
if (WATCHING (rqptr, WATCH_RESPONSE))
WatchThis (WATCHITM(rqptr), WATCH_RESPONSE,
"^.NAME.; !AZ", tkptr->SearchOds.NamNamePtr);
DirSearchFiles (rqptr);
return;
}
}
if (rqptr->PathOds == MAPURL_PATH_ODS_ADS ||
rqptr->PathOds == MAPURL_PATH_ODS_SMB)
cptr = MapOdsAdsFileType (tkptr->SearchOds.NamTypePtr);
else
if (rqptr->PathOds == MAPURL_PATH_ODS_SRI)
cptr = MapOdsSriFileType (tkptr->SearchOds.NamTypePtr);
else
cptr = tkptr->SearchOds.NamTypePtr;
ConfigContentType (&tkptr->ContentInfo, cptr);
if (Config.cfDir.DescriptionLines &&
ConfigSameContentType (tkptr->ContentInfo.ContentTypePtr,
"text/html", -1))
{
/* generate an HTML description */
Description (rqptr,
&DirEndDescription,
tkptr->SearchOds.ResFileName,
tkptr->Description,
sizeof(tkptr->Description),
DESCRIPTION_TEXT_HTML);
return;
}
else
{
/* description is the content-type */
tkptr->Description[0] = '\0';
DirFormat (rqptr, &DirSearchFiles, "", false);
return;
}
}
/*****************************************************************************/
/*
*/
DirEndDescription (REQUEST_STRUCT *rqptr)
{
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirEndDescription() !&F", &DirEndDescription);
DirFormat (rqptr, &DirSearchFiles, "", false);
}
/*****************************************************************************/
/*
Directories have been listed, files have been listed. If appropriate provide
a readme at the bottom, then conclude the HTML and the directory listing.
*/
DirEndOutput (REQUEST_STRUCT *rqptr)
{
static $DESCRIPTOR (ColSpanFaoDsc,
"!AZ\
<tr><td colspan=\"!UL\"><hr size=\"1\" noshade></td></tr>\n\
</tfoot>\n\
</table>\n\0");
static $DESCRIPTOR (DirSortFaoDsc,
"!AZ<script language=\"JavaScript\">wasdDirSort(\'!AZ\',true)</script>\n\0");
static char DirSort [256];
static $DESCRIPTOR (DirSortDsc, DirSort);
int cnt, status;
unsigned short slen = 0;
char *cptr, *sptr;
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirEndOutput() !&F", &DirEndOutput);
/* get the pointer to the task structure */
tkptr = rqptr->DirTaskPtr;
if (tkptr->DirDelimit == MAPURL_DIR_DELIMIT_BOTH ||
tkptr->DirDelimit == MAPURL_DIR_DELIMIT_FOOTER)
{
if (tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT)
{
sys$fao (&ColSpanFaoDsc, &slen, &DirColSpanDsc,
tkptr->DirFormatBlockTotals ? "" : "</tbody>\n<tfoot>\n",
tkptr->ColSpanCount);
cptr = DirColSpan;
slen--;
if (tkptr->DirSort[0])
{
sys$fao (&DirSortFaoDsc, &slen, &DirSortDsc,
cptr, tkptr->DirSort);
cptr = DirSort;
slen--;
}
}
else
if (tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
{
if (tkptr->DirFormatBlockTotals)
cptr = "</tfoot>\n</table>\n";
else
cptr = "</tbody>\n</table>\n";
slen = 18;
if (tkptr->DirSort[0])
{
sys$fao (&DirSortFaoDsc, &slen, &DirSortDsc,
cptr, tkptr->DirSort);
cptr = DirSort;
slen--;
}
}
else
if (tkptr->DirStyle == MAPURL_DIR_STYLE_ANCHOR2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_HTDIR2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_ORIGINAL2)
{
cptr = "\n</pre>\n";
slen = 8;
}
else
{
cptr = "\n<hr size=\"1\" noshade></pre>\n";
slen = 29;
}
}
else
if (tkptr->DirStyleTabular)
{
if (tkptr->DirFormatBlockTotals)
cptr = "</tfoot>\n</table>\n";
else
cptr = "</tbody>\n</table>\n";
slen = 16;
if (tkptr->DirSort[0])
{
sys$fao (&DirSortFaoDsc, &slen, &DirSortDsc, cptr, tkptr->DirSort);
cptr = DirSort;
slen--;
}
}
else
{
/* footer not required, just tie-off the preformatted text */
cptr = "</pre>\n";
slen = 7;
}
if (Config.cfDir.ReadMeBottom && tkptr->IncludeAnyReadme)
NetWriteBuffered (rqptr, DirReadMeBottom, cptr, slen);
else
NetWriteBuffered (rqptr, DirEnd, cptr, slen);
}
/*****************************************************************************/
/*
A series of null-terminated strings (wildcarded file names and/or types) are
each matched to the name and type of the currently searched-for file. Return
true if the file is matched, false if not. Preceding a string with a '!'
negates the match (i.e. not these files). First match is considered a hit.
*/
BOOL DirTheseFiles (REQUEST_STRUCT *rqptr)
{
BOOL hit = false,
negate = false;
char *cptr;
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR, "DirTheseFiles() !AZ",
rqptr->DirTaskPtr->ThesePtr);
/* get the pointer to the task structure */
tkptr = rqptr->DirTaskPtr;
*tkptr->SearchOds.NamVersionPtr = '\0';
cptr = tkptr->ThesePtr;
while (*cptr)
{
if (negate = (*cptr == '!')) cptr++;
if (hit = StringMatch (NULL, tkptr->SearchOds.NamNamePtr, cptr)) break;
while (*cptr) cptr++;
if (*(cptr+1)) cptr++;
}
*tkptr->SearchOds.NamVersionPtr = ';';
if (negate) return (!hit);
return (hit);
}
/*****************************************************************************/
/*
Using the directive string pointed to by 'tkptr->LayoutPtr' format the
directory listing column headings and sys$fao() directive string used to format
the information for each directory/file. Return normal or error status. This
function buffers the details of the default generic and VMS directory layout
the first time each is required. There-after the buffered layout information
is used, reducing overhead. Only if a user-supplied layout is required does
any format processing occur again.
*/
DirFormatLayout (REQUEST_STRUCT *rqptr)
{
# define LAYOUT_SIZE 512
static BOOL MakeDescriptionLink,
ShowNoType,
ShowUpperCase;
static int FieldWidthCdt,
FieldWidthDescription,
FieldWidthName,
FieldWidthOwner,
FieldWidthRdt,
FieldWidthSize,
HeadingCreatedLength,
HeadingDescriptionLength,
HeadingNameLength,
HeadingOwnerLength,
HeadingProtectionLength,
HeadingRevisedLength,
HeadingSizeLength,
LayoutFaoLength,
LayoutHeadingLength,
LayoutSizeKilo,
VmsFieldWidthCdt,
VmsFieldWidthDescription,
VmsFieldWidthName,
VmsFieldWidthOwner,
VmsFieldWidthRdt,
VmsFieldWidthSize,
VmsLayoutFaoLength,
VmsLayoutHeadingLength,
VmsLayoutSizeKilo;
static char LayoutFao [LAYOUT_SIZE/2],
LayoutHeading [LAYOUT_SIZE],
VmsLayoutFao [LAYOUT_SIZE/2],
VmsLayoutHeading [LAYOUT_SIZE];
static char *HeadingCreatedPtr,
*HeadingDescriptionPtr,
*HeadingNamePtr,
*HeadingOwnerPtr,
*HeadingProtectionPtr,
*HeadingRevisedPtr,
*HeadingSizePtr,
*ColumnHeadingsPtr;
static $DESCRIPTOR (ColSpanFaoDsc,
"</tr>\n\
<tr><td colspan=\"!UL\"><hr size=\"1\" noshade></td></tr>\n\
</thead>\n\
<tbody>\n\0");
BOOL ForbiddenLayout,
IconInPlace;
int cnt, idx, size;
char String [LAYOUT_SIZE];
char *aptr, *cptr, *lptr, *sptr, *wptr, *zptr,
*LayoutBufferPtr,
*LayoutFaoPtr,
*LayoutHeadingPtr;
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR, "DirFormatLayout()");
/* get the pointer to the task structure */
tkptr = rqptr->DirTaskPtr;
IconInPlace = false;
tkptr->MakeDescriptionLink = false;
if (!ColumnHeadingsPtr)
{
/******************************/
/* initialize column headings */
/******************************/
sptr = MsgFor(rqptr,MSG_DIR_COLUMN_HEADINGS);
cptr = ColumnHeadingsPtr = VmGet (strlen(sptr));
strcpy (cptr, sptr);
HeadingCreatedPtr = cptr;
while (*cptr && *cptr != '|') cptr++;
if (*cptr) *cptr++ = '\0';
HeadingCreatedLength = strlen(HeadingCreatedPtr);
HeadingDescriptionPtr = cptr;
while (*cptr && *cptr != '|') cptr++;
if (*cptr) *cptr++ = '\0';
HeadingDescriptionLength = strlen(HeadingDescriptionPtr);
HeadingNamePtr = cptr;
while (*cptr && *cptr != '|') cptr++;
if (*cptr) *cptr++ = '\0';
HeadingNameLength = strlen(HeadingNamePtr);
HeadingOwnerPtr = cptr;
while (*cptr && *cptr != '|') cptr++;
if (*cptr) *cptr++ = '\0';
HeadingOwnerLength = strlen(HeadingOwnerPtr);
HeadingProtectionPtr = cptr;
while (*cptr && *cptr != '|') cptr++;
if (*cptr) *cptr++ = '\0';
HeadingProtectionLength = strlen(HeadingProtectionPtr);
HeadingRevisedPtr = cptr;
while (*cptr && *cptr != '|') cptr++;
if (*cptr) *cptr++ = '\0';
HeadingRevisedLength = strlen(HeadingRevisedPtr);
HeadingSizePtr = cptr;
while (*cptr && *cptr != '|') cptr++;
if (*cptr) *cptr++ = '\0';
HeadingSizeLength = strlen(HeadingSizePtr);
}
if (!tkptr->LayoutPtr)
{
/******************/
/* default layout */
/******************/
if (Config.cfDir.DefaultLayout[0])
tkptr->LayoutPtr = Config.cfDir.DefaultLayout;
else
tkptr->LayoutPtr = DirDefaultLayout;
if (tkptr->DirStyle <= 0)
{
/* default or no style */
if (!tkptr->FormatLikeVms && LayoutFaoLength)
{
/* default generic heading and fao have already been generated */
tkptr->LayoutFaoPtr = LayoutFao;
tkptr->LayoutFaoLength = LayoutFaoLength;
tkptr->LayoutHeadingPtr = LayoutHeading;
tkptr->LayoutHeadingLength = LayoutHeadingLength;
tkptr->FieldWidthCdt = FieldWidthCdt;
tkptr->FieldWidthDescription = FieldWidthDescription;
tkptr->FieldWidthName = FieldWidthName;
tkptr->FieldWidthOwner = FieldWidthOwner;
tkptr->FieldWidthRdt = FieldWidthRdt;
tkptr->FieldWidthSize = FieldWidthSize;
tkptr->SizeKilo = LayoutSizeKilo;
tkptr->MakeDescriptionLink = MakeDescriptionLink;
tkptr->ShowNoType = ShowNoType;
tkptr->ShowUpperCase = ShowUpperCase;
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
{
WatchData (LayoutHeading, strlen(LayoutHeading));
WatchData (LayoutFao, strlen(LayoutFao));
}
return (SS$_NORMAL);
}
if (tkptr->FormatLikeVms && VmsLayoutFaoLength)
{
/* default VMS heading and fao have already been generated */
tkptr->LayoutFaoPtr = VmsLayoutFao;
tkptr->LayoutFaoLength = VmsLayoutFaoLength;
tkptr->LayoutHeadingPtr = VmsLayoutHeading;
tkptr->LayoutHeadingLength = VmsLayoutHeadingLength;
tkptr->FieldWidthCdt = VmsFieldWidthCdt;
tkptr->FieldWidthDescription = VmsFieldWidthDescription;
tkptr->FieldWidthName = VmsFieldWidthName;
tkptr->FieldWidthOwner = VmsFieldWidthOwner;
tkptr->FieldWidthRdt = VmsFieldWidthRdt;
tkptr->FieldWidthSize = VmsFieldWidthSize;
tkptr->SizeKilo = VmsLayoutSizeKilo;
tkptr->MakeDescriptionLink = MakeDescriptionLink;
tkptr->ShowNoType = ShowNoType;
tkptr->ShowUpperCase = ShowUpperCase;
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
{
WatchData (VmsLayoutHeading, strlen(VmsLayoutHeading));
WatchData (VmsLayoutFao, strlen(VmsLayoutFao));
}
return (SS$_NORMAL);
}
/* default headings and layouts have not been generated ... do it! */
if (tkptr->FormatLikeVms)
{
/* use the function-internal VMS buffers */
LayoutHeadingPtr = VmsLayoutHeading;
LayoutFaoPtr = VmsLayoutFao;
}
else
{
/* use the function-internal generic buffers */
LayoutHeadingPtr = LayoutHeading;
LayoutFaoPtr = LayoutFao;
}
}
else
{
/* use scratch space to generate the non-default heading and fao */
LayoutHeadingPtr = LayoutFaoPtr = String;
tkptr->SizeKilo = 1024;
}
}
else
{
/**********************/
/* non-default layout */
/**********************/
/* use scratch space to generate the non-default heading and fao */
LayoutHeadingPtr = LayoutFaoPtr = String;
tkptr->SizeKilo = 1024;
}
if (tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT)
for (cptr = tkptr->LayoutPtr; *cptr; cptr++)
if (isupper(*cptr)) tkptr->ColSpanCount++;
/********************************/
/* assess layout for forbiddens */
/********************************/
if (!Config.cfDir.OwnerEnabled && !rqptr->rqAuth.VmsUserProfileLength)
{
/* remove OWNER and PROTECTION directives if found */
ForbiddenLayout = false;
cptr = tkptr->LayoutPtr;
while (*cptr)
{
if (*cptr == ':')
{
cptr++;
if (*cptr) cptr++;
continue;
}
if (TOUP(*cptr) == 'P' || TOUP(*cptr) == 'O')
{
ForbiddenLayout = true;
cptr++;
continue;
}
cptr++;
}
if (ForbiddenLayout)
{
/* remove forbidden directives creating new layout dynamic buffer */
sptr = LayoutBufferPtr = VmGetHeap (rqptr, LAYOUT_SIZE);
zptr = sptr + LAYOUT_SIZE;
cptr = tkptr->LayoutPtr;
while (*cptr)
{
if (sptr >= zptr) break;
if (*cptr == ':')
{
if (sptr < zptr) *sptr++ = *cptr++;
if (*cptr && sptr < zptr) *sptr++ = *cptr++;
continue;
}
if (TOUP(*cptr) == 'P' || TOUP(*cptr) == 'O')
{
cptr++;
while (*cptr == '_') cptr++;
continue;
}
if (sptr < zptr) *sptr++ = *cptr++;
}
if (sptr >= zptr)
{
ErrorGeneralOverflow (rqptr, FI_LI);
DirEnd (rqptr);
return;
}
*sptr = '\0';
tkptr->LayoutPtr = LayoutBufferPtr;
}
}
/******************************/
/* first, the column headings */
/******************************/
zptr = (sptr = LayoutHeadingPtr) + LAYOUT_SIZE;
lptr = tkptr->LayoutPtr;
wptr = NULL;
switch (tkptr->DirStyle)
{
case MAPURL_DIR_STYLE_ANCHOR :
cptr = "<pre class=\"anchor\">"; break;
case MAPURL_DIR_STYLE_ANCHOR2 :
cptr = "<pre class=\"anchor2\">"; break;
case MAPURL_DIR_STYLE_HTDIR :
cptr = "<pre class=\"htdir\">"; break;
case MAPURL_DIR_STYLE_HTDIR2 :
cptr = "<pre class=\"htdir2\">"; break;
case MAPURL_DIR_STYLE_ORIGINAL :
cptr = "<pre class=\"original\">"; break;
case MAPURL_DIR_STYLE_ORIGINAL2 :
cptr = "<pre class=\"original2\">"; break;
case MAPURL_DIR_STYLE_TABLE :
cptr = "<p><table class=\"tblst\">\n<thead>\n<tr>"; break;
case MAPURL_DIR_STYLE_TABLE2 :
cptr = "<p><table class=\"tblst list2\">\n<thead>\n<tr>"; break;
case MAPURL_DIR_STYLE_SORT :
cptr = "<p><table class=\"sortable\">\n<thead>\n<tr>"; break;
case MAPURL_DIR_STYLE_SORT2 :
cptr = "<p><table class=\"sortable sort2\">\n<thead>\n<tr>"; break;
default :
cptr = "<pre>";
}
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
while (*lptr && *lptr != '&' && sptr < zptr)
{
if (isdigit(*lptr))
{
wptr = lptr;
while (*lptr && isdigit(*lptr)) lptr++;
continue;
}
else
wptr = NULL;
if (wptr && wptr[0])
{
cnt = atoi(wptr);
if (cnt < 0) cnt = 0;
}
else
cnt = 0;
switch (TOUP(*lptr))
{
case ' ' :
case '_' :
if (!cnt) cnt = DEFAULT_FIELD_WIDTH_INTERFIELD;
break;
case 'C' :
cptr = HeadingCreatedPtr;
if (!cnt) cnt = DEFAULT_FIELD_WIDTH_CDT;
if (cnt < (size = HeadingCreatedLength)) cnt = size;
if (tkptr->FormatLikeVms) cnt += 5;
tkptr->FieldWidthCdt = cnt;
break;
case 'D' :
/* flush left */
cptr = HeadingDescriptionPtr;
if (cnt)
{
if (cnt > 255) cnt = 255;
if (cnt < (size = HeadingDescriptionLength)) cnt = size;
tkptr->FieldWidthDescription = cnt;
}
else
{
cnt = size = HeadingDescriptionLength;
tkptr->FieldWidthDescription = 0;
}
if (lptr[1] == LAYOUT_PARAMETER)
{
switch (TOUP(lptr[2]))
{
case 'L' :
tkptr->MakeDescriptionLink = true;
break;
default :
/* unknown layout directive character */
rqptr->rqResponse.HttpStatus = 501;
ErrorGeneral (rqptr, MsgFor(rqptr,MSG_DIR_LAYOUT), FI_LI);
return (STS$K_ERROR);
}
}
break;
case 'I' : /* icon */
break;
case 'L' :
case 'N' :
cptr = HeadingNamePtr;
if (tkptr->DirStyleTabular)
{
cnt = size = HeadingNameLength;
tkptr->FieldWidthName = 0;
}
else
{
if (!cnt) cnt = DEFAULT_FIELD_WIDTH_NAME;
if (cnt < (size = HeadingNameLength)) cnt = size;
tkptr->FieldWidthName = cnt;
}
/* this layout parameter can be used like "L:F:U" */
idx = 0;
while (lptr[idx+1] == LAYOUT_PARAMETER)
{
switch (TOUP(lptr[idx+2]))
{
case 'F' :
/* for backward compatibility just ignore this */
break;
case 'N' :
tkptr->ShowNoType = true;
break;
case 'U' :
tkptr->ShowUpperCase = true;
break;
default :
/* unknown layout directive character */
rqptr->rqResponse.HttpStatus = 501;
ErrorGeneral (rqptr, MsgFor(rqptr,MSG_DIR_LAYOUT), FI_LI);
return (STS$K_ERROR);
}
idx += 2;
}
break;
case 'O' :
cptr = HeadingOwnerPtr;
if (!cnt) cnt = DEFAULT_FIELD_WIDTH_OWNER;
if (cnt < (size = HeadingOwnerLength)) cnt = size;
tkptr->FieldWidthOwner = cnt;
break;
case 'P' :
cptr = HeadingProtectionPtr;
if (!cnt) cnt = DEFAULT_FIELD_WIDTH_PROTECTION;
if (cnt < (size = HeadingProtectionLength)) cnt = size;
tkptr->FieldWidthProtection = cnt;
break;
case 'R' :
cptr = HeadingRevisedPtr;
if (!cnt) cnt = DEFAULT_FIELD_WIDTH_RDT;
if (cnt < (size = HeadingRevisedLength)) cnt = size;
if (tkptr->FormatLikeVms) cnt += 5;
tkptr->FieldWidthRdt = cnt;
break;
case 'S' :
/* this layout parameter can be used like "S:2:F" */
idx = 0;
while (lptr[idx+1] == LAYOUT_PARAMETER)
{
switch (TOUP(lptr[idx+2]))
{
case '0' :
tkptr->SizeKilo = 1000;
break;
case '2' :
tkptr->SizeKilo = 1024;
break;
case 'D' :
tkptr->SizeKilo = 1000;
/* drop thru into 'f' */
case 'F' :
if (!cnt) cnt = DEFAULT_FIELD_WIDTH_SIZE;
if (cnt < (size = DEFAULT_FIELD_WIDTH_SIZE - 2))
cnt = size;
break;
case 'B' :
case 'K' :
case 'M' :
if (!cnt) cnt = DEFAULT_FIELD_WIDTH_DECIMAL;
if (cnt < (size = DEFAULT_FIELD_WIDTH_DECIMAL - 7))
cnt = size;
break;
case 'V' :
if (!cnt) cnt = DEFAULT_FIELD_WIDTH_SIZE;
if (cnt < (size = DEFAULT_FIELD_WIDTH_SIZE - 2))
cnt = size;
break;
default :
/* unknown layout directive character */
rqptr->rqResponse.HttpStatus = 501;
ErrorGeneral (rqptr, MsgFor(rqptr,MSG_DIR_LAYOUT), FI_LI);
return (STS$K_ERROR);
}
idx += 2;
}
if (tkptr->FormatLikeVms)
{
if (!cnt) cnt = DEFAULT_FIELD_WIDTH_SIZE;
if (cnt < (size = DEFAULT_FIELD_WIDTH_SIZE - 2)) cnt = size;
/* expand size field width by 7 for blocks allocated/used */
cnt += 7;
}
else
{
if (!cnt) cnt = DEFAULT_FIELD_WIDTH_SIZE;
if (cnt < (size = DEFAULT_FIELD_WIDTH_SIZE - 2)) cnt = size;
/* expand size field width by 7 for blocks allocated/used */
if (tkptr->FormatLikeVms) cnt += 7;
}
cptr = HeadingSizePtr;
tkptr->FieldWidthSize = cnt;
break;
case 'U' :
/* force to upper case, just ignore, MUST be first directive */
tkptr->ShowUpperCase = true;
break;
default :
/* unknown layout directive character */
rqptr->rqResponse.HttpStatus = 501;
ErrorGeneral (rqptr, MsgFor(rqptr,MSG_DIR_LAYOUT), FI_LI);
return (STS$K_ERROR);
}
switch (TOUP(*lptr))
{
case ' ' :
case '_' :
if (tkptr->DirStyleTabular) break;
while (cnt-- && sptr < zptr) *sptr++ = ' ';
break;
case 'C' :
case 'R' :
case 'S' :
if (tkptr->DirStyleTabular)
{
if (tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE ||
tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE2)
aptr = "<td class=\"rghtd\"><b>";
else
{
if (TOUP(*lptr) == 'C')
aptr = "<td id=\"wasdC\" class=\"rghtd\"><b>";
else
if (TOUP(*lptr) == 'R')
aptr = "<td id=\"wasdR\" class=\"rghtd\"><b>";
else
aptr = "<td id=\"wasdS\" class=\"rghtd\"><b>";
}
while (*aptr && sptr < zptr) *sptr++ = *aptr++;
if (tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
for (aptr = "<u>"; *aptr && sptr < zptr; *sptr++ = *aptr++);
}
else
{
/* flush the column heading right using spaces */
if (cnt) cnt -= size;
while (cnt-- && sptr < zptr) *sptr++ = ' ';
for (aptr = "<b>"; *aptr && sptr < zptr; *sptr++ = *aptr++);
if (tkptr->DirStyle == MAPURL_DIR_STYLE_ANCHOR2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_HTDIR2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_ORIGINAL2)
for (aptr = "<u>"; *aptr && sptr < zptr; *sptr++ = *aptr++);
}
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
if (tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_ANCHOR2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_HTDIR2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_ORIGINAL2)
for (aptr = "</u>"; *aptr && sptr < zptr; *sptr++ = *aptr++);
for (aptr = "</b>"; *aptr && sptr < zptr; *sptr++ = *aptr++);
if (tkptr->DirStyleTabular)
for (aptr = "</td>"; *aptr && sptr < zptr; *sptr++ = *aptr++);
break;
case 'D' :
case 'L' :
case 'N' :
case 'O' :
case 'P' :
if (tkptr->DirStyleTabular)
{
if (tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE ||
tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE2)
aptr = "<td><b>";
else
{
switch (TOUP(*lptr))
{
case 'D' : aptr = "<td id=\"wasdD\"><b>"; break;
case 'L' : aptr = "<td id=\"wasdL\"><b>"; break;
case 'N' : aptr = "<td id=\"wasdN\"><b>"; break;
case 'O' : aptr = "<td id=\"wasdO\"><b>"; break;
case 'P' : aptr = "<td id=\"wasdP\"><b>";
}
}
while (*aptr && sptr < zptr) *sptr++ = *aptr++;
if (tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
for (aptr = "<u>"; *aptr && sptr < zptr; *sptr++ = *aptr++);
}
else
{
for (aptr = "<b>"; *aptr && sptr < zptr; *sptr++ = *aptr++);
if (tkptr->DirStyle == MAPURL_DIR_STYLE_ANCHOR2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_HTDIR2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_ORIGINAL2)
for (aptr = "<u>"; *aptr && sptr < zptr; *sptr++ = *aptr++);
}
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
if (tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_ANCHOR2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_HTDIR2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_ORIGINAL2)
for (aptr = "</u>"; *aptr && sptr < zptr; *sptr++ = *aptr++);
for (aptr = "</b>"; *aptr && sptr < zptr; *sptr++ = *aptr++);
if (tkptr->DirStyleTabular)
for (aptr = "</td>"; *aptr && sptr < zptr; *sptr++ = *aptr++);
else
{
/* flush the column heading left using spaces */
if (cnt) cnt -= size;
while (cnt-- && sptr < zptr) *sptr++ = ' ';
}
break;
case 'I' :
if (tkptr->DirStyleTabular)
{
if (tkptr->DirStyle == MAPURL_DIR_STYLE_SORT ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
cptr = "<td id=\"wasdI\">▼▲</td>";
else
cptr = "<td></td>";
}
else
cptr = ConfigBlankIconPtr;
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
IconInPlace = true;
break;
}
while (lptr[1] == LAYOUT_PARAMETER) lptr += 2;
lptr++;
}
if (tkptr->DirStyle == MAPURL_DIR_STYLE_ANCHOR2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_HTDIR2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_ORIGINAL2)
cptr = "\n";
else
if (tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT)
{
sys$fao (&ColSpanFaoDsc, NULL, &DirColSpanDsc, tkptr->ColSpanCount);
cptr = DirColSpan;
}
else
if (tkptr->DirStyle == MAPURL_DIR_STYLE_TABLE2 ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
cptr = "</tr>\n</thead>\n<tbody>\n";
else
if (tkptr->DirStyle == MAPURL_DIR_STYLE_HTDIR)
{
if (IconInPlace)
cptr = "\n<hr size=\"1\" noshade>\n";
else
/* when an icon not providing appropriate line spacing to the <hr> */
cptr = "\n\n<hr size=\"1\" noshade>\n";
}
else
{
if (IconInPlace)
cptr = "\n<hr size=\"1\" noshade>\n";
else
/* when an icon not providing appropriate line spacing to the <hr> */
cptr = "\n\n<hr size=\"1\" noshade>\n";
}
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
if (sptr >= zptr)
{
/* should be enough for all but a deliberate formatting hack! */
rqptr->rqResponse.HttpStatus = 501;
ErrorGeneral (rqptr, MsgFor(rqptr,MSG_DIR_LAYOUT), FI_LI);
return (STS$K_ERROR);
}
*sptr = '\0';
cnt = sptr - LayoutHeadingPtr;
if (LayoutHeadingPtr == LayoutHeading)
{
/* first time a generic layout has been required, buffer details */
tkptr->LayoutHeadingPtr = LayoutHeading;
tkptr->LayoutHeadingLength = LayoutHeadingLength = cnt;
FieldWidthCdt = tkptr->FieldWidthCdt;
FieldWidthDescription = tkptr->FieldWidthDescription;
FieldWidthName = tkptr->FieldWidthName;
FieldWidthOwner = tkptr->FieldWidthOwner;
FieldWidthRdt = tkptr->FieldWidthRdt;
FieldWidthSize = tkptr->FieldWidthSize;
MakeDescriptionLink = tkptr->MakeDescriptionLink;
ShowNoType = tkptr->ShowNoType;
ShowUpperCase = tkptr->ShowUpperCase;
}
else
if (LayoutHeadingPtr == VmsLayoutHeading)
{
/* first time a VMS layout has been required, buffer details */
tkptr->LayoutHeadingPtr = VmsLayoutHeading;
tkptr->LayoutHeadingLength = VmsLayoutHeadingLength = cnt;
VmsFieldWidthCdt = tkptr->FieldWidthCdt;
VmsFieldWidthDescription = tkptr->FieldWidthDescription;
VmsFieldWidthName = tkptr->FieldWidthName;
VmsFieldWidthOwner = tkptr->FieldWidthOwner;
VmsFieldWidthRdt = tkptr->FieldWidthRdt;
VmsFieldWidthSize = tkptr->FieldWidthSize;
MakeDescriptionLink = tkptr->MakeDescriptionLink;
ShowNoType = tkptr->ShowNoType;
ShowUpperCase = tkptr->ShowUpperCase;
}
else
{
/* this is a user-supplied layout, place it in the thread's heap */
tkptr->LayoutHeadingPtr = lptr = VmGetHeap (rqptr, cnt+1);
memcpy (lptr, LayoutHeadingPtr, cnt+1);
tkptr->LayoutHeadingLength = cnt;
}
/******************************************/
/* second, the sys$fao() directive string */
/******************************************/
zptr = (sptr = LayoutFaoPtr) + LAYOUT_SIZE / 2;
lptr = tkptr->LayoutPtr;
wptr = NULL;
/* accomodate an optional leading new-line (for creating a blank line) */
for (cptr = "!AZ"; *cptr && sptr < zptr; *sptr++ = *cptr++);
/* table row for sort */
for (cptr = "!AZ"; *cptr && sptr < zptr; *sptr++ = *cptr++);
while (*lptr && *lptr != '&' && sptr < zptr)
{
if (isdigit(*lptr))
{
wptr = lptr;
while (*lptr && isdigit(*lptr)) lptr++;
continue;
}
else
wptr = NULL;
if (wptr && wptr[0])
{
cnt = atoi(wptr);
if (cnt < 0) cnt = 0;
}
else
cnt = 0;
switch (TOUP(*lptr))
{
case ' ' :
case '_' :
if (tkptr->DirStyleTabular) break;
if (!cnt) cnt = DEFAULT_FIELD_WIDTH_INTERFIELD;
while (cnt-- && sptr < zptr) *sptr++ = ' ';
break;
case 'C' :
case 'R' :
case 'S' :
/* right justify, then value */
if (tkptr->DirStyleTabular)
{
if (tkptr->DirStyle == MAPURL_DIR_STYLE_SORT ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
cptr = "<td class=\"rnwtd\" wasd=\"!AZ\">!#<!#AZ!AZ!></td>";
else
cptr = "<td class=\"rnwtd\">!#<!#AZ!AZ!></td>";
}
else
cptr = "!#<!#AZ!AZ!>";
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
break;
case 'D' :
/* nothing fancy (allow for leading/trailing quotes and link) */
if (tkptr->DirStyleTabular)
{
if (tkptr->MakeDescriptionLink)
if (tkptr->FieldWidthDescription)
cptr = "<td>!AZ!AZ!AZ!AZ!AZ!AZ!#<!#AZ!AZ!AZ!AZ!></td>";
else
cptr = "<td>!AZ!AZ!AZ!AZ!AZ!AZ!AZ!AZ!AZ</td>";
else
if (tkptr->FieldWidthDescription)
cptr = "<td>!AZ!#<!#AZ!AZ!AZ!></td>";
else
cptr = "<td>!AZ!AZ!AZ</td>";
}
else
{
if (tkptr->MakeDescriptionLink)
if (tkptr->FieldWidthDescription)
cptr = "!AZ!AZ!AZ!AZ!AZ!AZ!#<!#AZ!AZ!AZ!AZ!>";
else
cptr = "!AZ!AZ!AZ!AZ!AZ!AZ!AZ!AZ!AZ";
else
if (tkptr->FieldWidthDescription)
cptr = "!AZ!#<!#AZ!AZ!AZ!>";
else
cptr = "!AZ!AZ!AZ";
}
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
break;
case 'I' :
/* nothing fancy */
if (tkptr->DirStyleTabular)
{
if (tkptr->DirStyle == MAPURL_DIR_STYLE_SORT ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
cptr = "<td wasd=\"!UL\">!AZ!AZ!AZ</td>";
else
cptr = "<td>!AZ!AZ!AZ</td>";
}
else
cptr = "!AZ!AZ!AZ";
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
break;
case 'L' :
if (tkptr->DirStyleTabular)
cptr = "<td>!AZ!AZ!AZ!AZ!AZ!#<!AZ!AZ!AZ!></td>";
else
/* left justify, then link, name, and name overflow */
cptr = "!AZ!AZ!AZ!AZ!AZ!#<!AZ!AZ!AZ!>";
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
break;
case 'N' :
/* left justify, string, plus overflow */
if (tkptr->DirStyleTabular)
cptr = "<td>!#<!AZ!AZ!></td>";
else
cptr = "!#<!AZ!AZ!>";
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
break;
case 'O' :
case 'P' :
if (tkptr->DirStyleTabular)
cptr = "<td>!AZ</td>";
else
/* '!#AZ' will left justify value with spaces */
cptr = "!#AZ";
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
break;
}
if (lptr[1] == LAYOUT_PARAMETER) lptr += 2;
lptr++;
}
/* end table row for sort */
for (cptr = "!AZ"; *cptr && sptr < zptr; *sptr++ = *cptr++);
if (sptr >= zptr)
{
/* should be enough for all but a deliberate formatting hack! */
rqptr->rqResponse.HttpStatus = 501;
ErrorGeneral (rqptr, MsgFor(rqptr,MSG_DIR_LAYOUT), FI_LI);
return (STS$K_ERROR);
}
*sptr = '\0';
cnt = sptr - LayoutFaoPtr;
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
{
WatchData (LayoutHeadingPtr, strlen(LayoutHeadingPtr));
WatchData (LayoutFaoPtr, strlen(LayoutFaoPtr));
}
if (LayoutFaoPtr == LayoutFao)
{
/* first time a generic layout has been required, buffer details */
tkptr->LayoutFaoPtr = LayoutFao;
tkptr->LayoutFaoLength = LayoutFaoLength = cnt;
LayoutSizeKilo = tkptr->SizeKilo;
}
else
if (LayoutFaoPtr == VmsLayoutFao)
{
/* first time a VMS layout has been required, buffer details */
tkptr->LayoutFaoPtr = VmsLayoutFao;
tkptr->LayoutFaoLength = VmsLayoutFaoLength = cnt;
VmsLayoutSizeKilo = 1024;
}
else
{
/* this is a user-supplied layout, place it in the thread's heap */
tkptr->LayoutFaoPtr = lptr = VmGetHeap (rqptr, cnt+1);
memcpy (lptr, LayoutFaoPtr, cnt+1);
tkptr->LayoutFaoLength = cnt;
}
return (SS$_NORMAL);
}
/*****************************************************************************/
/*
This function uses the ACP-QIO interface detailed in the "OpenVMS I/O User's
Reference Manual", and is probably as fast as we can get for this type of file
system functionality!
*/
DirFormat
(
REQUEST_STRUCT *rqptr,
REQUEST_AST AstFunction,
char *ParentDirPath,
BOOL BlockTotals
)
{
int status;
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirFormat() !&Z !UL", ParentDirPath, BlockTotals);
tkptr = rqptr->DirTaskPtr;
tkptr->DirFormatAstFunction = AstFunction;
tkptr->DirFormatParentDirPath = ParentDirPath;
tkptr->DirFormatBlockTotals = BlockTotals;
if (ParentDirPath[0] || BlockTotals)
{
/***************************/
/* do not queue an ACP I/O */
/***************************/
/* explicitly call the AST format routine */
tkptr->SearchOds.FileQio.IOsb.Status = SS$_NORMAL;
DirFormatAcpInfoAst (rqptr);
return;
}
AuthAccessEnable (rqptr, tkptr->SearchOds.ExpFileName, AUTH_ACCESS_READ);
OdsFileAcpInfo (&tkptr->SearchOds, &DirFormatAcpInfoAst, rqptr);
AuthAccessEnable (rqptr, 0, 0);
}
/****************************************************************************/
/*
AST called from OdsFileAcpInfo() when ACP QIO completes.
This overly-long (sorry) function formats and outputs a line of information
for a parent directory, directory file, non-directory file, or for the final
line giving used/allocated totals for a VMS format listing.
*/
DirFormatAcpInfoAst (REQUEST_STRUCT *rqptr)
{
static unsigned long AddendZero = 0,
FiveTwelve = 512,
LibDateTimeContext = 0,
LibDateTimeSortTableContext = 0,
LibDateTimeVmsContext = 0,
LibOutputFormat = LIB$K_OUTPUT_FORMAT;
static char Cdt [32],
CdtSortTable [16],
Rdt [32],
RdtSortTable [16];
static $DESCRIPTOR (BlocksFaoDsc, "!UL/!UL");
static $DESCRIPTOR (CdtDsc, Cdt);
static $DESCRIPTOR (CdtSortTableDsc, CdtSortTable);
static $DESCRIPTOR (DeviceDsc, "");
static $DESCRIPTOR (OutputFormatDsc, "|!DB-!MAAC-!Y4|!H04:!M0|");
static $DESCRIPTOR (OutputFormatSortTableDsc, "|!Y4!MN0!D0!H04!M0!S0|");
static $DESCRIPTOR (OutputFormatVmsDsc, "|!DB-!MAAU-!Y4|!H04:!M0:!S0|");
static $DESCRIPTOR (OwnerFaoDsc, "!%I");
static $DESCRIPTOR (OwnerDsc, "");
static $DESCRIPTOR (RdtDsc, Rdt);
static $DESCRIPTOR (RdtSortTableDsc, RdtSortTable);
static $DESCRIPTOR (SizeDsc, "");
static $DESCRIPTOR (SizeFaoDsc, "!#* !AZ");
static $DESCRIPTOR (TotalFilesDsc, "");
static $DESCRIPTOR (TotalFilesFaoDsc, "!UL files");
BOOL ThisIsADirectory;
int idx,
status,
Count,
DateLength,
EncodedNameDelta,
MaxIdx;
uint64 bytes64;
unsigned short AcpChannel,
Length;
unsigned short Time7 [7];
unsigned long AllocatedVbn,
EndOfFileVbn;
unsigned long FaoVector [64];
char *cptr, *sptr, *zptr,
*IconPtr,
*AnchorNameOverflowPtr;
char AnchorLink [(ODS_MAX_FILE_NAME_LENGTH*2)+1],
AnchorName [ODS_MAX_FILE_NAME_LENGTH+1],
Description [256],
IconAnchor [ODS_MAX_FILE_NAME_LENGTH+1],
Owner [64],
Protection [64],
Size [32],
SizeSortTable [32],
String [2048],
TotalFiles [32];
DIR_TASK *tkptr;
unsigned long *ctxptr;
/*********/
/* begin */
/*********/
#if WATCH_MOD
HttpdCheckPriv (FI_LI);
#endif /* WATCH_MOD */
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirFormatAcpInfoAst() !&F !&S", &DirFormatAcpInfoAst,
rqptr->DirTaskPtr->SearchOds.FileQio.IOsb.Status);
tkptr = rqptr->DirTaskPtr;
/* first deassign the channel allocated by OdsFileAcpInfo() */
sys$dassgn (tkptr->SearchOds.FileQio.AcpChannel);
if ((status = tkptr->SearchOds.FileQio.IOsb.Status) == SS$_NOSUCHFILE)
status = RMS$_FNF;
if (VMSnok (status))
{
/*************************/
/* protection violation? */
/*************************/
if ((status == SS$_NOPRIV || status == RMS$_PRV) &&
Config.cfDir.NoPrivIgnore)
{
/* can't return without queueing the next bit of processing! */
SysDclAst (tkptr->DirFormatAstFunction, rqptr);
return;
}
/*******************/
/* something else! */
/*******************/
rqptr->rqResponse.ErrorTextPtr = tkptr->DirPath;
rqptr->rqResponse.ErrorOtherTextPtr = tkptr->SearchOds.NamDevicePtr;
ErrorVmsStatus (rqptr, status, FI_LI);
DirEnd (rqptr);
return;
}
if (tkptr->DirFormatBlockTotals)
ThisIsADirectory = false;
else
if (MATCH5 (tkptr->SearchOds.NamTypePtr, ".DIR;") ||
MATCH5 (tkptr->SearchOds.NamTypePtr, ".dir;"))
{
/* check if the .DIR is really a directory */
if (VMSok (OdsReallyADir (rqptr, &tkptr->SearchOds)))
ThisIsADirectory = true;
else
ThisIsADirectory = false;
}
else
ThisIsADirectory = false;
if (ThisIsADirectory)
{
/******************************/
/* no need to display the MFD */
/******************************/
if (tkptr->SearchOds.NamNamePtr[0] == '0' &&
strsame (tkptr->SearchOds.NamNamePtr, "000000.DIR;", 11))
{
/* can't return without queueing the next bit of processing! */
SysDclAst (tkptr->DirFormatAstFunction, rqptr);
return;
}
}
/****************/
/* begin format */
/****************/
if (!LibDateTimeContext)
{
/* initialize the date/time formats */
status = lib$init_date_time_context (&LibDateTimeContext,
&LibOutputFormat,
&OutputFormatDsc);
if (VMSok (status))
status = lib$init_date_time_context (&LibDateTimeSortTableContext,
&LibOutputFormat,
&OutputFormatSortTableDsc);
if (VMSok (status))
status = lib$init_date_time_context (&LibDateTimeVmsContext,
&LibOutputFormat,
&OutputFormatVmsDsc);
if (VMSnok (status))
ErrorExitVmsStatus (status, "lib$init_date_time_context()", FI_LI);
}
/********************************/
/* process file name components */
/********************************/
IconAnchor[0] = '\0';
MaxIdx = sizeof(FaoVector) / sizeof(unsigned long);
idx = 0;
if (tkptr->DirFormatBlockTotals)
{
/****************/
/* block totals */
/****************/
/* must be block totals, which requires termination of some sort */
if (idx < MaxIdx)
if (tkptr->DirStyleTabular)
FaoVector[idx++] = "</tbody>\n<tfoot>\n";
else
FaoVector[idx++] = "\n";
}
else
if (tkptr->DirFormatParentDirPath[0])
{
/********************/
/* parent directory */
/********************/
unsigned long LocalFaoVector [32];
unsigned long *vecptr;
/* no leading newline required for the parent directory */
if (idx < MaxIdx) FaoVector[idx++] = "";
tkptr->DirectoryCount = -1;
vecptr = &LocalFaoVector;
/* when the path may be different from base path (e.g. SSI) */
if (tkptr->RealPath[0])
*vecptr++ = tkptr->DirFormatParentDirPath;
else
*vecptr++ = "../";
/* any file name/type/version from the original spec */
if (tkptr->DirSpecIncludedFilePart ||
(!Config.cfDir.NoImpliedWildcard &&
!rqptr->rqPathSet.DirNoImpliedWildcard))
{
*vecptr++ = rqptr->PathOds;
*vecptr++ = tkptr->FilePart;
}
else
{
*vecptr++ = 0;
*vecptr++ = "";
}
if (tkptr->QueryStringPtr)
{
*vecptr++ = "?httpd=index&!AZ";
*vecptr++ = tkptr->QueryStringPtr;
}
else
*vecptr++ = "";
status = FaolToBuffer (AnchorLink, sizeof(AnchorLink), NULL,
"!&%AZ!&%&[AZ!&;&@", &LocalFaoVector);
if (VMSnok (status) || status == SS$_BUFFEROVF)
ErrorNoticed (rqptr, status, NULL, FI_LI);
if (tkptr->FormatLikeVms)
memcpy (AnchorName, "[-]", 4);
else
memcpy (AnchorName, "../", 4);
}
else
if (ThisIsADirectory)
{
/***************/
/* a directory */
/***************/
unsigned long LocalFaoVector [32];
unsigned long *vecptr;
/* no leading newline required for directories */
if (idx < MaxIdx) FaoVector[idx++] = "";
if (tkptr->DirectoryCount <= 0)
tkptr->DirectoryCount = 1;
else
tkptr->DirectoryCount++;
/* terminate to remove the file type (".DIR") */
tkptr->SearchOds.NamTypePtr[0] = '\0';
vecptr = &LocalFaoVector;
/* when the path may be different from base path (e.g. SSI) */
*vecptr++ = tkptr->RealPath;
/* the name of this directory */
*vecptr++ = "!&%&[AZ";
*vecptr++ = rqptr->PathOds;
*vecptr++ = tkptr->SearchOds.NamNamePtr;
/* any file name/type/version from the original spec */
if (tkptr->DirSpecIncludedFilePart ||
(!Config.cfDir.NoImpliedWildcard &&
!rqptr->rqPathSet.DirNoImpliedWildcard))
{
*vecptr++ = "!&%&[AZ";
*vecptr++ = rqptr->PathOds;
*vecptr++ = tkptr->FilePart;
}
else
*vecptr++ = "";
if (tkptr->QueryStringPtr)
{
*vecptr++ = "?httpd=index&!AZ";
*vecptr++ = tkptr->QueryStringPtr;
}
else
*vecptr++ = "";
status = FaolToBuffer (AnchorLink, sizeof(AnchorLink), NULL,
"!&%AZ!&@/!&@!&;&@", &LocalFaoVector);
if (VMSnok (status) || status == SS$_BUFFEROVF)
ErrorNoticed (rqptr, status, NULL, FI_LI);
vecptr = &LocalFaoVector;
if (tkptr->FormatLikeVms)
if (!rqptr->PathOds || rqptr->PathOds == MAPURL_PATH_ODS_2)
*vecptr++ = "[.!&;&^AZ]";
else
*vecptr++ = "[.!&;AZ]";
else
{
*vecptr++ = "!&;&[AZ/";
*vecptr++ = rqptr->PathOds;
}
*vecptr++ = tkptr->SearchOds.NamNamePtr;
status = FaolToBuffer (AnchorName, sizeof(AnchorName), NULL,
"!&@", &LocalFaoVector);
if (VMSnok (status) || status == SS$_BUFFEROVF)
ErrorNoticed (rqptr, status, NULL, FI_LI);
/* restore the type delimitter */
tkptr->SearchOds.NamTypePtr[0] = '.';
if (tkptr->ShowUpperCase)
for (cptr = AnchorName; *cptr; cptr++) *cptr = TOUP(*cptr);
}
else
{
/**********/
/* a file */
/**********/
unsigned long LocalFaoVector [32];
unsigned long *vecptr;
if (tkptr->DirectoryCount && !tkptr->FileCount)
{
/* leading line-break required for first file after directories */
if (idx < MaxIdx)
{
if (tkptr->DirStyleTabular)
if (tkptr->DirStyle == MAPURL_DIR_STYLE_SORT ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
FaoVector[idx++] = "<tr id=\"wasdB\"><td> </td></tr>\n";
else
FaoVector[idx++] = "<tr><td> </td></tr>\n";
else
FaoVector[idx++] = "\n";
}
}
else
if (idx < MaxIdx) FaoVector[idx++] = "";
tkptr->FileCount++;
/* if appropriate, terminate to remove the version number */
if (!tkptr->FormatLikeVms && !tkptr->VersionsOf)
{
if (tkptr->SearchOds.NamTypeLength <= 1)
tkptr->SearchOds.NamTypePtr[0] = '\0';
else
tkptr->SearchOds.NamVersionPtr[0] = '\0';
}
/***************/
/* anchor link */
/***************/
vecptr = &LocalFaoVector;
if (tkptr->ScriptName[0])
{
/* prepend the (optional) script component of the path */
*vecptr++ = "!&%AZ!&%&[AZ";
*vecptr++ = tkptr->ScriptName;
/* need the directory portion of the URL for scripting */
*vecptr++ = rqptr->PathOds;
*vecptr++ = tkptr->DirectoryPathPtr;
}
else
{
*vecptr++ = "!&%&[AZ";
/* when the path may be different from base path (e.g. SSI) */
*vecptr++ = rqptr->PathOds;
*vecptr++ = tkptr->RealPath;
}
/* file name and type */
*vecptr++ = rqptr->PathOds;
*vecptr++ = tkptr->SearchOds.NamNamePtr;
/* disable auto-scripting by appending a (most-recent) version number */
if (!tkptr->FormatLikeVms && !tkptr->AutoScriptEnabled)
*vecptr++ = ";0";
else
*vecptr++ = "";
if (tkptr->QueryContentTypePtr &&
tkptr->QueryContentTypePtr[0])
{
/* propagate any request-specified content-type as a query string */
*vecptr++ = "?httpd=content&type=!&%AZ";
*vecptr++ = tkptr->QueryContentTypePtr;
}
else
*vecptr++ = "";
status = FaolToBuffer (AnchorLink, sizeof(AnchorLink), NULL,
"!&@!&%&[AZ!AZ!&@", &LocalFaoVector);
if (VMSnok (status) || status == SS$_BUFFEROVF)
ErrorNoticed (rqptr, status, NULL, FI_LI);
/*************/
/* icon link */
/*************/
if (tkptr->IconLinkEnabled &&
!rqptr->rqPathSet.DirNoIconLink)
{
vecptr = &LocalFaoVector;
*vecptr++ = tkptr->LinkTarget;
/* when the path may be different from base path (e.g. SSI) */
*vecptr++ = rqptr->PathOds;
*vecptr++ = tkptr->RealPath;
/* file name and type */
*vecptr++ = rqptr->PathOds;
*vecptr++ = tkptr->SearchOds.NamNamePtr;
/* disable auto-scripting by appending (most-recent) version number */
if (!tkptr->FormatLikeVms && !tkptr->AutoScriptEnabled)
*vecptr++ = ";0";
else
*vecptr++ = "";
*vecptr++ = ConfigContentType (NULL, ".TXT");
status = FaolToBuffer (IconAnchor, sizeof(IconAnchor), NULL,
"<a!AZ href=\"!&%&[AZ!&%&[AZ!AZ?httpd=content&type=!&%AZ\">",
&LocalFaoVector);
if (VMSnok (status) || status == SS$_BUFFEROVF)
ErrorNoticed (rqptr, status, NULL, FI_LI);
}
else
IconAnchor[0] = '\0';
/***************/
/* anchor name */
/***************/
vecptr = &LocalFaoVector;
if (tkptr->FormatLikeVms)
if (!rqptr->PathOds || rqptr->PathOds == MAPURL_PATH_ODS_2)
*vecptr++ = "!&;&^AZ";
else
*vecptr++ = "!&;AZ";
else
{
*vecptr++ = "!&;&[AZ";
*vecptr++ = rqptr->PathOds;
}
*vecptr++ = tkptr->SearchOds.NamNamePtr;
status = FaolToBuffer (AnchorName, sizeof(AnchorName), NULL,
"!&@", &LocalFaoVector);
if (VMSnok (status) || status == SS$_BUFFEROVF)
ErrorNoticed (rqptr, status, NULL, FI_LI);
/* if appropriate, restore the version delimitter */
if (!tkptr->FormatLikeVms)
if (tkptr->SearchOds.NamTypeLength <= 1)
tkptr->SearchOds.NamTypePtr[0] = '.';
else
tkptr->SearchOds.NamVersionPtr[0] = ';';
if (tkptr->ShowUpperCase)
for (cptr = AnchorName; *cptr; cptr++) *cptr = TOUP(*cptr);
}
if (!tkptr->DirFormatBlockTotals)
{
/************************/
/* name post-processing */
/************************/
/* count the extra characters introduced by escaping/encoding */
EncodedNameDelta = 0;
AnchorNameOverflowPtr = "";
if (!tkptr->DirStyleTabular)
{
cptr = AnchorName;
while (*cptr && cptr - AnchorName <=
tkptr->FieldWidthName + EncodedNameDelta)
{
if (*cptr != '&')
{
cptr++;
continue;
}
while (*cptr)
{
EncodedNameDelta++;
cptr++;
if (*cptr == ';') break;
}
}
if (cptr - AnchorName > tkptr->FieldWidthName + EncodedNameDelta)
{
AnchorName[tkptr->FieldWidthName+EncodedNameDelta-1] = '\0';
AnchorNameOverflowPtr = "+";
}
}
}
/***********************************/
/* build the sys$faol() paremeters */
/***********************************/
if (idx < MaxIdx)
if (tkptr->DirStyleTabular)
FaoVector[idx++] = "<tr>";
else
FaoVector[idx++] = "";
cptr = tkptr->LayoutPtr;
while (*cptr)
{
if (!isalpha(*cptr))
{
cptr++;
continue;
}
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR, "!UL \'!1AZ\' !AZ",
idx, cptr, cptr);
switch (TOUP(*cptr))
{
case 'C' :
/*****************/
/* creation date */
/*****************/
if (tkptr->DirFormatParentDirPath[0] || tkptr->DirFormatBlockTotals)
{
/* make it an empty field */
if (tkptr->DirStyle == MAPURL_DIR_STYLE_SORT ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = tkptr->FieldWidthCdt;
if (idx < MaxIdx) FaoVector[idx++] = tkptr->FieldWidthCdt;
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
break;
}
/* format the creation date/time */
if (tkptr->FormatLikeVms)
ctxptr = &LibDateTimeVmsContext;
else
ctxptr = &LibDateTimeContext;
if (VMSnok (status =
lib$format_date_time (&CdtDsc,
&tkptr->SearchOds.FileQio.CdtTime64,
ctxptr, &DateLength, 0)))
{
rqptr->rqResponse.ErrorTextPtr = "lib$format_date_time()";
ErrorVmsStatus (rqptr, status, FI_LI);
DirEnd (rqptr);
return;
}
Cdt[DateLength] = '\0';
if (tkptr->DirStyle == MAPURL_DIR_STYLE_SORT ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
{
/* custom key as a 64 bit number */
FaoToBuffer (CdtSortTable, sizeof(CdtSortTable), 0,
"!@SQ", &tkptr->SearchOds.FileQio.CdtTime64);
if (idx < MaxIdx) FaoVector[idx++] = CdtSortTable;
}
if (idx < MaxIdx) FaoVector[idx++] = tkptr->FieldWidthCdt;
if (idx < MaxIdx)
{
/* next parameter right justifies the field */
if (tkptr->FieldWidthCdt - DateLength > 0)
FaoVector[idx++] = tkptr->FieldWidthCdt - DateLength;
else
FaoVector[idx++] = 0;
}
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = Cdt;
break;
case 'D' :
/***************/
/* description */
/***************/
if (tkptr->DirFormatParentDirPath[0])
{
/********************/
/* parent directory */
/********************/
if (idx < MaxIdx) FaoVector[idx++] = "";
if (tkptr->MakeDescriptionLink)
{
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
}
if (idx < MaxIdx && tkptr->FieldWidthDescription)
{
FaoVector[idx++] = tkptr->FieldWidthDescription;
FaoVector[idx++] = tkptr->FieldWidthDescription;
}
if (idx < MaxIdx)
FaoVector[idx++] = MsgFor(rqptr,MSG_DIR_PARENT);
if (idx < MaxIdx && tkptr->MakeDescriptionLink)
FaoVector[idx++] = "";
if (idx < MaxIdx && tkptr->FieldWidthDescription)
FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
}
else
if (tkptr->DirFormatBlockTotals)
{
/***************************/
/* VMS format block totals */
/***************************/
if (tkptr->DirectoryCount < 0)
tkptr->DirectoryCount = 0;
TotalFilesDsc.dsc$a_pointer = TotalFiles;
TotalFilesDsc.dsc$w_length = sizeof(TotalFiles)-1;
sys$fao (&TotalFilesFaoDsc, &Length, &TotalFilesDsc,
tkptr->DirectoryCount + tkptr->FileCount);
TotalFiles[Length] = '\0';
if (idx < MaxIdx) FaoVector[idx++] = "";
if (tkptr->MakeDescriptionLink)
{
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
}
if (idx < MaxIdx && tkptr->FieldWidthDescription)
{
FaoVector[idx++] = tkptr->FieldWidthDescription;
FaoVector[idx++] = tkptr->FieldWidthDescription;
}
if (idx < MaxIdx) FaoVector[idx++] = TotalFiles;
if (idx < MaxIdx && tkptr->MakeDescriptionLink)
FaoVector[idx++] = "";
if (idx < MaxIdx && tkptr->FieldWidthDescription)
FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
}
else
if (ThisIsADirectory)
{
/*************/
/* directory */
/*************/
if (idx < MaxIdx) FaoVector[idx++] = "";
if (tkptr->MakeDescriptionLink)
{
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
}
if (idx < MaxIdx && tkptr->FieldWidthDescription)
{
FaoVector[idx++] = tkptr->FieldWidthDescription;
FaoVector[idx++] = tkptr->FieldWidthDescription;
}
if (idx < MaxIdx)
{
if (!tkptr->MsgSubDirPtr)
FaoVector[idx++] = tkptr->MsgSubDirPtr =
MsgFor(rqptr,MSG_DIR_SUB);
else
FaoVector[idx++] = tkptr->MsgSubDirPtr;
}
if (idx < MaxIdx && tkptr->MakeDescriptionLink)
FaoVector[idx++] = "";
if (idx < MaxIdx && tkptr->FieldWidthDescription)
FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
}
else
if (tkptr->Description[0] &&
tkptr->Description[0] != DESCRIPTION_IMPOSSIBLE)
{
/******************************/
/* file with HTML description */
/******************************/
if (idx < MaxIdx) FaoVector[idx++] = "\"";
if (tkptr->MakeDescriptionLink)
{
if (idx < MaxIdx) FaoVector[idx++] = "<a";
if (idx < MaxIdx) FaoVector[idx++] = tkptr->LinkTarget;
if (idx < MaxIdx) FaoVector[idx++] = " href=\"";
if (idx < MaxIdx) FaoVector[idx++] = AnchorLink;
if (idx < MaxIdx) FaoVector[idx++] = "\">";
}
if (idx < MaxIdx && tkptr->FieldWidthDescription)
{
/* the 4 - 1 allows for the leading quote */
if (tkptr->MakeDescriptionLink)
FaoVector[idx++] = tkptr->FieldWidthDescription + 3;
else
FaoVector[idx++] = tkptr->FieldWidthDescription - 1;
if ((Count = strlen(tkptr->Description)) >
tkptr->FieldWidthDescription - 3)
FaoVector[idx++] = tkptr->FieldWidthDescription - 3;
else
FaoVector[idx++] = Count;
}
if (idx < MaxIdx) FaoVector[idx++] = tkptr->Description;
if (idx < MaxIdx && tkptr->MakeDescriptionLink)
FaoVector[idx++] = "</a>";
if (idx < MaxIdx && tkptr->FieldWidthDescription)
{
if (Count > tkptr->FieldWidthDescription - 3)
FaoVector[idx++] = "+";
else
FaoVector[idx++] = "";
}
if (idx < MaxIdx) FaoVector[idx++] = "\"";
}
else
{
/*********************************/
/* file with content description */
/*********************************/
if (idx < MaxIdx) FaoVector[idx++] = "";
if (tkptr->MakeDescriptionLink)
{
if (idx < MaxIdx) FaoVector[idx++] = "<a";
if (idx < MaxIdx) FaoVector[idx++] = tkptr->LinkTarget;
if (idx < MaxIdx) FaoVector[idx++] = " href=\"";
if (idx < MaxIdx) FaoVector[idx++] = AnchorLink;
if (idx < MaxIdx) FaoVector[idx++] = "\">";
}
if (idx < MaxIdx && tkptr->FieldWidthDescription)
{
if (tkptr->MakeDescriptionLink)
FaoVector[idx++] = tkptr->FieldWidthDescription + 4;
else
FaoVector[idx++] = tkptr->FieldWidthDescription;
if ((Count =
strlen(tkptr->ContentInfo.DescriptionPtr)) >
tkptr->FieldWidthDescription - 1)
FaoVector[idx++] = tkptr->FieldWidthDescription - 1;
else
FaoVector[idx++] = Count;
}
if (idx < MaxIdx)
FaoVector[idx++] = tkptr->ContentInfo.DescriptionPtr;
if (idx < MaxIdx && tkptr->MakeDescriptionLink)
FaoVector[idx++] = "</a>";
if (idx < MaxIdx && tkptr->FieldWidthDescription)
{
if (Count > tkptr->FieldWidthDescription - 3)
FaoVector[idx++] = "+";
else
FaoVector[idx++] = "";
}
if (idx < MaxIdx) FaoVector[idx++] = "";
}
break;
case 'I' :
/********/
/* icon */
/********/
if (tkptr->DirStyle == MAPURL_DIR_STYLE_SORT ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
if (idx < MaxIdx)
FaoVector[idx++] = tkptr->DirectoryCount + tkptr->FileCount;
if (idx < MaxIdx)
if (IconAnchor[0])
FaoVector[idx++] = IconAnchor;
else
FaoVector[idx++] = "";
if (tkptr->DirFormatBlockTotals)
IconPtr = ConfigBlankIconPtr;
else
if (ThisIsADirectory)
IconPtr = ConfigDirIconPtr;
else
if (tkptr->DirFormatParentDirPath[0])
IconPtr = ConfigParentIconPtr;
else
IconPtr = tkptr->ContentInfo.IconPtr;
if (idx < MaxIdx) FaoVector[idx++] = IconPtr;
if (idx < MaxIdx) FaoVector[idx++] = "</a>";
break;
case 'L' :
/***************/
/* link/anchor */
/***************/
if (tkptr->DirFormatBlockTotals)
{
/* make it an empty field */
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = tkptr->FieldWidthName;
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
break;
}
if (idx < MaxIdx) FaoVector[idx++] = "<a";
if (idx < MaxIdx)
if (ThisIsADirectory)
FaoVector[idx++] = "";
else
FaoVector[idx++] = tkptr->LinkTarget;
if (idx < MaxIdx) FaoVector[idx++] = " href=\"";
if (idx < MaxIdx) FaoVector[idx++] = AnchorLink;
if (idx < MaxIdx) FaoVector[idx++] = "\">";
if (idx < MaxIdx)
if (tkptr->FieldWidthName)
FaoVector[idx++] = tkptr->FieldWidthName +
EncodedNameDelta + 4;
else
FaoVector[idx++] = strlen(AnchorName) + 4;
if (idx < MaxIdx) FaoVector[idx++] = AnchorName;
if (idx < MaxIdx) FaoVector[idx++] = "</a>";
if (idx < MaxIdx) FaoVector[idx++] = AnchorNameOverflowPtr;
break;
case 'N' :
/********/
/* name */
/********/
if (tkptr->DirFormatBlockTotals)
{
/* make it an empty field */
if (idx < MaxIdx) FaoVector[idx++] = tkptr->FieldWidthName;
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
break;
}
if (idx < MaxIdx)
if (tkptr->FieldWidthName)
FaoVector[idx++] = tkptr->FieldWidthName + EncodedNameDelta;
else
FaoVector[idx++] = strlen(AnchorName);
if (idx < MaxIdx) FaoVector[idx++] = AnchorName;
if (idx < MaxIdx) FaoVector[idx++] = AnchorNameOverflowPtr;
break;
case 'O' :
/*********/
/* owner */
/*********/
if (tkptr->DirFormatParentDirPath[0] || tkptr->DirFormatBlockTotals)
{
/* make it an empty field */
if (!tkptr->DirStyleTabular)
if (idx < MaxIdx) FaoVector[idx++] = tkptr->FieldWidthOwner;
if (idx < MaxIdx) FaoVector[idx++] = "";
break;
}
OwnerDsc.dsc$a_pointer = Owner;
OwnerDsc.dsc$w_length = sizeof(Owner)-1;
sys$fao (&OwnerFaoDsc, &Length, &OwnerDsc,
tkptr->SearchOds.FileQio.AtrUic);
Owner[Length] = '\0';
if (idx < MaxIdx) FaoVector[idx++] = tkptr->FieldWidthOwner;
if (idx < MaxIdx) FaoVector[idx++] = Owner;
break;
case 'P' :
/**************/
/* protection */
/**************/
if (tkptr->DirFormatParentDirPath[0] || tkptr->DirFormatBlockTotals)
{
/* make it an empty field */
if (!tkptr->DirStyleTabular)
if (idx < MaxIdx)
FaoVector[idx++] = tkptr->FieldWidthProtection;
if (idx < MaxIdx) FaoVector[idx++] = "";
break;
}
FormatProtection (tkptr->SearchOds.FileQio.AtrFpro, Protection);
if (idx < MaxIdx) FaoVector[idx++] = tkptr->FieldWidthProtection;
if (idx < MaxIdx) FaoVector[idx++] = Protection;
break;
case 'R' :
/*****************/
/* revision date */
/*****************/
if (tkptr->DirFormatParentDirPath[0] ||
tkptr->DirFormatBlockTotals)
{
/* make it an empty field */
if (tkptr->DirStyle == MAPURL_DIR_STYLE_SORT ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = tkptr->FieldWidthRdt;
if (idx < MaxIdx) FaoVector[idx++] = tkptr->FieldWidthRdt;
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
break;
}
/* format the revision date/time */
if (tkptr->FormatLikeVms)
ctxptr = &LibDateTimeVmsContext;
else
ctxptr = &LibDateTimeContext;
if (VMSnok (status =
lib$format_date_time (&RdtDsc,
&tkptr->SearchOds.FileQio.RdtTime64,
ctxptr, &DateLength, 0)))
{
rqptr->rqResponse.ErrorTextPtr = "lib$format_date_time()";
ErrorVmsStatus (rqptr, status, FI_LI);
DirEnd (rqptr);
return;
}
Rdt[DateLength] = '\0';
if (tkptr->DirStyle == MAPURL_DIR_STYLE_SORT ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
{
/* custom key as a 64 bit number */
FaoToBuffer (RdtSortTable, sizeof(RdtSortTable), 0,
"!@SQ", &tkptr->SearchOds.FileQio.RdtTime64);
if (idx < MaxIdx) FaoVector[idx++] = RdtSortTable;
}
if (idx < MaxIdx) FaoVector[idx++] = tkptr->FieldWidthRdt;
/* next parameter right justifies the field */
if (tkptr->FieldWidthRdt - DateLength > 0)
{
if (idx < MaxIdx)
FaoVector[idx++] = tkptr->FieldWidthRdt - DateLength;
}
else
if (idx < MaxIdx) FaoVector[idx++] = 0;
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = Rdt;
break;
case 'S' :
/********/
/* size */
/********/
if (tkptr->DirFormatParentDirPath[0])
{
/* make it an empty field */
if (tkptr->DirStyle == MAPURL_DIR_STYLE_SORT ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = tkptr->FieldWidthSize;
if (idx < MaxIdx) FaoVector[idx++] = tkptr->FieldWidthSize;
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = "";
break;
}
SizeDsc.dsc$a_pointer = Size;
SizeDsc.dsc$w_length = sizeof(Size)-1;
if (tkptr->FieldWidthSize >= sizeof(Size)-1)
SizeDsc.dsc$w_length = sizeof(Size)-1;
else
SizeDsc.dsc$w_length = tkptr->FieldWidthSize;
if (tkptr->DirFormatBlockTotals)
{
if (tkptr->LayoutPtr == Config.cfDir.DefaultLayout ||
tkptr->LayoutPtr == DirDefaultLayout)
sptr = "";
else
for (sptr = tkptr->LayoutPtr;
*sptr && TOUP(*sptr) != 'S';
sptr++);
if (sptr[0] && sptr[1] == LAYOUT_PARAMETER)
{
bytes64 = tkptr->TotalUsedBlocks * 512;
Length = DirFormatSize (bytes64, sptr+2,
tkptr->SizeKilo, &SizeDsc);
}
else
sys$fao (&BlocksFaoDsc, &Length, &SizeDsc,
tkptr->TotalUsedBlocks,
tkptr->TotalAllocatedBlocks);
}
else
{
AllocatedVbn =
((tkptr->SearchOds.FileQio.RecAttr.fat$l_hiblk & 0xffff) << 16) |
((tkptr->SearchOds.FileQio.RecAttr.fat$l_hiblk & 0xffff0000) >> 16);
EndOfFileVbn =
((tkptr->SearchOds.FileQio.RecAttr.fat$l_efblk & 0xffff) << 16) |
((tkptr->SearchOds.FileQio.RecAttr.fat$l_efblk & 0xffff0000) >> 16);
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"AllocatedVbn:!UL EndOfFileVbn:!UL FirstFreeByte:!UL",
AllocatedVbn, EndOfFileVbn,
tkptr->SearchOds.FileQio.RecAttr.fat$w_ffbyte);
if (EndOfFileVbn <= 1)
bytes64 = tkptr->SearchOds.FileQio.RecAttr.fat$w_ffbyte;
else
bytes64 = ((EndOfFileVbn - 1) * 512) +
tkptr->SearchOds.FileQio.RecAttr.fat$w_ffbyte;
if (tkptr->FormatLikeVms &&
(tkptr->LayoutPtr == Config.cfDir.DefaultLayout ||
tkptr->LayoutPtr == DirDefaultLayout))
sys$fao (&BlocksFaoDsc, &Length, &SizeDsc,
EndOfFileVbn, AllocatedVbn);
else
if (cptr[1] == LAYOUT_PARAMETER)
Length = DirFormatSize (bytes64, cptr+2,
tkptr->SizeKilo, &SizeDsc);
else
if (tkptr->FormatLikeVms)
sys$fao (&BlocksFaoDsc, &Length, &SizeDsc,
EndOfFileVbn, AllocatedVbn);
else
Length = DirFormatSize (bytes64, NULL,
tkptr->SizeKilo, &SizeDsc);
tkptr->TotalAllocatedBlocks += AllocatedVbn;
tkptr->TotalUsedBlocks += EndOfFileVbn;
}
Size[Length] = '\0';
if (tkptr->DirStyle == MAPURL_DIR_STYLE_SORT ||
tkptr->DirStyle == MAPURL_DIR_STYLE_SORT2)
{
/* custom key as 64 bit number */
FaoToBuffer (SizeSortTable, sizeof(SizeSortTable), 0,
"!@SQ", &bytes64);
if (idx < MaxIdx) FaoVector[idx++] = SizeSortTable;
}
if (tkptr->DirStyleTabular)
{
if (idx < MaxIdx) FaoVector[idx++] = Length;
if (idx < MaxIdx) FaoVector[idx++] = 0;
}
else
{
if (idx < MaxIdx) FaoVector[idx++] = tkptr->FieldWidthSize;
/* next parameter right justifies the field */
if (idx < MaxIdx)
if (tkptr->FieldWidthSize - Length > 0)
FaoVector[idx++] = tkptr->FieldWidthSize - Length;
else
FaoVector[idx++] = 0;
}
if (idx < MaxIdx) FaoVector[idx++] = "";
if (idx < MaxIdx) FaoVector[idx++] = Size;
break;
}
if (cptr[1] == LAYOUT_PARAMETER) cptr += 2;
cptr++;
if (idx >= MaxIdx)
{
/* should be enough for all but a deliberate formatting hack! */
rqptr->rqResponse.HttpStatus = 501;
ErrorGeneral (rqptr, MsgFor(rqptr,MSG_DIR_LAYOUT), FI_LI);
DirEnd (rqptr);
return;
}
}
if (idx < MaxIdx)
if (tkptr->DirStyleTabular)
FaoVector[idx++] = "</tr>\n";
else
FaoVector[idx++] = "\n";
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR, "!UL !AZ",
idx, tkptr->LayoutFaoPtr);
/*********************/
/* format and output */
/*********************/
status = FaolToNet (rqptr, tkptr->LayoutFaoPtr, &FaoVector);
if (VMSnok (status))
{
ErrorNoticed (rqptr, status, NULL, FI_LI);
rqptr->rqResponse.ErrorTextPtr = tkptr->DirPath;
rqptr->rqResponse.ErrorOtherTextPtr = tkptr->LayoutFaoPtr;
ErrorVmsStatus (rqptr, status, FI_LI);
DirEnd (rqptr);
return;
}
/* empty any file-internal description previously generated */
tkptr->Description[0] = '\0';
NetWritePartFlush (rqptr, tkptr->DirFormatAstFunction);
}
/*****************************************************************************/
/*
Write a string into the supplied descriptor containing the size specified by
the 'QuadBytesPtr' parameter and the format string 'FormatCharPtr'. It is
recognised the approach truncates rather than rounds the value but in context
this is close enough for jazz. 'SizeKilo' will be either 1024 (default) or
1000. Return the number of characters written. This function does not
null-terminate the string!
*/
int DirFormatSize
(
uint64 bytes64,
char *FormatPtr,
int SizeKilo,
struct dsc$descriptor *SizeDscPtr
)
{
static $DESCRIPTOR (StatusFaoDsc, "%X!8XL");
static $DESCRIPTOR (OverflowFaoDsc, "!256**");
int ccnt, status;
unsigned short Length;
float fvalue, fgiga, fkilo, fmega;
char ch;
char *cptr, *sptr, *zptr;
char buf [64];
/*********/
/* begin */
/*********/
if (WATCH_MODULE(WATCH_MOD_DIR))
WatchThis (WATCHALL, WATCH_MOD_DIR,
"DirFormatSize() \"!AZ\" !UL !&,@SQ",
FormatPtr, SizeKilo, &bytes64);
Length = 0;
status = SS$_NORMAL;
fvalue = (float)bytes64;
/* span over any leading kilo specification */
if (!FormatPtr) FormatPtr = "";
if (isdigit(*FormatPtr))
if (*++FormatPtr == LAYOUT_PARAMETER)
FormatPtr++;
cptr = buf;
zptr = (sptr = SizeDscPtr->dsc$a_pointer) + SizeDscPtr->dsc$w_length;
switch (TOUP(*FormatPtr))
{
case 'B' :
status = FaoToBuffer (buf, sizeof(buf),
&Length, "!&,@SQ", &bytes64);
while (*cptr && sptr < zptr) *sptr++ = *cptr++;
if (*cptr) status = SS$_BUFFEROVF;
break;
case 'K' :
fkilo = (float)SizeKilo;
sprintf (cptr, "%f", fvalue / fkilo);
while (*cptr && *cptr != '.' && sptr < zptr) *sptr++ = *cptr++;
for (ccnt = 4; ccnt-- && *cptr && sptr < zptr; *sptr++ = *cptr++);
if (sptr < zptr)
*sptr++ = 'K';
else
status = SS$_BUFFEROVF;
break;
case 'M' :
fkilo = (float)SizeKilo;
fmega = fkilo * fkilo;
sprintf (cptr, "%f", fvalue / fmega);
while (*cptr && *cptr != '.' && sptr < zptr) *sptr++ = *cptr++;
for (ccnt = 7; ccnt-- && *cptr && sptr < zptr; *sptr++ = *cptr++);
if (sptr < zptr)
*sptr++ = 'M';
else
status = SS$_BUFFEROVF;
break;
case 'V' :
if (fvalue > 0.0)
sprintf (cptr, "%f", (fvalue / 512.0) + 1.0);
else
sprintf (cptr, "%f", fvalue);
while (*cptr && *cptr != '.' && sptr < zptr) *sptr++ = *cptr++;
if (*cptr) status = SS$_BUFFEROVF;
break;
case 'D' :
case 'F' :
default :
fkilo = (float)SizeKilo;
fmega = fkilo * fkilo;
fgiga = fmega * fkilo;
if (fvalue >= fgiga)
{
sprintf (cptr, "%f", fvalue / fgiga);
ch = 'G';
}
else
if (fvalue >= fmega)
{
sprintf (cptr, "%f", fvalue / fmega);
ch = 'M';
}
else
if (fvalue >= fkilo)
{
sprintf (cptr, "%f", fvalue / fkilo);
ch = 'K';
}
else
{
sprintf (cptr, "%f", fvalue);
ch = '\0';
}
while (*cptr && *cptr != '.' && sptr < zptr) *sptr++ = *cptr++;
if (fvalue >= fkilo)
for (ccnt = 2; ccnt-- && *cptr && sptr < zptr; *sptr++ = *cptr++);
if (sptr < zptr) {
if (ch) *sptr++ = ch;
}
else
status = SS$_BUFFEROVF;
}
/* fallback, first to Mbytes then to Gbytes */
if (status == SS$_BUFFEROVF)
{
status = SS$_NORMAL;
fkilo = (float)SizeKilo;
fmega = fkilo * fkilo;
zptr = (sptr = SizeDscPtr->dsc$a_pointer) + SizeDscPtr->dsc$w_length;
sprintf (cptr = buf, "%f", fvalue / fmega);
while (*cptr && *cptr != '.' && sptr < zptr) *sptr++ = *cptr++;
while (*cptr && sptr < zptr-1) *sptr++ = *cptr++;
if (*(sptr-1) == '.') sptr--;
if (sptr < zptr)
*sptr++ = 'M';
else
{
fgiga = fmega * fkilo;
zptr = (sptr = SizeDscPtr->dsc$a_pointer) + SizeDscPtr->dsc$w_length;
sprintf (cptr = buf, "%f", fvalue / fgiga);
while (*cptr && *cptr != '.' && sptr < zptr) *sptr++ = *cptr++;
while (*cptr && sptr < zptr-1) *sptr++ = *cptr++;
if (*(sptr-1) == '.') sptr--;
if (sptr < zptr)
*sptr++ = 'G';
else
status = SS$_BUFFEROVF;
}
}
/* this function does not null-terminate the string! */
Length = sptr - SizeDscPtr->dsc$a_pointer;
if (VMSnok(status) && status != SS$_BUFFEROVF)
sys$fao (&StatusFaoDsc, &Length, SizeDscPtr, status);
if (status == SS$_BUFFEROVF)
sys$fao (&OverflowFaoDsc, &Length, SizeDscPtr);
return (Length);
}
/*****************************************************************************/
/*
Process a string of directory directives.
The directives can be '&' separated (query string) or '\n' separated
(.WWW_WASD) file based.
*/
DirDirectString
(
REQUEST_STRUCT *rqptr,
char *DirectString
)
{
BOOL LocalDirect;
int WwwWasd;
char *aptr, *cptr, *sptr, *zptr;
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirDirectString() \"!AZ\"", DirectString);
if (WATCHING (rqptr, WATCH_RESPONSE))
WatchData (DirectString, strlen(DirectString));
/* get the pointer to the task structure */
tkptr = rqptr->DirTaskPtr;
/* override is always false unless the current source allows it */
tkptr->QueryOverride = false;
LocalDirect = false;
WwwWasd = 0;
cptr = DirectString;
while (*cptr)
{
while (*cptr && (*cptr == '&' || *cptr == ' ' || *cptr == '\n'))
{
if (*cptr == '\n') WwwWasd++;
cptr++;
}
if (!*cptr) break;
if (*cptr == '#')
{
/* .WWW_WASD file can contain comments */
while (*cptr && *cptr != '\n') cptr++;
WwwWasd++;
continue;
}
if (TOLO(*cptr) == 'a' &&
strsame (cptr, "autoscript=", 11))
{
cptr += 11;
/* if "false", "no" or "0" then turn off auto-scripting */
if (TOLO(*cptr) == 'f' || TOLO(*cptr) == 'n' || *cptr == '0')
tkptr->AutoScriptEnabled = false;
else
tkptr->AutoScriptEnabled = true;
}
else
if (TOLO(*cptr) == 'd' &&
strsame (cptr, "delimit=", 8))
{
cptr += 8;
switch (TOLO(*cptr))
{
case 'h' :
tkptr->DirDelimit = MAPURL_DIR_DELIMIT_HEADER;
break;
case 'f' :
tkptr->DirDelimit = MAPURL_DIR_DELIMIT_FOOTER;
break;
case 'n' :
tkptr->DirDelimit = MAPURL_DIR_DELIMIT_NONE;
break;
default :
tkptr->DirDelimit = MAPURL_DIR_DELIMIT_BOTH;
}
}
else
/* experience shows both make it easier! */
if (TOLO(*cptr) == 'e' &&
(strsame (cptr, "expire=", 7) ||
strsame (cptr, "expired=", 8)))
{
if (cptr[7] == '=')
cptr += 8;
else
cptr += 7;
/* "true", "yes", "1", "false", "no" or "0" */
if (TOLO(*cptr) == 't' || TOLO(*cptr) == 'y' || *cptr == '1')
rqptr->rqResponse.PreExpired = true;
else
if (TOLO(*cptr) == 'f' || TOLO(*cptr) == 'n' || *cptr == '0')
rqptr->rqResponse.PreExpired = false;
}
else
if (TOLO(*cptr) == 'f' &&
strsame (cptr, "font=", 5))
{
cptr += 5;
if (strsame (cptr, "inherit", 7))
tkptr->DirFont = MAPURL_DIR_FONT_INHERIT;
else
if (strsame (cptr, "monospace", 8))
tkptr->DirFont = MAPURL_DIR_FONT_MONOSPACE;
}
else
if (TOLO(*cptr) == 'i' &&
strsame (cptr, "ilink=", 6))
{
cptr += 6;
/* if "false", "no" or "0" then icon is not a plain-text link */
if (TOLO(*cptr) == 'f' || TOLO(*cptr) == 'n' || *cptr == '0')
tkptr->IconLinkEnabled = false;
else
tkptr->IconLinkEnabled = true;
}
else
if (TOLO(*cptr) == 'l' &&
strsame (cptr, "layout=", 7))
{
cptr += 7;
for (sptr = cptr; *sptr && *sptr != '&' && *sptr != '\n'; sptr++);
tkptr->LayoutPtr = sptr = VmGetHeap (rqptr, sptr-cptr+1);
while (*cptr && *cptr != '&' && *cptr != '\n') *sptr++ = *cptr++;
}
else
if (TOLO(*cptr) == 'l' &&
strsame (cptr, "local=", 6))
{
cptr += 6;
/* if "false", "no" or "0" then turn off auto-scripting */
if (TOLO(*cptr) == 'f' || TOLO(*cptr) == 'n' || *cptr == '0')
LocalDirect = false;
else
LocalDirect = true;
}
else
if (TOLO(*cptr) == 'n' &&
strsame (cptr, "notype=", 7))
{
cptr += 7;
/* if "true", "yes" or "1" then do not display parent directory */
if (TOLO(*cptr) == 't' || TOLO(*cptr) == 'y' || *cptr == '1')
tkptr->ShowNoType = true;
else
tkptr->ShowNoType = false;
}
else
if (TOLO(*cptr) == 'n' &&
strsame (cptr, "nop=", 4))
{
cptr += 4;
/* if "true", "yes" or "1" then do not display parent directory */
if (TOLO(*cptr) == 't' || TOLO(*cptr) == 'y' || *cptr == '1')
tkptr->AsIfNopFound = true;
else
tkptr->AsIfNopFound = false;
}
else
if (TOLO(*cptr) == 'n' &&
strsame (cptr, "nops=", 5))
{
cptr += 5;
/* if "true", "yes" or "1" don't display parent or sub directory */
if (TOLO(*cptr) == 't' || TOLO(*cptr) == 'y' || *cptr == '1')
tkptr->AsIfNopFound = tkptr->AsIfNosFound = true;
else
tkptr->AsIfNopFound = tkptr->AsIfNosFound = false;
}
else
if (TOLO(*cptr) == 'n' &&
strsame (cptr, "nos=", 4))
{
cptr += 4;
/* if "true", "yes" or "1" then do not display sub directory */
if (TOLO(*cptr) == 't' || TOLO(*cptr) == 'y' || *cptr == '1')
tkptr->AsIfNosFound = true;
else
tkptr->AsIfNosFound = false;
}
else
if (TOLO(*cptr) == 'o' &&
strsame (cptr, "override=", 9))
{
cptr += 9;
/* if "true", "yes" or "1" then allow query string to override */
if (TOLO(*cptr) == 't' || TOLO(*cptr) == 'y' || *cptr == '1')
tkptr->QueryOverride = true;
else
tkptr->QueryOverride = false;
}
else
if (TOLO(*cptr) == 'q' &&
strsame (cptr, "query=", 6))
{
cptr += 6;
/* this directive is always terminated only by end-of-line */
for (sptr = cptr; *sptr && *sptr != '\n'; sptr++);
tkptr->QueryStringPtr = sptr = VmGetHeap (rqptr, sptr-cptr+1);
while (*cptr && *cptr != '\n') *sptr++ = *cptr++;
}
else
if (TOLO(*cptr) == 'r' &&
strsame (cptr, "readme=", 7))
{
cptr += 7;
/* if "false", "no" or "0" then do not display any readme */
if (TOLO(*cptr) == 'f' || TOLO(*cptr) == 'n' || *cptr == '0')
tkptr->IncludeAnyReadme = false;
else
tkptr->IncludeAnyReadme = true;
}
else
if (TOLO(*cptr) == 's' &&
strsame (cptr, "script=", 7))
{
cptr += 7;
zptr = (sptr = tkptr->ScriptName) + sizeof(tkptr->ScriptName)-1;
if (*cptr != '/') *sptr++ = '/';
while (*cptr && *cptr != '&' && *cptr != '\n' && sptr < zptr)
{
if (*cptr != '&' && *cptr != '+') *sptr++ = *cptr;
cptr++;
}
*sptr = '\0';
}
else
if (TOLO(*cptr) == 's' &&
strsame (cptr, "sort=", 5))
{
cptr += 5;
tkptr->DirSort[0] = TOUP(*cptr++);
if (*cptr == '+' || *cptr == '-')
tkptr->DirSort[1] = *cptr;
else
tkptr->DirSort[1] = '\0';
/* style is implicit! */
if (tkptr->DirStyle != MAPURL_DIR_STYLE_SORT2)
tkptr->DirStyle = MAPURL_DIR_STYLE_SORT;
}
else
if (TOLO(*cptr) == 's' &&
strsame (cptr, "style=", 6))
{
cptr += 6;
if (strsame (cptr, "sort2", 5))
tkptr->DirStyle = MAPURL_DIR_STYLE_SORT2;
else
if (strsame (cptr, "sort", 4))
tkptr->DirStyle = MAPURL_DIR_STYLE_SORT;
else
if (strsame (cptr, "anchor2", 7))
tkptr->DirStyle = MAPURL_DIR_STYLE_ANCHOR2;
else
if (strsame (cptr, "anchor", 6))
tkptr->DirStyle = MAPURL_DIR_STYLE_ANCHOR;
else
if (strsame (cptr, "table2", 6))
tkptr->DirStyle = MAPURL_DIR_STYLE_TABLE2;
else
if (strsame (cptr, "table", 5))
tkptr->DirStyle = MAPURL_DIR_STYLE_TABLE;
else
if (strsame (cptr, "htdir2", 6))
tkptr->DirStyle = MAPURL_DIR_STYLE_HTDIR2;
else
if (strsame (cptr, "htdir", 5))
tkptr->DirStyle = MAPURL_DIR_STYLE_HTDIR;
else
if (strsame (cptr, "original2", 9))
tkptr->DirStyle = MAPURL_DIR_STYLE_ORIGINAL2;
else
if (strsame (cptr, "original", 8))
tkptr->DirStyle = MAPURL_DIR_STYLE_ORIGINAL;
else
if (strsame (cptr, "default2", 8))
tkptr->DirStyle = MAPURL_DIR_STYLE_DEFAULT2;
else
if (strsame (cptr, "default", 7))
tkptr->DirStyle = MAPURL_DIR_STYLE_DEFAULT;
}
else
if (TOLO(*cptr) == 't' &&
strsame (cptr, "target=", 7))
{
cptr += 7;
zptr = (sptr = tkptr->LinkTarget) + sizeof(tkptr->LinkTarget)-2;
for (aptr = " target=\""; *aptr; *sptr++ = *aptr++);
while (*cptr && *cptr != '&' && *cptr != '\n' && sptr < zptr)
{
if (*cptr != '\"') *sptr++ = *cptr;
cptr++;
}
*sptr++ = '\"';
*sptr = '\0';
}
else
if (TOLO(*cptr) == 't' &&
strsame (cptr, "these=", 6))
{
cptr += 6;
for (sptr = cptr; *sptr && *sptr != '&' && *sptr != '\n'; sptr++);
tkptr->ThesePtr = sptr = VmGetHeap (rqptr, sptr-cptr+2);
/* null-separated series of strings terminated by empty string */
while (*cptr && *cptr != '&' && *cptr != '\n')
{
if (*cptr == ',')
*sptr++ = '\0';
else
*sptr++ = *cptr;
cptr++;
}
}
else
if (TOLO(*cptr) == 't' &&
strsame (cptr, "title=", 6))
{
cptr += 6;
if (strsame (cptr, "default", 7))
tkptr->DirTitle = MAPURL_DIR_TITLE_DEFAULT;
else
if (strsame (cptr, "owner", 5))
tkptr->DirTitle = MAPURL_DIR_TITLE_OWNER;
else
if (strsame (cptr, "remote", 6))
tkptr->DirTitle = MAPURL_DIR_TITLE_REMOTE;
else
if (strsame (cptr, "this=", 5))
{
tkptr->DirTitle = MAPURL_DIR_TITLE_THIS;
tkptr->DirTitlePtr = VmGetHeap (rqptr, strlen(cptr+5));
strcpy (tkptr->DirTitlePtr, cptr+5);
StringUrlDecode (tkptr->DirTitlePtr);
}
else
if (*cptr == '0')
tkptr->DirTitle = MAPURL_DIR_TITLE_NONE;
else
if (isdigit(*cptr))
tkptr->DirTitle = atol(cptr);
}
else
if (TOLO(*cptr) == 't' &&
strsame (cptr, "type=", 5))
{
cptr += 5;
for (sptr = cptr; *sptr && *sptr != '&' && *sptr != '\n'; sptr++);
tkptr->QueryContentTypePtr = sptr = VmGetHeap (rqptr, sptr-cptr+1);
while (*cptr && *cptr != '&' && *cptr != '\n') *sptr++ = *cptr++;
}
else
if (TOLO(*cptr) == 'u' &&
strsame (cptr, "upper=", 6))
{
cptr += 6;
/* if "true", "yes" or "1" then force to upper case */
if (TOLO(*cptr) == 't' || TOLO(*cptr) == 'y' || *cptr == '1')
tkptr->ShowUpperCase = true;
else
tkptr->ShowUpperCase = false;
}
else
if (TOLO(*cptr) == 'v' &&
strsame (cptr, "versions=", 9))
{
cptr += 9;
if (*cptr == '*')
tkptr->VersionsOf = 65536;
else
tkptr->VersionsOf = atoi(cptr);
}
else
if (WATCHING (rqptr, WATCH_RESPONSE))
WatchThis (WATCHITM(rqptr), WATCH_RESPONSE, "ERROR:!AZ", cptr);
while (*cptr && *cptr != '&' && *cptr != '\n') cptr++;
}
if (!WwwWasd && !LocalDirect)
{
/* propagate URI query string directive(s) */
tkptr->QueryStringPtr = sptr = VmGetHeap (rqptr, cptr-DirectString+1);
cptr = DirectString;
while (*cptr && *cptr != '\n') *sptr++ = *cptr++;
}
}
/*****************************************************************************/
/*
Open, read, and process the contents of the .WWW_WASD file.
*/
int DirWwwWasd (REQUEST_STRUCT *rqptr)
{
int status,
SizeInBytes;
char *sptr;
char ReadBuffer [2048];
DIR_TASK *tkptr;
ODS_STRUCT OdsStruct;
ODS_STRUCT *odsptr = &OdsStruct;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR, "DirWwwWasd()");
/* get the pointer to the task structure */
tkptr = rqptr->DirTaskPtr;
for (sptr = tkptr->DirSpec; *sptr; sptr++);
while (sptr > tkptr->DirSpec && (*sptr != ']' || *(sptr-1) == '^]')) sptr--;
if (*sptr == ']') sptr++;
if (sptr - tkptr->DirSpec <= 0) return (SS$_BUGCHECK);
OdsStructInit (&OdsStruct, true);
odsptr->Fab = cc$rms_fab;
odsptr->Fab.fab$b_fac = FAB$M_GET;
odsptr->Fab.fab$b_shr = FAB$M_SHRGET;
odsptr->Fab.fab$l_fop &= ~FAB$M_ASY;
#ifdef ODS_EXTENDED
if (OdsExtended)
{
odsptr->Fab.fab$l_fna = odsptr->Fab.fab$l_dna =-1;
odsptr->Fab.fab$b_fns = odsptr->Fab.fab$b_dns = 0;
odsptr->Fab.fab$l_nam = &odsptr->Naml;
odsptr->NamlInUse = true;
ENAMEL_RMS_NAML(odsptr->Naml)
odsptr->Naml.naml$l_long_defname = tkptr->DirSpec;
odsptr->Naml.naml$l_long_defname_size = sptr - tkptr->DirSpec;
odsptr->Naml.naml$l_long_filename = DirWasdFileName;
odsptr->Naml.naml$l_long_filename_size = sizeof(DirWasdFileName)-1;
odsptr->Naml.naml$l_long_expand = odsptr->ExpFileName;
odsptr->Naml.naml$l_long_expand_alloc = sizeof(odsptr->ExpFileName)-1;
}
else
#endif /* ODS_EXTENDED */
{
odsptr->Fab.fab$l_dna = tkptr->DirSpec;
odsptr->Fab.fab$b_dns = sptr - tkptr->DirSpec;
odsptr->Fab.fab$l_fna = DirWasdFileName;
odsptr->Fab.fab$b_fns = sizeof(DirWasdFileName)-1;
odsptr->NamlInUse = false;
odsptr->Nam = cc$rms_nam;
odsptr->Nam.nam$l_esa = odsptr->ExpFileName;
odsptr->Nam.nam$b_ess = ODS2_MAX_FILE_NAME_LENGTH;
}
/* ensure we can read this directory listing "control" file */
sys$setprv (1, &SysPrvMask, 0, 0);
status = sys$open (&odsptr->Fab, 0, 0);
sys$setprv (0, &SysPrvMask, 0, 0);
if (VMSnok (status) || VMSnok (status = odsptr->Fab.fab$l_sts))
{
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR, "!#AZ!AZ !AZ %X!8XL",
sptr - tkptr->DirSpec, tkptr->DirSpec,
DirWasdFileName, odsptr->ExpFileName, status);
return (status);
}
/* record access block */
odsptr->Rab = cc$rms_rab;
odsptr->Rab.rab$l_fab = &odsptr->Fab;
/* read ahead performance option, all synchronous */
odsptr->Rab.rab$l_rop = RAB$M_RAH;
odsptr->Rab.rab$l_rop &= ~FAB$M_ASY;
status = sys$connect (&odsptr->Rab, 0, 0);
if (VMSnok (status) || VMSnok (status = odsptr->Rab.rab$l_sts))
{
sys$close (&odsptr->Fab, 0, 0);
return (status);
}
sptr = ReadBuffer;
SizeInBytes = sizeof(ReadBuffer)-1;
for (;;)
{
odsptr->Rab.rab$l_ubf = sptr;
odsptr->Rab.rab$w_usz = SizeInBytes;
status = sys$get (&odsptr->Rab, 0, 0);
if (VMSnok (status)) break;
sptr[odsptr->Rab.rab$w_rsz++] = '\n';
sptr += odsptr->Rab.rab$w_rsz;
SizeInBytes -= odsptr->Rab.rab$w_rsz;
}
*sptr = '\0';
sys$close (&odsptr->Fab, 0, 0);
if (status == RMS$_EOF) status = SS$_NORMAL;
if (VMSok(status)) DirDirectString (rqptr, ReadBuffer);
return (status);
}
/*****************************************************************************/
/*
These comments apply equally to DirReadMeBottom() below.
Attempt to send one of possible multiple files ("README.", et. al.) in the
specified directory. Then, provided there was not serious error with the
send, execute the function specified by the address in 'NextTaskFunction'.
The file can be HTML or plain-text. With plain-text the contents will be
encapsulated.
*/
DirReadMeTop (REQUEST_STRUCT *rqptr)
{
int status;
char *cptr, *rptr, *sptr,
*TypePtr;
char FileName [ODS_MAX_FILE_NAME_LENGTH+1];
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirReadMeTop() !&F", &DirReadMeTop);
/* get the pointer to the task structure */
tkptr = rqptr->DirTaskPtr;
while (*(rptr = ConfigReadMeFile(tkptr->ReadMeFileIndex++)))
{
sptr = FileName;
for (cptr = tkptr->DirectoryPart; *cptr; *sptr++ = *cptr++);
TypePtr = NULL;
for ( /* 'rptr' initialized above! */ ; *rptr; *sptr++ = *rptr++)
if (*rptr == '.') TypePtr = rptr;
*sptr = '\0';
if (!TypePtr) TypePtr = rptr;
cptr = ConfigContentType (&tkptr->ContentInfo, TypePtr);
/* ignore any non-text types! */
if (!ConfigSameContentType (cptr, "text/", 5)) continue;
if (ConfigSameContentType (cptr, ConfigContentTypeSsi, -1))
{
FileSetContentHandler (rqptr, &SsiBegin, SsiSizeMax);
FileSetCacheAllowed (rqptr, true);
FileBegin (rqptr, &DirHeading, &DirReadMeTop, NULL, FileName, cptr);
}
else
{
if (ConfigSameContentType (cptr, "text/plain", -1))
FileSetPreTag (rqptr, true);
FileSetCacheAllowed (rqptr, true);
FileBegin (rqptr, &DirHeading, &DirReadMeTop, NULL, FileName, cptr);
}
return;
}
DirHeading (rqptr);
}
/*****************************************************************************/
/*
See comment in DirReadMeTop() above.
*/
DirReadMeBottom (REQUEST_STRUCT *rqptr)
{
int status;
char *cptr, *rptr, *sptr,
*TypePtr;
char FileName [ODS_MAX_FILE_NAME_LENGTH+1];
DIR_TASK *tkptr;
/*********/
/* begin */
/*********/
if (WATCHMOD (rqptr, WATCH_MOD_DIR))
WatchThis (WATCHITM(rqptr), WATCH_MOD_DIR,
"DirReadMeBottom() !&F", DirReadMeBottom);
/* get the pointer to the task structure */
tkptr = rqptr->DirTaskPtr;
while (*(rptr = ConfigReadMeFile(tkptr->ReadMeFileIndex++)))
{
sptr = FileName;
for (cptr = tkptr->DirectoryPart; *cptr; *sptr++ = *cptr++);
TypePtr = NULL;
for ( /* 'rptr' initialized above! */ ; *rptr; *sptr++ = *rptr++)
if (*rptr == '.') TypePtr = rptr;
*sptr = '\0';
if (!TypePtr) TypePtr = rptr;
cptr = ConfigContentType (&tkptr->ContentInfo, TypePtr);
/* ignore any non-text types! */
if (!ConfigSameContentType (cptr, "text/", 5)) continue;
if (ConfigSameContentType (cptr, ConfigContentTypeSsi, -1))
{
FileSetContentHandler (rqptr, &SsiBegin, SsiSizeMax);
FileSetCacheAllowed (rqptr, true);
FileBegin (rqptr, &DirHeading, &DirReadMeBottom, NULL, FileName, cptr);
}
else
{
if (ConfigSameContentType (cptr, "text/plain", -1))
FileSetPreTag (rqptr, true);
FileSetCacheAllowed (rqptr, true);
FileBegin (rqptr, &DirHeading, &DirReadMeBottom, NULL, FileName, cptr);
}
return;
}
DirEnd (rqptr);
}
/*****************************************************************************/