Subversion Repositories wimsdev

Rev

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	=&copy; 1998 (<a href=COPYING>GNU GPL</a>)
 27 
!let module_copyright	=&copy; 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> <br>
 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 align="center">
 85 
  $table_tr<td>
90 
  <a href="$u_">$U_</a></td>
 86 
  <a href="$u_">$U_</a></td>
91 
  <td align="center">$t_</td>
 87 
  <td>$t_</td>
92 
  <td align="center">$C_</td>
 88 
  <td>$C_</td>
93 
  <td align="center">
 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_&nbsp;</td></tr>
 94 
  </td><td>$r_&nbsp;</td></tr>
99 
 !next i_
 95 
 !next i_
100 
 $table_end <p>
 96 
 $table_end <p>