[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]
/*****************************************************************************/
/*
hdisk.c
This application links to the Gift.c application's GIF and graphic code!
Functions begining Gift...() and storage beginning Graphic... is Gift.c code.
HyperDisk! Provides disk details, including a usage bar graph, for one or
more disks specified as part of the path or as a CGI form variable "DISKS=".
Disk device names may be specified separated by commas, forward-slashes, or
(probably most simply) just with a full-colon (which is used by VMS as a
device name separator). Disk details include blocks and Mbytes total, used
and free, as well as error count. Component devices of volumes sets are
displayed individually.
Variations allowed in specifying disks:
http://host/disk/device
http://host/disk/device1:device2:device3
http://host/disk/device1,device2,device3
http://host/disk/device1/device2/device3
http://host/disk?disk=device
http://host/disk?disk=device1:device2:device3
http://host/disk?disk=device1,device2,device3
http://host/disk?disk=device1/device2/device3
If the string "graphiconly" occurs in the query string only a bar-graph GIF
for the specified device is generated and sent. This allows documents to
include a tag such as <IMG SRC="/disk/sys$sysdevice?graphiconly"> to include
the usage bar-graph for any given device (of course only one may be specified
with each use).
Page colouration and "button" labels may be specified via the appropriate
command-line qualifiers (or corresponding logical name). Defaults for any not
specified. Specifiy as /WHATEVER="" to NOT specify the corresponding colour
(i.e. leave it to the browser). See "Qualifiers" section below, and also about
the logical name "HDISK$PARAM".
An example of changing the page colour to white and the banner to red!
/PBGCOLOR="#ffffff" /PHBGCOLOR="#ff0000"
The script can format a page in either of two layouts.
1. Tables are used to create a coloured header and button bar (DEFAULT).
Default colours are white page with grey heading and button outlines.
2. Textual header, horizontal rules and a textual button bar.
No default colours.
ACKNOWLEDGEMENT
---------------
Although the graphic generation and GIF header code is mine the actual
GIF compression code employed is derived from the PBM suite, is copyright,
and used within the owner's guidelines:
* GIF Image compression - LZW algorithm implemented with Trie type
* structure.
* Written by Bailey Brown, Jr.
* last change May 24, 1990
* file: compgif.c
*
* You may use or modify this code as you wish, as long as you mention
* my name in your documentation.
*
* - Bailey Brown, Jr.
QUALIFIERS
----------
/DBUG turns on all "if (Debug)" statements
/PBACKGROUND= <body> background image path
/PBGCOLOR= <body> background colour
/PBBGCOLOR= button background color
/PBBORDER= width of button border
/PHBGCOLOR= heading background color
/PHBORDER= width of heading and button-bar border
/PHLOCAL= local information to be included in header
/PHTEXT= heading text colour
/PLAYOUT= 1 is coloured header & buttons, 2 is text & horizontal rules
/PLINK= <body> link colour
/PTEXT= <body> text colour
/PVLINK= <body> visited link colour
CGI VARIABLES
-------------
WWW_FORM_BRIEF if the word brief occurs in the query string only
the bar graph is generated, no device details
WWW_FORM_DISK one of more disk device names
WWW_FORM_DISKS ditto
WWW_FORM_HEIGHT height in pixels of the bar-graph
WWW_FORM_GRAPHICONLY if the word graphiconly occurs in the query string a
gif representing the device is generated and returned
WWW_FORM_HELP if the word help occurs in the query string it
results in a redirection to the help document
WWW_FORM_PERCENTAGE results in a bar graph GIF being returned
WWW_FORM_WIDTH width in pixels of the bar-graph
WWW_SCRIPT_NAME script name
WWW_SERVER_NAME server host name
WWW_SERVER_PORT server IP port
WWW_QUERY_STRING query string
WWW_PATH_INFO document path (everything following the script name)
OSU ENVIRONMENT
---------------
Script responses are returned in OSU "raw" mode; the script taking care of the
full response header and correctly carriage-controlled data stream, text or
binary!! The script standard output stream is reopened in binary mode (no
translation of '\n') with a maximum record size set to 4096 bytes (failure to
set this results in the OSU server reporting %SYSTEM-F-DATAOVERUN errors). The
binary output is enclosed by suitably fflushed() "<DNETRAW>" and "</DNETRAW>"
control tags (the flush make them individual records as required by OSU).
If in debug the script output is placed into "text" mode.
COPYRIGHT
---------
Copyright (C) 1996-2008 Mark G.Daniel
This program, comes with ABSOLUTELY NO WARRANTY.
This is free software, and you are welcome to redistribute it under the
conditions of the GNU GENERAL PUBLIC LICENSE, version 3, or any later version.
http://www.gnu.org/licenses/gpl.txt
BUILD DETAILS
-------------
See BUILD_HDISK.COM procedure.
VERSION HISTORY (update SOFTWAREVN as well!)
---------------
06-AUG-2008 MGD v1.4.0, some refinements
04-MAY-2004 MGD v1.3.4, correct percentage for large devices,
minor cosmetic changes to device info table
23-DEC-2003 MGD v1.3.3, minor conditional mods to support IA64
12-APR-2003 MGD v1.3.2, link colour changed to 0000cc
30-OCT-1998 MGD v1.3.1, refined help path redirection for OSU use
12-OCT-1998 MGD v1.3.0, accomodations for OSU environment
24-JUL-1998 MGD v1.2.1, suppress table background colours if empty
29-APR-1998 MGD v1.2.0, cosmetic changes
18-APR-1997 MGD v1.1.0, graphics pre-expired (generated each time accessed)
06-AUG-1996 MGD v1.0.0, YAQH (wanted to try generating coloured GIFs :^)
*/
/*****************************************************************************/
#define SOFTWAREVN "1.4.0"
#define SOFTWARENM "HDISK"
#ifdef __ALPHA
char SoftwareID [] = SOFTWARENM " AXP-" SOFTWAREVN;
#endif
#ifdef __ia64
char SoftwareID [] = SOFTWARENM " IA64-" SOFTWAREVN;
#endif
#ifdef __VAX
char SoftwareID [] = SOFTWARENM " VAX-" SOFTWAREVN;
#endif
/* standard C header files */
#include <stdio.h>
#include <ctype.h>
#include <errno.h>
#include <file.h>
/* VMS header files */
#include <dcdef.h>
#include <devdef.h>
#include <descrip.h>
#include <dvidef.h>
#include <libdef.h>
#include <libdtdef.h>
#include <ssdef.h>
#include <stsdef.h>
/* application header file */
#ifdef OSU_HDISK
#include "gift.h"
#else
#include "[-.gift]gift.h"
#endif
/*
Can't find any UCB definitions anywhere. Cobbled these up out of the $GETDVI
system service description of DVI$_STS item and the VMS Device Support
Reference describing Unit Control Blocks.
*/
#define UCB$V_TIM 0x1
#define UCB$V_INT 0x2
#define UCB$V_ERLOGIP 0x4
#define UCB$V_CANCEL 0x8
#define UCB$V_ONLINE 0x10
#define UCB$V_POWER 0x20
#define UCB$V_TIMOUT 0x40
#define UCB$V_INTTYPE 0x80
#define UCB$V_BSY 0x100
#define UCB$V_MOUNTING 0x200
#define UCB$V_DEADMO 0x400
#define UCB$V_VALID 0x800
#define UCB$V_UNLOAD 0x1000
#define UCB$V_TEMPLATE 0x2000
#define UCB$V_MNTVERIP 0x4000
#define UCB$V_WRONGVOL 0x8000
#define UCB$V_DELETEUCB 0x10000
#define UCB$V_LCL_VALID 0x20000
#define UCB$V_SUPMVMSG 0x40000
#define UCB$V_MNTVERPND 0x80000
#define UCB$V_DISMOUNT 0x100000
#define UCB$V_CLUTRAN 0x200000
#define UCB$V_WRTLOCKMV 0x400000
#define UCB$V_SVPN_END 0x800000
#define VMSok(x) ((x) & STS$M_SUCCESS)
#define VMSnok(x) !(((x) & STS$M_SUCCESS))
#define boolean int
#define true 1
#define false 0
/* macro provides NULL pointer if CGI variable does not exist */
#define GetCgiVarIfExists(CharPointer,CgiVariableName) \
CharPointer = getenv(CgiVariableName)
/* macro provides pointer to empty string even if CGI variable does not exist */
#define GetCgiVar(CharPointer,CgiVariableName) \
if ((CharPointer = getenv(CgiVariableName)) == NULL) \
CharPointer = ""; \
if (Debug) fprintf (stdout, "%s |%s|\n", CgiVariableName, CharPointer);
#define ExcessiveErrorCount 5
#define DEFAULT_CHARSET "ISO-8859-1"
#define DEFAULT_HELP_PATH "/hdisk/-/hdisk.html"
#define DEFAULT_BUTTONS "Help"
/* this macro just plugs in some script-specific code into ButtonBar() */
#define SCRIPT_SPECIFIC_BUTTON_CODE \
ButtonInternal[0] = HelpPathPtr;
#define DEFAULT_PS_BGCOLOR "#ffffff"
#define DEFAULT_PS_TEXT "#000000"
#define DEFAULT_PS_LINK "#0000cc"
#define DEFAULT_PS_VLINK "#0000cc"
#define DEFAULT_PS_HEADBGCOLOR "#cccccc"
#define DEFAULT_PS_HEADBORDER "0"
#define DEFAULT_PS_HEADTEXT "#000000"
#define DEFAULT_PS_BUTTONBGCOLOR "#ffffff"
#define DEFAULT_PS_BUTTONBORDER "1"
#define PS_BACKGROUND 0
#define PS_BGCOLOR 1
#define PS_TEXT 2
#define PS_LINK 3
#define PS_VLINK 4
#define PS_HEADBGCOLOR 5
#define PS_HEADTEXT 6
#define PS_HEADBORDER 7
#define PS_BUTTONBGCOLOR 8
#define PS_BUTTONBORDER 9
#define PS_BODYTAG 10
#define PS_LAYOUT 11
#define PS_HEADLOCAL 12
#define PS_HEADPADDING 13
char *PageScheme [16];
char *MonthName [] =
{ "", "January", "February", "March", "April", "May", "June",
"July", "August", "September", "October", "November", "December" };
char *DayName [] =
{ "", "Monday", "Tuesday", "Wednesday", "Thursday",
"Friday", "Saturday", "Sunday" };
char Utility [] ="HDISK";
struct DiskInfoStruct
{
struct DiskInfoStruct *NextPtr;
long DevClass,
DevChar,
DevChar2,
ErrCnt,
FreeBlocks,
MaxBlock,
UsedBlocks,
VolNumber,
VolSetMem;
char FullDevName [65],
NextDevName [65],
MediaName [65];
struct {
unsigned long lo32;
unsigned long hi32;
} UcbStatus;
};
boolean Debug,
DoDiskInfoTable,
DoGraphicOnly,
HttpHasBeenOutput,
OsuEnvironment;
unsigned long DayOfWeek;
unsigned long CurrentBinTime [2];
unsigned short CurrentNumTime [7];
char ContentTypeCharset [64],
DayDateTime [64];
char *ButtonPtr = DEFAULT_BUTTONS,
*CgiFormDiskPtr,
*CgiFormHeightPtr,
*CgiFormPercentagePtr,
*CgiFormWidthPtr,
*CgiPathInfoPtr,
*CgiQueryStringPtr,
*CgiRequestSchemePtr,
*CgiScriptNamePtr,
*CgiServerNamePtr,
*CgiServerSoftwarePtr,
*CgiServerPortPtr,
*CgiTypePtr,
*CharsetPtr,
*CliCharsetPtr,
*HelpPathPtr = DEFAULT_HELP_PATH;
/* for historical reasons GIFT uses an output stream named "HttpOut" */
FILE *HttpOut;
/* storage in the Gift.c module */
extern boolean GraphicNoCacheGif;
extern int GraphicHeight,
GraphicWidth;
extern struct GraphicFontStruct Font [];
/* required function prototypes */
AtOsuExit ();
/*****************************************************************************/
/*
*/
main ()
{
register char *cptr, *sptr, *zptr;
int status,
Percentage;
char UpCaseDiskName [256];
/*********/
/* begin */
/*********/
if (getenv ("WWWEXEC_RUNDOWN_STRING") != NULL)
{
OsuEnvironment = true;
atexit (&AtOsuExit);
}
if (getenv ("HDISK$DBUG") != NULL)
{
Debug = true;
if (OsuEnvironment)
fprintf (stdout, "<DNETTEXT>\n200 Success\n");
else
fprintf (stdout, "Content-Type: text/plain\n\n");
}
GetParameters ();
SetPageScheme ();
if (OsuEnvironment)
CgiTypePtr = "OSU";
else
CgiTypePtr = "standard";
if (Debug)
system ("show sym *");
else
{
if (OsuEnvironment)
{
/* reopen so that '\r' and '\n' are not filtered, maximum record size */
if ((stdout =
freopen ("SYS$OUTPUT", "w", stdout, "ctx=bin", "mrs=4096"))
== NULL)
exit (vaxc$errno);
fprintf (stdout, "<DNETRAW>");
fflush (stdout);
}
else
{
/* reopen so that '\r' and '\n' are not filtered */
if ((stdout = freopen ("SYS$OUTPUT", "w", stdout, "ctx=bin")) == NULL)
exit (vaxc$errno);
}
}
if ((CharsetPtr = CliCharsetPtr) == NULL)
{
GetCgiVar (CharsetPtr, "WWW_REQUEST_CHARSET");
if (!CharsetPtr[0]) GetCgiVar (CharsetPtr, "WWW_SERVER_CHARSET");
if (!CharsetPtr[0]) CharsetPtr = DEFAULT_CHARSET;
}
if (CharsetPtr[0])
sprintf (ContentTypeCharset, "; charset=%s", CharsetPtr);
else
ContentTypeCharset[0] = '\0';
/* for historical reasons GIFT uses an output stream named "HttpOut" */
HttpOut = stdout;
/***********/
/* process */
/***********/
GetCgiVar (CgiServerSoftwarePtr, "WWW_SERVER_SOFTWARE");
GetCgiVar (CgiScriptNamePtr, "WWW_SCRIPT_NAME");
GetCgiVar (CgiPathInfoPtr, "WWW_PATH_INFO");
GetCgiVar (CgiQueryStringPtr, "WWW_QUERY_STRING");
if (strstr (CgiQueryStringPtr, "hyperdisk") != NULL ||
strstr (CgiQueryStringPtr, "HYPERDISK") != NULL)
{
GiftButton ("", "HyperDisk", 14);
exit (SS$_NORMAL);
}
if (strstr (CgiQueryStringPtr, "furtherinfo") != NULL ||
strstr (CgiQueryStringPtr, "FURTHERINFO") != NULL)
{
GiftButton ("", " further\ninformation", 8);
exit (SS$_NORMAL);
}
if (strstr (CgiQueryStringPtr, "brief") != NULL ||
strstr (CgiQueryStringPtr, "BRIEF") != NULL)
DoDiskInfoTable = false;
else
DoDiskInfoTable = true;
if (strstr (CgiQueryStringPtr, "graphiconly") != NULL ||
strstr (CgiQueryStringPtr, "GRAPHICONLY") != NULL)
DoGraphicOnly = GraphicNoCacheGif = true;
else
DoGraphicOnly = GraphicNoCacheGif = false;
GetCgiVar (CgiFormWidthPtr, "WWW_FORM_WIDTH");
if (CgiFormWidthPtr[0])
{
GraphicWidth = atol(CgiFormWidthPtr);
if (GraphicWidth <= 0 || GraphicWidth >= MaxGraphicWidth)
exit (ErrorGeneral ("Graphic width error.",
__FILE__, __LINE__));
}
GetCgiVar (CgiFormHeightPtr, "WWW_FORM_HEIGHT");
if (CgiFormHeightPtr[0])
{
GraphicHeight = atol(CgiFormHeightPtr);
if (GraphicHeight <= 0 || GraphicHeight >= MaxGraphicHeight)
exit (ErrorGeneral ("Graphic height error.",
__FILE__, __LINE__));
}
GetCgiVar (CgiFormPercentagePtr, "WWW_FORM_PERCENTAGE");
if (CgiFormPercentagePtr[0])
{
/* provide a bar graph */
Percentage = atol (CgiFormPercentagePtr);
if (!isdigit(CgiFormPercentagePtr[0]) || Percentage > 100)
exit (ErrorGeneral ("Percentage is not acceptable.",
__FILE__, __LINE__));
GiftUsageBar (Percentage, 85, "");
exit (SS$_NORMAL);
}
if (strlen(CgiPathInfoPtr) > 1)
cptr = CgiPathInfoPtr+1;
else
{
/* disks not in path, see if they are specified from a form */
GetCgiVar (CgiFormDiskPtr, "WWW_FORM_DISK");
/* nothing in singular "_disk", try plural "_disks" */
if (!CgiFormDiskPtr[0]) GetCgiVar (CgiFormDiskPtr, "WWW_FORM_DISKS");
/* no, no disks at all, provide some help! */
if (!CgiFormDiskPtr[0])
{
char ServerPort [32];
GetCgiVar (CgiRequestSchemePtr, "WWW_REQUEST_SCHEME");
GetCgiVar (CgiServerNamePtr, "WWW_SERVER_NAME");
GetCgiVar (CgiServerPortPtr, "WWW_SERVER_PORT");
if (!CgiRequestSchemePtr[0]) CgiRequestSchemePtr = "http:";
if (!strcmp (CgiServerPortPtr, "80"))
ServerPort[0] = '\0';
else
sprintf (ServerPort, ":%s", CgiServerPortPtr);
fprintf (stdout,
"HTTP/1.0 302 Redirection\r\n\
Location: %s//%s%s%s\r\n\
Server: %s\r\n\
\r\n",
CgiRequestSchemePtr,
CgiServerNamePtr,
ServerPort,
HelpPathPtr,
CgiServerSoftwarePtr);
exit (SS$_NORMAL);
}
cptr = CgiFormDiskPtr;
}
zptr = (sptr = UpCaseDiskName) + sizeof(UpCaseDiskName);
for (/* see above*/; *cptr && sptr < zptr; *sptr++ = toupper(*cptr++));
if (sptr >= zptr)
exit (ErrorGeneral ("String too small.", __FILE__, __LINE__));
*sptr = '\0';
if (DoGraphicOnly)
{
OneDiskInfo (UpCaseDiskName);
exit (SS$_NORMAL);
}
sys$gettim (&CurrentBinTime);
sys$numtim (&CurrentNumTime, &CurrentBinTime);
if (VMSnok (status = lib$day_of_week (&CurrentBinTime, &DayOfWeek)))
exit (ErrorVmsStatus (status, "day of week", 0, __FILE__, __LINE__));
sprintf (DayDateTime, "%s, %d %s %d %02.02d:%02.02d:%02.02d",
DayName[DayOfWeek], CurrentNumTime[2],
MonthName[CurrentNumTime[1]], CurrentNumTime[0],
CurrentNumTime[3], CurrentNumTime[4], CurrentNumTime[5]);
ReportDiskInfo (UpCaseDiskName);
exit (SS$_NORMAL);
}
/*****************************************************************************/
/*
Script executing in OSU environment exits.
*/
AtOsuExit ()
{
if (Debug)
fprintf (stdout, "</DNETTEXT>\n");
else
{
fflush (stdout);
fprintf (stdout, "</DNETRAW>");
fflush (stdout);
}
}
/*****************************************************************************/
/*
Get "command-line" parameters, whether from the command-line or from a
configuration logical containing the equivalent.
*/
GetParameters ()
{
static char CommandLine [256];
static unsigned long Flags = 0;
register char *aptr, *cptr, *clptr, *sptr;
int status;
unsigned short Length;
char ch;
$DESCRIPTOR (CommandLineDsc, CommandLine);
/*********/
/* begin */
/*********/
if ((clptr = getenv ("HDISK$PARAM")) == NULL)
{
/* get the entire command line following the verb */
if (VMSnok (status =
lib$get_foreign (&CommandLineDsc, 0, &Length, &Flags)))
exit (status);
(clptr = CommandLine)[Length] = '\0';
}
aptr = NULL;
ch = *clptr;
for (;;)
{
if (aptr != NULL) *aptr = '\0';
if (!ch) break;
*clptr = ch;
if (Debug) fprintf (stdout, "clptr |%s|\n", clptr);
while (*clptr && isspace(*clptr)) *clptr++ = '\0';
aptr = clptr;
if (*clptr == '/') clptr++;
while (*clptr && !isspace (*clptr) && *clptr != '/')
{
if (*clptr != '\"')
{
clptr++;
continue;
}
cptr = clptr;
clptr++;
while (*clptr)
{
if (*clptr == '\"')
if (*(clptr+1) == '\"')
clptr++;
else
break;
*cptr++ = *clptr++;
}
*cptr = '\0';
if (*clptr) clptr++;
}
ch = *clptr;
if (*clptr) *clptr = '\0';
if (Debug) fprintf (stdout, "aptr |%s|\n", aptr);
if (!*aptr) continue;
if (strsame (aptr, "/CHARSET=", 4))
{
for (cptr = aptr; *cptr && *cptr != '='; cptr++);
if (*cptr) cptr++;
CliCharsetPtr = cptr;
continue;
}
if (strsame (aptr, "/DBUG", -1))
{
Debug = true;
continue;
}
if (strsame (aptr, "/HELP=", 4))
{
for (cptr = aptr; *cptr && *cptr != '='; cptr++);
if (*cptr) cptr++;
HelpPathPtr = cptr;
return (true);
}
if (GetPageParameter (aptr)) continue;
if (*aptr != '/')
{
fprintf (stdout, "%%%s-E-MAXPARM, too many parameters\n \\%s\\\n",
Utility, aptr);
exit (STS$K_ERROR | STS$M_INHIB_MSG);
}
else
{
fprintf (stdout, "%%%s-E-IVQUAL, unrecognized qualifier\n \\%s\\\n",
Utility, aptr+1);
exit (STS$K_ERROR | STS$M_INHIB_MSG);
}
}
}
/*****************************************************************************/
/*
Get command-line parameters associated with page scheme.
*/
boolean GetPageParameter (char *aptr)
{
register char *cptr;
/*********/
/* begin */
/*********/
if (strsame (aptr, "/PBACKGROUND=", 4))
{
for (cptr = aptr; *cptr && *cptr != '='; cptr++);
if (*cptr) cptr++;
PageScheme[PS_BACKGROUND] = cptr;
return (true);
}
if (strsame (aptr, "/PBGCOLOR=", 4))
{
for (cptr = aptr; *cptr && *cptr != '='; cptr++);
if (*cptr) cptr++;
PageScheme[PS_BGCOLOR] = cptr;
return (true);
}
if (strsame (aptr, "/PBBGCOLOR=", 5))
{
for (cptr = aptr; *cptr && *cptr != '='; cptr++);
if (*cptr) cptr++;
PageScheme[PS_BUTTONBGCOLOR] = cptr;
return (true);
}
if (strsame (aptr, "/PBBORDER=", 5))
{
for (cptr = aptr; *cptr && *cptr != '='; cptr++);
if (*cptr) cptr++;
PageScheme[PS_BUTTONBORDER] = cptr;
return (true);
}
if (strsame (aptr, "/PHBGCOLOR=", 5))
{
for (cptr = aptr; *cptr && *cptr != '='; cptr++);
if (*cptr) cptr++;
PageScheme[PS_HEADBGCOLOR] = cptr;
return (true);
}
if (strsame (aptr, "/PHBORDER=", 5))
{
for (cptr = aptr; *cptr && *cptr != '='; cptr++);
if (*cptr) cptr++;
PageScheme[PS_HEADBORDER] = cptr;
return (true);
}
if (strsame (aptr, "/PHTEXT=", 4))
{
for (cptr = aptr; *cptr && *cptr != '='; cptr++);
if (*cptr) cptr++;
PageScheme[PS_HEADTEXT] = cptr;
return (true);
}
if (strsame (aptr, "/PLAYOUT=", 4))
{
for (cptr = aptr; *cptr && *cptr != '='; cptr++);
if (*cptr) cptr++;
PageScheme[PS_LAYOUT] = cptr;
return (true);
}
if (strsame (aptr, "/PLINK=", 4))
{
for (cptr = aptr; *cptr && *cptr != '='; cptr++);
if (*cptr) cptr++;
PageScheme[PS_LINK] = cptr;
return (true);
}
if (strsame (aptr, "/PHLOCAL=", 4))
{
for (cptr = aptr; *cptr && *cptr != '='; cptr++);
if (*cptr) cptr++;
PageScheme[PS_HEADLOCAL] = cptr;
return (true);
}
if (strsame (aptr, "/PTEXT=", 4))
{
for (cptr = aptr; *cptr && *cptr != '='; cptr++);
if (*cptr) cptr++;
PageScheme[PS_TEXT] = cptr;
return (true);
}
if (strsame (aptr, "/PVLINK=", 4))
{
for (cptr = aptr; *cptr && *cptr != '='; cptr++);
if (*cptr) cptr++;
PageScheme[PS_VLINK] = cptr;
return (true);
}
return (false);
}
/*****************************************************************************/
/*
Set the page layout and colouration.
*/
SetPageScheme ()
{
int size;
char *sptr;
/*********/
/* begin */
/*********/
if (Debug) fprintf (stdout, "SetPageScheme()\n");
if (PageScheme[PS_LAYOUT] == NULL)
PageScheme[PS_LAYOUT] = "1";
if (PageScheme[PS_BACKGROUND] == NULL)
PageScheme[PS_BACKGROUND] = "";
if (PageScheme[PS_HEADLOCAL] == NULL)
PageScheme[PS_HEADLOCAL] = "";
if (PageScheme[PS_LAYOUT][0] == '2')
{
if (PageScheme[PS_BGCOLOR] == NULL) PageScheme[PS_BGCOLOR] = "";
if (PageScheme[PS_TEXT] == NULL) PageScheme[PS_TEXT] = "";
if (PageScheme[PS_LINK] == NULL) PageScheme[PS_LINK] = "";
if (PageScheme[PS_VLINK] == NULL) PageScheme[PS_VLINK] = "";
if (PageScheme[PS_HEADBGCOLOR] == NULL) PageScheme[PS_HEADBGCOLOR] = "";
if (PageScheme[PS_HEADBORDER] == NULL) PageScheme[PS_HEADBORDER] = "";
if (PageScheme[PS_HEADTEXT] == NULL) PageScheme[PS_HEADTEXT] = "";
if (PageScheme[PS_BUTTONBGCOLOR] == NULL) PageScheme[PS_BUTTONBGCOLOR] = "";
if (PageScheme[PS_BUTTONBORDER] == NULL) PageScheme[PS_BUTTONBORDER] = "";
}
else
{
if (PageScheme[PS_BGCOLOR] == NULL)
PageScheme[PS_BGCOLOR] = DEFAULT_PS_BGCOLOR;
if (PageScheme[PS_TEXT] == NULL)
PageScheme[PS_TEXT] = DEFAULT_PS_TEXT;
if (PageScheme[PS_LINK] == NULL)
PageScheme[PS_LINK] = DEFAULT_PS_LINK;
if (PageScheme[PS_VLINK] == NULL)
PageScheme[PS_VLINK] = DEFAULT_PS_VLINK;
if (PageScheme[PS_HEADBGCOLOR] == NULL)
PageScheme[PS_HEADBGCOLOR] = DEFAULT_PS_HEADBGCOLOR;
if (PageScheme[PS_HEADBORDER] == NULL)
PageScheme[PS_HEADBORDER] = DEFAULT_PS_HEADBORDER;
if (PageScheme[PS_HEADTEXT] == NULL)
PageScheme[PS_HEADTEXT] = DEFAULT_PS_HEADTEXT;
if (PageScheme[PS_BUTTONBGCOLOR] == NULL)
PageScheme[PS_BUTTONBGCOLOR] = DEFAULT_PS_BUTTONBGCOLOR;
if (PageScheme[PS_BUTTONBORDER] == NULL)
PageScheme[PS_BUTTONBORDER] = DEFAULT_PS_BUTTONBORDER;
}
/* <BODY> tag attributes */
size = strlen(PageScheme[PS_BACKGROUND]) +
strlen(PageScheme[PS_BGCOLOR]) +
strlen(PageScheme[PS_TEXT]) +
strlen(PageScheme[PS_LINK]) +
strlen(PageScheme[PS_VLINK]);
if (size)
{
if ((sptr = calloc (1, size+64)) == NULL) exit (vaxc$errno);
PageScheme[PS_BODYTAG] = sptr;
if (PageScheme[PS_BACKGROUND][0])
sptr += sprintf (sptr, " BACKGROUND=\"%s\"", PageScheme[PS_BACKGROUND]);
if (PageScheme[PS_BGCOLOR][0])
sptr += sprintf (sptr, " BGCOLOR=\"%s\"", PageScheme[PS_BGCOLOR]);
if (PageScheme[PS_TEXT][0])
sptr += sprintf (sptr, " TEXT=\"%s\"", PageScheme[PS_TEXT]);
if (PageScheme[PS_LINK][0])
sptr += sprintf (sptr, " LINK=\"%s\"", PageScheme[PS_LINK]);
if (PageScheme[PS_VLINK][0])
sptr += sprintf (sptr, " VLINK=\"%s\"", PageScheme[PS_VLINK]);
}
else
PageScheme[PS_BODYTAG] = "";
if (PageScheme[PS_HEADBGCOLOR][0])
{
if ((sptr = calloc (1, strlen(PageScheme[PS_HEADBGCOLOR])+16)) == NULL)
exit (vaxc$errno);
sprintf (sptr, " BGCOLOR=\"%s\"", PageScheme[PS_HEADBGCOLOR]);
PageScheme[PS_HEADBGCOLOR] = sptr;
PageScheme[PS_HEADPADDING] = "10";
}
else
PageScheme[PS_HEADPADDING] = "0";
if (PageScheme[PS_BUTTONBGCOLOR][0])
{
if ((sptr = calloc (1, strlen(PageScheme[PS_BUTTONBGCOLOR])+16)) == NULL)
exit (vaxc$errno);
sprintf (sptr, " BGCOLOR=\"%s\"", PageScheme[PS_BUTTONBGCOLOR]);
PageScheme[PS_BUTTONBGCOLOR] = sptr;
}
}
/*****************************************************************************/
/*
Provides a divider for top and bottom of the content of the page. This can be
a coloured bar (using <TABLE>) or a horizontal rule depending on the page
layout. "Buttons" providing script-internal and/or additional user-specified
links ('ButtonPtr' string) can be placed with(in) this bar. All button labels
are derived from 'ButtonPtr', with script-internal buttons using link-paths
set up via 'ButtonInternal[]' array, or any user-specified path depending on
requirement. An empty path (i.e. PathPtr[0] == '\0') obviously does not have a
link created, it just displays the button label. For a button-bar at the top
of the document use 1, bottom of the document use 2, and for just a bar with
no buttons at all use 0.
*/
ButtonBar (int Top1Bottom2)
{
#define MAX_BUTTON_COUNT 8
static int ButtonCount = -1;
static char *ButtonInternal [MAX_BUTTON_COUNT],
*ButtonLabel [MAX_BUTTON_COUNT],
*ButtonPath [MAX_BUTTON_COUNT];
int idx;
char *PathPtr;
/*********/
/* begin */
/*********/
if (Debug) fprintf (stdout, "ButtonBar() %d\n", Top1Bottom2);
if (ButtonCount == -1)
{
register char *cptr, *sptr;
if (Debug) fprintf (stdout, "|%s|\n", ButtonPtr);
cptr = ButtonPtr;
for (ButtonCount = 0;
ButtonCount < MAX_BUTTON_COUNT && *cptr;
ButtonCount++)
{
for (sptr = cptr; *sptr && *sptr != '=' && *sptr != ';'; sptr++)
if (*sptr == '\\') memcpy (sptr, sptr+1, strlen(sptr));
if (*sptr == '=') *sptr++ = '\0';
ButtonLabel[ButtonCount] = cptr;
cptr = sptr;
for (sptr = cptr; *sptr && *sptr != ';'; sptr++)
if (*sptr == '\\') memcpy (sptr, sptr+1, strlen(sptr));
if (*sptr) *sptr++ = '\0';
ButtonPath[ButtonCount] = cptr;
cptr = sptr;
}
}
if (Top1Bottom2)
{
/***********************************/
/* set up script-specified buttons */
/***********************************/
SCRIPT_SPECIFIC_BUTTON_CODE
}
if (PageScheme[PS_LAYOUT][0] == '2')
{
/************/
/* format 2 */
/************/
if (Top1Bottom2 == 2 || !Top1Bottom2)
{
fprintf (stdout, "<HR ALIGN=\"left\" SIZE=\"2\" WIDTH=\"95%%\">\n");
if (!Top1Bottom2) return;
}
fprintf (stdout, "<FONT SIZE=\"-1\"><NOBR>\n");
for (idx = 0; idx < ButtonCount; idx++)
{
if (ButtonInternal[idx] == NULL)
PathPtr = ButtonPath[idx];
else
PathPtr = ButtonInternal[idx];
if (idx) fprintf (stdout, " ");
if (PathPtr[0])
fprintf (stdout, "[<A HREF=\"%s\">%s</A>]\n",
PathPtr, ButtonLabel[idx]);
else
fprintf (stdout, "[%s]\n", ButtonLabel[idx]);
}
fprintf (stdout, "</NOBR></FONT>\n");
if (Top1Bottom2 == 1)
fprintf (stdout, "<HR ALIGN=\"left\" SIZE=\"2\" WIDTH=\"95%%\">\n");
}
else
{
/************/
/* format 1 */
/************/
fprintf (stdout,
"<TABLE BORDER=\"0\" CELLPADDING=\"0\" CELLSPACING=\"0\">\
<TR><TD HEIGHT=2></TD></TR>\
</TABLE>\n\
<TABLE BORDER=\"%s\" CELLPADDING=\"%s\" CELLSPACING=\"0\" WIDTH=100%%>\n\
<TR><TD%s>\n",
PageScheme[PS_HEADBORDER],
PageScheme[PS_HEADBORDER],
PageScheme[PS_HEADBGCOLOR]);
if (ButtonCount == 0 || !Top1Bottom2)
fprintf (stdout, " \n");
else
{
fprintf (stdout,
"<TABLE BORDER=\"%s\" CELLPADDING=1 CELLSPACING=\"0\">\n",
PageScheme[PS_BUTTONBORDER]);
for (idx = 0; idx < ButtonCount; idx++)
{
if (ButtonInternal[idx] == NULL)
PathPtr = ButtonPath[idx];
else
PathPtr = ButtonInternal[idx];
if (PathPtr[0])
fprintf (stdout,
"<TD ALIGN=\"center\"%s><FONT SIZE=\"-1\">\
<NOBR> <A HREF=\"%s\">%s</A> </NOBR></FONT></TD>\n",
PageScheme[PS_BUTTONBGCOLOR], PathPtr, ButtonLabel[idx]);
else
fprintf (stdout,
"<TD ALIGN=\"center\"%s><FONT SIZE=\"-1\">\
<NOBR> %s </NOBR></FONT></TD>\n",
PageScheme[PS_BUTTONBGCOLOR], ButtonLabel[idx]);
}
fprintf (stdout, "</TR></TABLE>\n");
}
fprintf (stdout,
"</TD></TR>\n\
</TABLE>\n\
<TABLE BORDER=\"0\" CELLPADDING=\"0\" CELLSPACING=\"0\">\
<TR><TD HEIGHT=2></TD></TR>\
</TABLE>\n");
}
}
/*****************************************************************************/
/*
*/
ReportDiskInfo (char *DiskName)
{
register char *cptr, *sptr;
register int cnt;
/*********/
/* begin */
/*********/
if (Debug) fprintf (stdout, "ProvideDiskInfo()\n");
fprintf (stdout,
"HTTP/1.0 200 Success\r\n\
Server: %s\r\n\
Content-Type: text/html%s\r\n\
Expires: Fri, 13 Jan 1978 14:00:00 GMT\r\n\
\r\n\
<HTML>\n\
<HEAD>\n\
<META NAME=\"generator\" CONTENT=\"%s\">\n\
<META NAME=\"environment\" CONTENT=\"%s\">\n\
<TITLE>hyperDISK ... %s</TITLE>\n\
</HEAD>\n\
<BODY%s>\n\
<TABLE BORDER=\"%s\" CELLPADDING=\"%s\" CELLSPACING=\"0\" WIDTH=100%%>\n\
<TR><TD%s>\n\
<FONT COLOR=\"%s\" SIZE=+1><B>\n\
%s\n\
</B></FONT><BR>\n\
<FONT COLOR=\"%s\" SIZE=\"-1\">\n\
<SUP>*</SUP><U>hyperDISK</U>\n\
</FONT>\n\
</TD>%s</TR>\n\
</TABLE>\n\
<BLOCKQUOTE>\n",
CgiServerSoftwarePtr, ContentTypeCharset,
SoftwareID, CgiTypePtr,
DiskName,
PageScheme[PS_BODYTAG],
PageScheme[PS_HEADBORDER],
PageScheme[PS_HEADPADDING],
PageScheme[PS_HEADBGCOLOR],
PageScheme[PS_HEADTEXT],
DayDateTime,
PageScheme[PS_HEADTEXT],
PageScheme[PS_HEADLOCAL]);
HttpHasBeenOutput = true;
cptr = DiskName;
while (*cptr)
{
sptr = cptr;
while (*cptr && isspace(*cptr)) cptr++;
while (*cptr && *cptr != ':' && *cptr != ',' && *cptr != '/') cptr++;
if (*cptr) *cptr++ = '\0';
if (!*sptr) continue;
OneDiskInfo (sptr);
}
fprintf (stdout,
"</BLOCKQUOTE>\n\
<P>\n");
ButtonBar (2);
fprintf (stdout,
"</BODY>\n\
</HTML>\n");
}
/*****************************************************************************/
/*
*/
OneDiskInfo (char *DiskName)
{
int status,
ErrorCount,
VolumeCount;
unsigned long TotalMaxBlock,
TotalFreeBlocks,
TotalUsedBlocks;
double dGBytesFree,
dGBytesMax,
dGBytesUsed,
dPercentUsed,
dPercentFree;
struct DiskInfoStruct *DiskInfoPtr,
*FirstDiskInfoPtr,
*NextDiskInfoPtr;
/*********/
/* begin */
/*********/
if (Debug) fprintf (stdout, "OneDiskInfo()\n");
if ((FirstDiskInfoPtr = calloc (sizeof(struct DiskInfoStruct), 1)) == NULL)
exit (ErrorVmsStatus (vaxc$errno, "allocating memory", "",
__FILE__, __LINE__));
if (VMSnok (status = GetDiskInfo (DiskName, FirstDiskInfoPtr)))
{
free (FirstDiskInfoPtr);
if (status == SS$_NOSUCHDEV)
{
if (DoGraphicOnly)
GiftUsageBar (0, 100, "NO SUCH DEVICE!");
else
fprintf (stdout,
"<H2>%s ... <FONT COLOR=\"#ff0000\">NO SUCH DEVICE!</FONT></H2>\n",
DiskName);
return;
}
exit (ErrorVmsStatus (status, DiskName, "", __FILE__, __LINE__));
}
if (!(FirstDiskInfoPtr->DevClass & DC$_DISK))
{
free (FirstDiskInfoPtr);
if (DoGraphicOnly)
GiftUsageBar (0, 100, "NOT A DISK DEVICE!");
else
fprintf (stdout,
"<H2>%s ... <FONT COLOR=\"#ff0000\">NOT A DISK DEVICE!</FONT></H2>\n",
DiskName);
return;
}
if (!(FirstDiskInfoPtr->DevChar & DEV$M_MNT))
{
free (FirstDiskInfoPtr);
if (DoGraphicOnly)
GiftUsageBar (0, 100, "NOT MOUNTED!");
else
fprintf (stdout,
"<H2>%s ... <FONT COLOR=\"#ff0000\">NOT MOUNTED!</FONT></H2>\n",
DiskName);
return;
}
/* on-line bit should normally be 1 */
if (!(FirstDiskInfoPtr->UcbStatus.lo32 & UCB$V_ONLINE))
{
free (FirstDiskInfoPtr);
if (DoGraphicOnly)
GiftUsageBar (0, 100, "NOT ONLINE!");
else
fprintf (stdout,
"<H2>%s ... <FONT COLOR=\"#ff0000\">NOT ONLINE!</FONT></H2>\n",
DiskName);
return;
}
/* unit timeout bit should normally be 0 */
if (FirstDiskInfoPtr->UcbStatus.lo32 & UCB$V_TIMOUT)
{
free (FirstDiskInfoPtr);
if (DoGraphicOnly)
GiftUsageBar (0, 100, "MOUNT VERIFY TIMEOUT!");
else
fprintf (stdout,
"<H2>%s ... <FONT COLOR=\"#ff0000\">MOUNT VERIFY HAS TIMED-OUT!</FONT></H2>\n\
<P>This device was in a mount verify state, <B>but</B> that has now \
timed-out. It could have been off-line, had the wrong volume on-line, \
had excessive errors or a corrupted file system. <B>In short ... \
there is a major problem that should investigated ASAP.</B>\n",
DiskName);
return;
}
/* mount verify bit should normally be 0 */
if (FirstDiskInfoPtr->UcbStatus.lo32 & UCB$V_MNTVERIP)
{
free (FirstDiskInfoPtr);
if (DoGraphicOnly)
GiftUsageBar (0, 100, "IN MOUNT VERIFY!");
else
fprintf (stdout,
"<H2>%s ... <FONT COLOR=\"#ff0000\">IN MOUNT VERIFY!</FONT></H2>\n\
<P>This device is in a mount verify state. It could be off-line, \
have the wrong volume on-line, have excessive errors or a corrupted \
file system. <B>In short ... there is a major problem that should \
investigated ASAP.</B>\n",
DiskName);
return;
}
if (FirstDiskInfoPtr->VolSetMem && FirstDiskInfoPtr->VolNumber > 1)
{
free (FirstDiskInfoPtr);
if (DoGraphicOnly)
GiftUsageBar (0, 100, "NOT PRIMARY VOLUME SET MEMBER!");
else
fprintf (stdout,
"<H2>%s ... <FONT COLOR=\"#ff0000\">NOT PRIMARY MEMBER!</FONT></H2>\n\
<P>This device is part of a volume set, but is not the primary member \
of that set. Specify only the primary member!\n",
DiskName);
return;
}
/***************************************/
/* additional devices for a volume set */
/***************************************/
DiskInfoPtr = FirstDiskInfoPtr;
while (DiskInfoPtr->NextDevName[0])
{
if ((DiskInfoPtr->NextPtr =
calloc (sizeof(struct DiskInfoStruct), 1)) == NULL)
exit (ErrorVmsStatus (vaxc$errno, "allocating memory", "",
__FILE__, __LINE__));
GetDiskInfo (DiskInfoPtr->NextDevName, DiskInfoPtr->NextPtr);
DiskInfoPtr = DiskInfoPtr->NextPtr;
}
/********************/
/* calculate totals */
/********************/
dGBytesFree = dGBytesMax = dGBytesUsed = 0.0;
ErrorCount = TotalMaxBlock = TotalFreeBlocks = TotalUsedBlocks =
VolumeCount = 0;
DiskInfoPtr = FirstDiskInfoPtr;
while (DiskInfoPtr != NULL)
{
VolumeCount++;
ErrorCount += DiskInfoPtr->ErrCnt;
dGBytesMax += (double)DiskInfoPtr->MaxBlock * 512.0 / 1000000000.0;
TotalMaxBlock += DiskInfoPtr->MaxBlock;
dGBytesFree += (double)DiskInfoPtr->FreeBlocks * 512.0 / 1000000000.0;
TotalFreeBlocks += DiskInfoPtr->FreeBlocks;
dGBytesUsed += (double)DiskInfoPtr->UsedBlocks * 512.0 / 1000000000.0;
TotalUsedBlocks += DiskInfoPtr->UsedBlocks;
DiskInfoPtr = DiskInfoPtr->NextPtr;
}
dPercentUsed = dGBytesUsed * 100.0 / dGBytesMax;
dPercentFree = dGBytesFree * 100.0 / dGBytesMax;
/****************/
/* graphic only */
/****************/
if (DoGraphicOnly)
{
/* local storage */
char String [256];
if (dPercentUsed == 100.0)
sprintf (String, "%s %.*fGB %.0f%% used",
DiskName, GBytesPrecision(dGBytesMax),
dGBytesMax, dPercentUsed);
else
if (dPercentUsed > 0.1)
sprintf (String, "%s %.*fGB %.0f%% used %.0f%% free",
DiskName, GBytesPrecision(dGBytesMax),
dGBytesMax, dPercentUsed, dPercentFree);
else
sprintf (String, "%s %.*fGB %.0f%% free",
DiskName, GBytesPrecision(dGBytesMax),
dGBytesMax, dPercentFree);
GiftUsageBar ((int)dPercentUsed, 85, String);
/* no need to deallocate memory, will be exit()ing shortly */
return;
}
/*********************/
/* graphic image tag */
/*********************/
fprintf (stdout,
"<H2>%s ... used: %.0f%% free: %.0f%%",
DiskName, dPercentUsed, dPercentFree);
if (ErrorCount >= ExcessiveErrorCount)
fprintf (stdout, " <FONT COLOR=\"#ff0000\">ERRORS!</FONT>");
fprintf (stdout,
"</H2>\n\
<IMG SRC=\"%s?percentage=%.0f\" ALT=\"[disk usage indicator]\">\n",
CgiScriptNamePtr, dPercentUsed);
if (DoDiskInfoTable)
{
/***************************************/
/* present table of device information */
/***************************************/
if (VolumeCount == 1)
fprintf (stdout, "<P>\n");
else
fprintf (stdout, "<P>Volume set comprising %d devices.\n<BR>\n",
VolumeCount);
fprintf (stdout,
"<STYLE TYPE=\"text/css\">\n\
th,td { padding:0.3em; }\n\
.spleft { padding-left:1em; }\n\
</STYLE>\n\
<TABLE CELLPADDING=\"5\" CELLSPACING=\"0\" BORDER=\"1\">\n\
<TR><TD>\n\
<TABLE CELLPADDING=\"3\" CELLSPACING=\"0\" BORDER=\"0\">\n\
<TR>\
<TD></TD>\
<TH COLSPAN=2><U>Total</U></TH>\
<TH COLSPAN=3><U>Used</U></TH>\
<TH COLSPAN=3><U>Free</U></TH>\
<TH><U>Errors</U></TH>\
<TH><U>Media</U></TH>\
</TR>\n\
<TR>\
<TD></TD>\
<TH ALIGN=\"right\" VALIGN=\"bottom\">\
<FONT SIZE=\"-1\"><U>blocks</U></FONT></TH>\
<TH ALIGN=\"right\" VALIGN=\"bottom\"><FONT SIZE=\"-1\"><U>GBytes</U></FONT></TH>\
<TH ALIGN=\"right\" VALIGN=\"bottom\" CLASS=\"spleft\"><FONT SIZE=\"-1\"><U>blocks</U></FONT></TH>\
<TH ALIGN=\"right\" VALIGN=\"bottom\"><FONT SIZE=\"-1\"><U>GBytes</U></FONT></TH>\
<TH ALIGN=\"right\" VALIGN=\"bottom\"><FONT SIZE=\"-1\"><U>percent</U></FONT></TH>\
<TH ALIGN=\"right\" VALIGN=\"bottom\" CLASS=\"spleft\"><FONT SIZE=\"-1\"><U>blocks</U></FONT></TH>\
<TH ALIGN=\"right\" VALIGN=\"bottom\"><FONT SIZE=\"-1\"><U>GBytes</U></FONT></TH>\
<TH ALIGN=\"right\" VALIGN=\"bottom\"><FONT SIZE=\"-1\"><U>percent</U></FONT></TH>\
</TR>\n");
/* all disks (just one, or multiple if a volume set) */
DiskInfoPtr = FirstDiskInfoPtr;
while (DiskInfoPtr != NULL)
{
fprintf (stdout,
"<TR ALIGN=\"right\">\
<TH ALIGN=\"left\" CLASS=\"spleft\"><U>%s</U></TH>\
<TD ALIGN=\"right\" CLASS=\"spleft\">%d</TD>\
<TD ALIGN=\"right\">%.*f</TD>\
<TD ALIGN=\"right\" CLASS=\"spleft\">%d</TD>\
<TD ALIGN=\"right\">%.*f</TD>\
<TD ALIGN=\"right\">%.0f%%</TD>\
<TD ALIGN=\"right\" CLASS=\"spleft\">%d</TD>\
<TD ALIGN=\"right\">%.*f</TD>\
<TD ALIGN=\"right\">%.0f%%</TD>\
<TD ALIGN=\"right\" CLASS=\"spleft\">%d</TD>\
<TD ALIGN=\"right\">%s</TD>\
</TR>\n",
DiskInfoPtr->FullDevName,
DiskInfoPtr->MaxBlock,
GBytesPrecision((double)DiskInfoPtr->MaxBlock * 512.0 / 1000000000.0),
(double)DiskInfoPtr->MaxBlock * 512.0 / 1000000000.0,
DiskInfoPtr->UsedBlocks,
GBytesPrecision((double)DiskInfoPtr->UsedBlocks * 512.0 / 1000000000.0),
(double)DiskInfoPtr->UsedBlocks * 512.0 / 1000000000.0,
((double)DiskInfoPtr->UsedBlocks * 512.0 / 1000000000.0) * 100.0 / dGBytesMax,
DiskInfoPtr->FreeBlocks,
GBytesPrecision((double)DiskInfoPtr->FreeBlocks * 512.0 / 1000000000.0),
(double)DiskInfoPtr->FreeBlocks * 512.0 / 1000000000.0,
((double)DiskInfoPtr->FreeBlocks * 512.0 / 1000000000.0) * 100.0 / dGBytesMax,
DiskInfoPtr->ErrCnt,
DiskInfoPtr->MediaName);
DiskInfoPtr = DiskInfoPtr->NextPtr;
}
/* block and Mbyte totals */
fprintf (stdout,
"<TR ALIGN=\"right\">\
<TD></TD>\
<TD ALIGN=\"right\">%d</TD>\
<TD></TD>\
<TD ALIGN=\"right\">%d</TD>\
<TD></TD>\
<TD></TD>\
<TD ALIGN=\"right\">%d</TD>\
<TD></TD>\
<TD></TD>\
<TD></TD>\
<TD></TD>\
</TR>\n\
<TR ALIGN=\"right\">\
<TD></TD>\
<TD></TD>\
<TD ALIGN=\"right\">%.*f</TD>\
<TD></TD>\
<TD ALIGN=\"right\">%.*f</TD>\
<TD></TD>\
<TD></TD>\
<TD ALIGN=\"right\">%.*f</TD>\
</TR>\n",
TotalMaxBlock,
TotalUsedBlocks,
TotalFreeBlocks,
GBytesPrecision(dGBytesMax), dGBytesMax,
GBytesPrecision(dGBytesUsed), dGBytesUsed,
GBytesPrecision(dGBytesFree), dGBytesFree);
fprintf (stdout, "</TABLE>\n</TD></TR>\n</TABLE>\n");
}
/*************************/
/* free allocated memory */
/*************************/
NextDiskInfoPtr = FirstDiskInfoPtr;
while (NextDiskInfoPtr != NULL)
{
DiskInfoPtr = NextDiskInfoPtr;
NextDiskInfoPtr = NextDiskInfoPtr->NextPtr;
free (DiskInfoPtr);
}
}
/*****************************************************************************/
/*
*/
int GBytesPrecision (double GBytes)
{
/*********/
/* begin */
/*********/
if (Debug) fprintf (stdout, "GBytesPrecision() |%f|\n", GBytes);
if (GBytes < 1.0) return (3);
if (GBytes < 10.0) return (2);
return (1);
}
/*****************************************************************************/
/*
*/
GetDiskInfo
(
char *DiskName,
struct DiskInfoStruct *diptr
)
{
static long DviDevClass = DVI$_DEVCLASS,
DviDevChar = DVI$_DEVCHAR,
DviDevChar2 = DVI$_DEVCHAR2,
DviFullDevNam = DVI$_FULLDEVNAM,
DviFreeBlocks = DVI$_FREEBLOCKS,
DviErrCnt = DVI$_ERRCNT,
DviMaxBlock = DVI$_MAXBLOCK,
DviMediaName = DVI$_MEDIA_NAME,
DviNextDevNam = DVI$_NEXTDEVNAM,
DviSts = DVI$_STS,
DviVolNumber = DVI$_VOLNUMBER,
DviVolSetMem = DVI$_VOLSETMEM;
register char *cptr, *sptr;
int status;
unsigned short StringItemLength;
$DESCRIPTOR (DeviceNameDsc, "");
$DESCRIPTOR (StringItemDsc, "");
/*********/
/* begin */
/*********/
if (Debug) fprintf (stdout, "GetDiskInfo() |%s|\n", DiskName);
diptr->MaxBlock = diptr->FreeBlocks = diptr->UsedBlocks = 0;
diptr->FullDevName[0] = diptr->NextDevName[0] = diptr->MediaName[0] = '\0';
diptr->UcbStatus.lo32 = diptr->UcbStatus.hi32 = 0;
DeviceNameDsc.dsc$w_length = strlen (DiskName);
DeviceNameDsc.dsc$a_pointer = DiskName;
if (VMSnok (status =
lib$getdvi (&DviDevClass, 0, &DeviceNameDsc, &diptr->DevClass, 0, 0)))
return (status);
if (!(diptr->DevClass & DC$_DISK)) return (SS$_NORMAL);
if (VMSnok (status =
lib$getdvi (&DviDevChar, 0, &DeviceNameDsc, &diptr->DevChar, 0, 0)))
return (status);
if (!(diptr->DevChar & DEV$M_MNT)) return (SS$_NORMAL);
if (VMSnok (status =
lib$getdvi (&DviDevChar2, 0, &DeviceNameDsc, &diptr->DevChar2, 0, 0)))
return (status);
if (VMSnok (status =
lib$getdvi (&DviSts, 0, &DeviceNameDsc, &diptr->UcbStatus, 0, 0)))
return (status);
StringItemDsc.dsc$w_length = sizeof(diptr->FullDevName);
StringItemDsc.dsc$a_pointer = diptr->FullDevName;
if (VMSnok (status =
lib$getdvi (&DviFullDevNam, 0, &DeviceNameDsc,
0, &StringItemDsc, &StringItemLength)))
return (status);
diptr->FullDevName[StringItemLength] = '\0';
if (diptr->FullDevName[0] == '_')
{
/* copy the string over itself to get rid of the leading underscore */
cptr = diptr->FullDevName;
sptr = diptr->FullDevName+1;
while (*sptr != '\0' && *sptr != ' ') *cptr++ = *sptr++;
*cptr = '\0';
}
StringItemDsc.dsc$w_length = sizeof(diptr->MediaName);
StringItemDsc.dsc$a_pointer = diptr->MediaName;
if (VMSnok (status =
lib$getdvi (&DviMediaName, 0, &DeviceNameDsc,
0, &StringItemDsc, &StringItemLength)))
return (status);
/* terminate the device name at the first white-space */
diptr->MediaName[StringItemLength] = '\0';
cptr = diptr->MediaName;
while (*cptr != '\0' && *cptr != ' ') cptr++;
*cptr = '\0';
if (VMSnok (status =
lib$getdvi (&DviVolSetMem, 0, &DeviceNameDsc,
&diptr->VolSetMem, 0, 0)))
return (status);
if (diptr->VolSetMem)
{
if (VMSok (status))
status = lib$getdvi (&DviVolNumber, 0, &DeviceNameDsc,
&diptr->VolNumber, 0, 0);
StringItemDsc.dsc$w_length = sizeof(diptr->NextDevName);
StringItemDsc.dsc$a_pointer = diptr->NextDevName;
status = lib$getdvi (&DviNextDevNam, 0, &DeviceNameDsc,
0, &StringItemDsc, &StringItemLength);
diptr->NextDevName[StringItemLength] = '\0';
if (diptr->NextDevName[0] == '_')
{
/* copy the string over itself to get rid of the leading underscore */
cptr = diptr->NextDevName;
sptr = diptr->NextDevName+1;
while (*sptr != '\0' && *sptr != ' ') *cptr++ = *sptr++;
*cptr = '\0';
}
}
if (VMSnok (status =
lib$getdvi (&DviMaxBlock, 0, &DeviceNameDsc,
&diptr->MaxBlock, 0, 0)))
return (status);
if (VMSnok (status =
lib$getdvi (&DviFreeBlocks, 0, &DeviceNameDsc,
&diptr->FreeBlocks, 0, 0)))
return (status);
diptr->UsedBlocks = diptr->MaxBlock - diptr->FreeBlocks;
if (Debug)
fprintf (stdout,
"**********\n\
UcbStatus.lo32: %08.08X\n\
UcbStatus.hi32: %08.08X\n\
DevClass: %d\n\
DevChar: %d\n\
DevChar2: %d\n\
MaxBlock: %d\n\
FreeBlocks: %d\n\
UsedBlocks: %d\n\
VolNumber: %d\n\
VolSetMem: %d\n\
ErrCnt: %d\n\
FullDevName: %s\n\
NextDevName: %s\n\
MediaName: %s\n\
**********\n",
diptr->UcbStatus.lo32,
diptr->UcbStatus.hi32,
diptr->DevClass,
diptr->DevChar,
diptr->DevChar2,
diptr->MaxBlock,
diptr->FreeBlocks,
diptr->UsedBlocks,
diptr->VolNumber,
diptr->VolSetMem,
diptr->ErrCnt,
diptr->FullDevName,
diptr->NextDevName,
diptr->MediaName);
return (SS$_NORMAL);
}
/*****************************************************************************/
/*
*/
ErrorGeneral
(
char *Text,
char *SourceFileName,
int SourceLineNumber
)
{
register char *cptr;
/*********/
/* begin */
/*********/
/*
The source file format provided by the "__FILE__" macro will be
"device:[directory]name.type;ver". Reduce that to "name.type".
*/
for (cptr = SourceFileName; *cptr && *cptr != ';'; cptr++);
if (*cptr)
{
while (*cptr != '.') cptr--;
*cptr-- = '\0';
}
while (*cptr != ']') cptr--;
cptr++;
if (HttpHasBeenOutput)
{
fprintf (stdout,
"<P><HR SIZE=3>\n\
<H1>ERROR!</H1>\n\
<!-- %s, %s, %d -->\n\
<P>Reported by server.\n\
<P>%s\n\
</BODY>\n\
</HTML>\n",
SoftwareID, cptr, SourceLineNumber, Text);
}
else
{
fprintf (stdout,
"HTTP/1.0 404 Error\r\n\
Server: %s\r\n\
Content-Type: text/html%s\r\n\
\r\n\
<HTML>\n\
<HEAD>\n\
<META NAME=\"generator\" CONTENT=\"%s\">\n\
<META NAME=\"module\" CONTENT=\"%s\">\n\
<META NAME=\"line\" CONTENT=\"%d\">\n\
<TITLE>Error 404</TITLE>\n\
</HEAD>\n\
<BODY>\n\
<H1>ERROR!</H1>\n\
<P>Reported by server.\n\
<P>%s\n\
</BODY>\n\
</HTML>\n",
CgiServerSoftwarePtr, ContentTypeCharset,
SoftwareID, cptr, SourceLineNumber, Text);
}
return (SS$_NORMAL);
}
/*****************************************************************************/
/*
*/
ErrorVmsStatus
(
int StatusValue,
char *Text,
char *HiddenText,
char *SourceFileName,
int SourceLineNumber
)
{
static char Message [256];
static $DESCRIPTOR (MessageDsc, Message);
register char *cptr;
int status;
short int Length;
/*********/
/* begin */
/*********/
if (VMSok (status = sys$getmsg (StatusValue, &Length, &MessageDsc, 1, 0)))
{
Message[Length] = '\0';
Message[0] = toupper(Message[0]);
}
else
strcpy (Message, ""sys$getmsg() failed"");
/*
The source file format provided by the "__FILE__" macro will be
"device:[directory]name.type;ver". Reduce that to "name.type".
*/
for (cptr = SourceFileName; *cptr && *cptr != ';'; cptr++);
if (*cptr)
{
while (*cptr != '.') cptr--;
*cptr-- = '\0';
}
while (*cptr != ']') cptr--;
cptr++;
if (HttpHasBeenOutput)
{
fprintf (stdout,
"<P><HR SIZE=3>\n\
<H1>ERROR!</H1>\n\
<!-- %s, %s, %d -->\n\
<P>Reported by server.\n\
<P>%s ... <TT>%s</TT>\n\
<!-- %%X%08.08X \"%s\" -->\n\
</BODY>\n\
</HTML>\n",
SoftwareID, cptr, SourceLineNumber,
Message, Text, StatusValue, HiddenText);
}
else
{
fprintf (stdout,
"HTTP/1.0 404 Error\r\n\
Server: %s\r\n\
Content-Type: text/html%s\r\n\
\r\n\
<HTML>\n\
<HEAD>\n\
<META NAME=\"generator\" CONTENT=\"%s\">\n\
<META NAME=\"module\" CONTENT=\"%s\">\n\
<META NAME=\"line\" CONTENT=\"%d\">\n\
<TITLE>Error 404</TITLE>\n\
</HEAD>\n\
<BODY>\n\
<H1>ERROR!</H1>\n\
<P>Reported by server.\n\
<P>%s ... <TT>%s</TT>\n\
<!-- %%X%08.08X \"%s\" -->\n\
</BODY>\n\
</HTML>\n",
CgiServerSoftwarePtr, ContentTypeCharset,
SoftwareID, cptr, SourceLineNumber,
Message, Text, StatusValue, HiddenText);
}
return (SS$_NORMAL);
}
/****************************************************************************/
/*
Does a case-insensitive, character-by-character string compare and returns
true if two strings are the same, or false if not. If a maximum number of
characters are specified only those will be compared, if the entire strings
should be compared then specify the number of characters as 0.
*/
boolean strsame
(
register char *sptr1,
register char *sptr2,
register int count
)
{
while (*sptr1 && *sptr2)
{
if (toupper (*sptr1++) != toupper (*sptr2++)) return (false);
if (count)
if (!--count) return (true);
}
if (*sptr1 || *sptr2)
return (false);
else
return (true);
}
/*****************************************************************************/