Subversion Repositories wimsdev

Rev

Rev 5918 | Rev 8002 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5918 Rev 6235
Line 47... Line 47...
47 
!!<body $wims_htmlbody>
 47 
!!<body $wims_htmlbody>
48 
!header1
 48 
!header1
49 
 
 49 
 
50 
<h1 class="wims_title">
 50 
<h1 class="wims_title">
51 
<span style="text-transform:capitalize;">www
 51 
<span style="text-transform:capitalize;">www
52 
Interactive Multipurpose Server</span><br/>
 52 
Interactive Multipurpose Server</span><br />
53 
<span style="font-size:small">at <a href="/">$httpd_HTTP_HOST</a></span> <br/>
 53 
<span style="font-size:small">at <a href="/">$httpd_HTTP_HOST</a></span> <br />
54 
$module_title</h1>
 54 
$module_title</h1>
55 
 
 55 
 
56 
!set mir=wimshome/public_html/html/mirrors.en
 56 
!set mir=wimshome/public_html/html/mirrors.en
57 
!set thissite=!tolower $httpd_SERVER_NAME
 57 
!set thissite=!tolower $httpd_SERVER_NAME
58 
!set n=!recordcnt $mir
 58 
!set n=!recordcnt $mir
Line 78... Line 78...
78 
 Here are the other WIMS sites known to be open to the general public.
 78 
 Here are the other WIMS sites known to be open to the general public.
79 
 If you use WIMS regularly in your work, we suggest
 79 
 If you use WIMS regularly in your work, we suggest
80 
 that you bookmark at least some of these addresses, so that if your favorite
 80 
 that you bookmark at least some of these addresses, so that if your favorite
81 
 site becomes temporarily unavailable, you would not see your work disrupted.
 81 
 site becomes temporarily unavailable, you would not see your work disrupted.
82 
 $table_header
 82 
 $table_header
83 
 $table_hdtr<th>Site</th><th>Location</th><th>Country</th><th>Supported<br/>languages</th><th>Comments</th></tr>
 83 
 $table_hdtr<th>Site</th><th>Location</th><th>Country</th><th>Supported<br />languages</th><th>Comments</th></tr>
84 
 !for i_=1 to $n
 84 
 !for i_=1 to $n
85 
  !set j_=!item $i_ of $c
 85 
  !set j_=!item $i_ of $c
86 
  !set l_=!record $j_ of $mir
 86 
  !set l_=!record $j_ of $mir
87 
  !distribute lines $l_ into u_,t_,C_,l_,m_,e_,r_
 87 
  !distribute lines $l_ into u_,t_,C_,l_,m_,e_,r_
88 
  !readproc mirror.proc
 88 
  !readproc mirror.proc