Rev 8002 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 8002 | Rev 17180 | ||
---|---|---|---|
Line 45... | Line 45... | ||
45 | !!INDEXEND |
45 | !!INDEXEND |
46 | 46 | ||
47 | !header1 |
47 | !header1 |
48 | <h1 class="wims_title"> |
48 | <h1 class="wims_title"> |
49 | <span style="text-transform:capitalize;">www |
49 | <span style="text-transform:capitalize;">www |
50 | Interactive Multipurpose Server</span><br |
50 | Interactive Multipurpose Server</span><br> |
51 | <span style="font-size:small">en <a href="/">$httpd_HTTP_HOST</a></span> <br |
51 | <span style="font-size:small">en <a href="/">$httpd_HTTP_HOST</a></span> <br> |
52 | $module_title</h1> |
52 | $module_title</h1> |
53 | 53 | ||
54 | !set mir=wimshome/public_html/html/mirrors.es |
54 | !set mir=wimshome/public_html/html/mirrors.es |
55 | !set thissite=!tolower $httpd_SERVER_NAME |
55 | !set thissite=!tolower $httpd_SERVER_NAME |
56 | !set n=!recordcnt $mir |
56 | !set n=!recordcnt $mir |
Line 76... | Line 76... | ||
76 | Aquí están los otros sitios WIMS que se sabe que están abiertos al |
76 | Aquí están los otros sitios WIMS que se sabe que están abiertos al |
77 | público general. Si usa normalmente WIMS en su trabajo, le sugerimos |
77 | público general. Si usa normalmente WIMS en su trabajo, le sugerimos |
78 | que añada a sus Favoritos al menos una de estas direcciones. |
78 | que añada a sus Favoritos al menos una de estas direcciones. |
79 | 79 | ||
80 | $table_header |
80 | $table_header |
81 | $table_hdtr<th>Sitio</th><th>Localización</th><th>País</th><th>Idiomas<br |
81 | $table_hdtr<th>Sitio</th><th>Localización</th><th>País</th><th>Idiomas<br>en que funciona</th><th>Comentarios</th></tr> |
82 | !for i_=1 to $n |
82 | !for i_=1 to $n |
83 | !set j_=!item $i_ of $c |
83 | !set j_=!item $i_ of $c |
84 | !set l_=!record $j_ of $mir |
84 | !set l_=!record $j_ of $mir |
85 | !distribute lines $l_ into u_,t_,C_,l_,m_,e_,r_ |
85 | !distribute lines $l_ into u_,t_,C_,l_,m_,e_,r_ |
86 | !readproc mirror.proc |
86 | !readproc mirror.proc |
Line 88... | Line 88... | ||
88 | <a href="$u_">$U_</a></td> |
88 | <a href="$u_">$U_</a></td> |
89 | <td>$t_</td> |
89 | <td>$t_</td> |
90 | <td>$C_</td> |
90 | <td>$C_</td> |
91 | <td> |
91 | <td> |
92 | !for L_ in $l_ |
92 | !for L_ in $l_ |
93 | <img src="gifs/$L_.gif" alt="$L_.gif" height="16" |
93 | <img src="gifs/$L_.gif" alt="$L_.gif" height="16"> |
94 | !next L_ |
94 | !next L_ |
95 | !! <td align="center">!mailurl n$e_ $m_\nWIMS site |
95 | !! <td align="center">!mailurl n$e_ $m_\nWIMS site |
96 | </td><td>$r_ </td></tr> |
96 | </td><td>$r_ </td></tr> |
97 | !next i_ |
97 | !next i_ |
98 | $table_end |
98 | $table_end |