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>&nbsp;&nbsp;(<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;>&nbsp;<end cell><cell bgcolor:\#DDDDDD;align:right;>&nbsp;<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;>&nbsp;<end cell><cell bgcolor:\#F6F6F6;align:right;>&nbsp;<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/