Subversion Repositories wimsdev

Rev

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 />en que funciona</th><th>Comentarios</th></tr>
 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_&nbsp;</td></tr>
 96 
  </td><td>$r_&nbsp;</td></tr>
97 
 !next i_
 97 
 !next i_
98 
 $table_end
 98 
 $table_end