1. <GALiRe bgimage:sandbox.png;bgrepeat:false;bgpos:center center;toppadding:10;> 2. 3. <title>Index for /sandbox/<end title> 4. <stylesheet:http://www.globalaircraft.org/default.css;> 5. 6. <large fontsize:18;><bold>Index for /sandbox/<end bold><end large> 7. <line><new> 8. <table border:0;spacing:1;padding:3;class:reg1;width:500;> 9. <row class:reg1p5;> 10. <cell bgcolor:#112299;width:230;><color:#FFFFFF;>File Name<end color><end cell> 11. <cell bgcolor:#112299;><color:#FFFFFF;>Type<end color><end cell> 12. <cell bgcolor:#112299;><color:#FFFFFF;>Size<end color><end cell> 13. <cell bgcolor:#112299;align:right;><color:#FFFFFF;>Last Updated<end color><end cell> 14. <end row> 15. 16. <% 17. 18. @color=('#F6F6F6','#DDDDDD'); 19. 20. open("/") as (#DIR); 21. @files = #DIR; 22. close(#DIR); 23. @files = sort(@files); 24. 25. $counter=0; 26. while ($file = @files){ 27. if ($file contains(/\.gacp$/)i) { 28. %stats = info("$file"); 29. 30. ($fName,$fType) = split($file) by("."); 31. $fType=".$fType"; 32. 33. if (length($fName) > 35) {$fName=select(0,30) from($fName);$fName="$fName...";} 34. 35. $size=%stats[size]; 36. if ($size >= 1024) {$size = solve($size/1024);$size=round($size);$size = "$size KB";} 37. else {$size = "$size B";} 38. 39. $push="<row><cell bgcolor:@color[$counter];align:left;width:230;><link:http://galire.globalaircraft.org/sandbox/$file;>$fName<end link> (<link:http://galire.globalaircraft.org/sandbox/view-source.pl\?file=$file\&bland=1;>source<end link>)<end cell><cell bgcolor:@color[$counter];align:left;>GALiRe ($fType)<end cell><cell bgcolor:@color[$counter];align:left;>$size<end cell><cell bgcolor:@color[$counter];align:right;>%stats[mdate]<end cell><end row>\n"; 40. add($push) to(@tabledFiles); 41. 42. if ($counter eq "1") {$counter=0;}else {$counter++;} 43. 44. } 45. } 46. 47. if (length(@tabledFiles) eq 0) { 48. $files_full = "<row><cell align:left;colspan:5;>'/sandbox/' doesn't have any files.<end cell><end row>"; 49. add($files_full) to(@tabledFiles); 50. } 51. 52. $push="<row><cell bgcolor:\#DDDDDD;align:left;width:230;><link:http://galire.globalaircraft.org/SampleHost/;>SampleHost<end link><end cell><cell bgcolor:\#DDDDDD;align:left;>Link<end cell><cell bgcolor:\#DDDDDD;align:left;> <end cell><cell bgcolor:\#DDDDDD;align:right;> <end cell><end row>\n"; 53. add($push) to(@tabledFiles)b; 54. 55. $push="<row><cell bgcolor:\#F6F6F6;align:left;width:230;><link:http://galire.globalaircraft.org/;>..<end link><end cell><cell bgcolor:\#F6F6F6;align:left;>Link<end cell><cell bgcolor:\#F6F6F6;align:left;> <end cell><cell bgcolor:\#F6F6F6;align:right;> <end cell><end row>\n"; 56. add($push) to(@tabledFiles)b; 57. 58. print join(@tabledFiles) by(""); 59. 60. %> 61. 62. <end table> 63. <new><line><new> 64. 65. 66. <end GALiRe>
Back to /sandbox/