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>