/wp/ex3/index.lsp
1 <?lsp
2 local random = ba.rnd or math.random
3 local freezerTemp = 5 - random(35000)/1000;
4 local fridgeTemp = 1+random(8000)/1000;
5 page.count = page.count and page.count + 1 or 1;
6 local frezColTab = {
7 [-35]="blue",
8 [-30]="green",
9 [-25]="green",
10 [-20]="yellow",
11 [-15]="yellow",
12 [-10]="orange",
13 [-5]="orange",
14 [0]="red",
15 [5]="red"
16 }
17 function getFreezerImg(temp, i)
18 if(temp < i) then
19 return "transparent";
20 end
21 return frezColTab[i];
22 end
23
24 local fridColTab = {
25 [1]="blue",
26 [2]="green",
27 [3]="green",
28 [4]="yellow",
29 [5]="yellow",
30 [6]="orange",
31 [7]="orange",
32 [8]="red",
33 [9]="red"
34 }
35 function getFridgeImg(temp, i)
36 if(temp < i) then
37 return "transparent";
38 end
39 return fridColTab[i];
40 end
41
42
43 ?>
44 <html>
45 <head>
46 <link href="../style.css" rel="stylesheet" type="text/css"/>
47 </head>
48 <body>
49 <h1>My refrigerator</h1>
50 <p style="float:right"><br/><a href="./">Refresh</a> counter:
<?lsp=page.count?></p>
51 <table>
52 <tr>
53 <td colspan="8">Freezer temperature</td>
54 </tr>
55 <tr>
56
61 </tr>
62 <tr>
63
<?lsp -- Print out the images in the second table row
64 for i=-35,0,5 do
65 response:write("<td><img src='"..
66 getFreezerImg(freezerTemp, i)..".gif'/></td>");
67 end
68 ?>
69 </tr>
70
71 <tr>
72 <td colspan="8">Fridge temperature</td>
73 </tr>
74
75 <tr>
76
<?lsp -- print out the temperatures 1 to 8 in the first table row
77 for i=1,8 do
78 response:write("<td>"..i.."</td>");
79 end
80 ?>
81 </tr>
82 <tr>
83
<?lsp -- Print out the images in the second table row
84 for i=1,8 do
85 response:write("<td><img src='"..
86 getFridgeImg(fridgeTemp, i)..".gif'/></td>");
87 end
88 ?>
89 </tr>
90 </table>
91 </body>
92 </html>
93