Subversion Repositories wimsdev

Rev

Rev 8002 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8002 Rev 17180
Line 48... Line 48...
48 
!!<body $wims_htmlbody>
 48 
!!<body $wims_htmlbody>
49 
!header1
 49 
!header1
50 
 
 50 
 
51 
<h1 class="wims_title">
 51 
<h1 class="wims_title">
52 
<span style="text-transform:capitalize;">www
 52 
<span style="text-transform:capitalize;">www
53 
Interactive Multipurpose Server</span><br />
 53 
Interactive Multipurpose Server</span><br>
54 
<span style="font-size:small">at <a href="/">$httpd_HTTP_HOST</a></span> <br />
 54 
<span style="font-size:small">at <a href="/">$httpd_HTTP_HOST</a></span> <br>
55 
$module_title</h1>
 55 
$module_title</h1>
56 
 
 56 
 
57 
!set mir=wimshome/public_html/html/mirrors.en
 57 
!set mir=wimshome/public_html/html/mirrors.en
58 
!set thissite=!tolower $httpd_SERVER_NAME
 58 
!set thissite=!tolower $httpd_SERVER_NAME
59 
!set n=!recordcnt $mir
 59 
!set n=!recordcnt $mir
Line 79... Line 79...
79 
 Here are the other WIMS sites known to be open to the general public.
 79 
 Here are the other WIMS sites known to be open to the general public.
80 
 If you use WIMS regularly in your work, we suggest
 80 
 If you use WIMS regularly in your work, we suggest
81 
 that you bookmark at least some of these addresses, so that if your favorite
 81 
 that you bookmark at least some of these addresses, so that if your favorite
82 
 site becomes temporarily unavailable, you would not see your work disrupted.
 82 
 site becomes temporarily unavailable, you would not see your work disrupted.
83 
 $table_header
 83 
 $table_header
84 
 $table_hdtr<th>Site</th><th>Location</th><th>Country</th><th>Supported<br />languages</th><th>Comments</th></tr>
 84 
 $table_hdtr<th>Site</th><th>Location</th><th>Country</th><th>Supported<br>languages</th><th>Comments</th></tr>
85 
 !for i_=1 to $n
 85 
 !for i_=1 to $n
86 
  !set j_=!item $i_ of $c
 86 
  !set j_=!item $i_ of $c
87 
  !set l_=!record $j_ of $mir
 87 
  !set l_=!record $j_ of $mir
88 
  !distribute lines $l_ into u_,t_,C_,l_,m_,e_,r_
 88 
  !distribute lines $l_ into u_,t_,C_,l_,m_,e_,r_
89 
  !readproc mirror.proc
 89 
  !readproc mirror.proc
Line 91... Line 91...
91 
  <a href="$u_">$U_</a></td>
 91 
  <a href="$u_">$U_</a></td>
92 
  <td align="center">$t_</td>
 92 
  <td align="center">$t_</td>
93 
  <td align="center">$C_</td>
 93 
  <td align="center">$C_</td>
94 
  <td align="center">
 94 
  <td align="center">
95 
  !for L_ in $l_
 95 
  !for L_ in $l_
96 
   <img src="gifs/$L_.gif" alt="$L_.gif" height="16" />
 96 
   <img src="gifs/$L_.gif" alt="$L_.gif" height="16">
97 
  !next L_
 97 
  !next L_
98 
!!  <td align="center">!mailurl n$e_ $m_\nWIMS site
 98 
!!  <td align="center">!mailurl n$e_ $m_\nWIMS site
99 
  </td><td>$r_&nbsp;</td></tr>
 99 
  </td><td>$r_&nbsp;</td></tr>
100 
 !next i_
 100 
 !next i_
101 
 $table_end
 101 
 $table_end