Rev 5254 | Rev 5764 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 5254 | Rev 5708 | ||
---|---|---|---|
Line 22... | Line 22... | ||
22 | !let module_language =ca |
22 | !let module_language =ca |
23 | 23 | ||
24 | !!Your copyright policy. |
24 | !!Your copyright policy. |
25 | !!Your page will be included in wims distribution if the word `GNU' |
25 | !!Your page will be included in wims distribution if the word `GNU' |
26 | !! appears in the following definition. |
26 | !! appears in the following definition. |
27 | !let module_copyright =© 1998 (<a |
27 | !let module_copyright =© 1998 (<a href="COPYING">GNU GPL</a>) |
28 | 28 | ||
29 | !! Possible categories: exercise, tool, dictionary, course, recreation. |
29 | !! Possible categories: exercise, tool, dictionary, course, recreation. |
30 | !let module_category =adm |
30 | !let module_category =adm |
31 | 31 | ||
32 | !! En: elementary school. Hn: high school. Un: undergrad. |
32 | !! En: elementary school. Hn: high school. Un: undergrad. |
Line 41... | Line 41... | ||
41 | !let module_keywords = |
41 | !let module_keywords = |
42 | 42 | ||
43 | 43 | ||
44 | !!INDEXEND |
44 | !!INDEXEND |
45 | 45 | ||
46 | !!<html><head> |
- | |
47 | !!$wims_html_header |
- | |
48 | !!</head> |
- | |
49 | !!<body $wims_htmlbody> |
- | |
50 | !header1 |
46 | !header1 |
51 | <h1 class="wims_title"> |
47 | <h1 class="wims_title"> |
52 | <font size=+2>W</font>WW |
48 | <font size=+2>W</font>WW |
53 | <font size=+2>I</font>nteractive |
49 | <font size=+2>I</font>nteractive |
54 | <font size=+2>M</font>ultipurpose |
50 | <font size=+2>M</font>ultipurpose |
55 | <font size=+2>S</font>erver<br> |
51 | <font size=+2>S</font>erver<br> |
56 | <font size="-1">à <a href="/">$httpd_HTTP_HOST</a></font> |
52 | <font size="-1">à <a href="/">$httpd_HTTP_HOST</a></font><br/> |
57 | $module_title</h1> <p> |
53 | $module_title</h1> <p> |
58 | 54 | ||
59 | !set mir=wimshome/public_html/html/mirrors.ca |
55 | !set mir=wimshome/public_html/html/mirrors.ca |
60 | !set thissite=!tolower $httpd_SERVER_NAME |
56 | !set thissite=!tolower $httpd_SERVER_NAME |
61 | !set n=!recordcnt $mir |
57 | !set n=!recordcnt $mir |
Line 84... | Line 80... | ||
84 | !for i_=1 to $n |
80 | !for i_=1 to $n |
85 | !set j_=!item $i_ of $c |
81 | !set j_=!item $i_ of $c |
86 | !set l_=!record $j_ of $mir |
82 | !set l_=!record $j_ of $mir |
87 | !distribute lines $l_ into u_,t_,C_,l_,m_,e_,r_ |
83 | !distribute lines $l_ into u_,t_,C_,l_,m_,e_,r_ |
88 | !readproc mirror.proc |
84 | !readproc mirror.proc |
89 | $table_tr<td |
85 | $table_tr<td> |
90 | <a href="$u_">$U_</a></td> |
86 | <a href="$u_">$U_</a></td> |
91 | <td |
87 | <td>$t_</td> |
92 | <td |
88 | <td>$C_</td> |
93 | <td |
89 | <td> |
94 | !for L_ in $l_ |
90 | !for L_ in $l_ |
95 | <img src="gifs/$L_.gif" alt="$L_.gif" height="16"> |
91 | <img src="gifs/$L_.gif" alt="$L_.gif" height="16" /> |
96 | !next L_ |
92 | !next L_ |
97 | !! <td align="center">!mailurl n$e_ $m_\nWIMS site |
93 | !! <td align="center">!mailurl n$e_ $m_\nWIMS site |
98 | </td><td>$r_ </td></tr> |
94 | </td><td>$r_ </td></tr> |
99 | !next i_ |
95 | !next i_ |
100 | $table_end <p> |
96 | $table_end <p> |