Subversion Repositories wimsdev

Rev

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

Rev 1135 Rev 1937
Line -... Line 1...
- 
 
 1 
!!don't be useful
1 
 
 2 
!exit
2 
!set n=!recordcnt mirrors.it
 3 
!set n=!recordcnt mirrors.it
3 
!if $n<1
 4 
!if $n<1
4 
 !exit
 5 
 !exit
5 
!endif
 6 
!endif
6 
 
 7 
 
7 
!set n=$[min($n,10)]
 8 
!set n=$[min($n,10)]
8 
 <p><center>
 9 
 <p><center>
9 
 <table border=2 bgcolor="$wims_ref_bgcolor">
 10 
 <table border=2 bgcolor="$wims_ref_bgcolor">
10 
 <caption>Mirror di WIMS
 11 
 <caption>Mirror di WIMS
11 
 <tr><th>Url<th>Dove<th>Nazione<th>Langues<br>traduzioni<th>Commenti
 12 
 <tr><th>Url<th>Dove<th>Nazione<th>Lingue<br>traduzioni<th>Commenti
12 
 !for i_=1 to $n
 13 
 !for i_=1 to $n
13 
  !set l_=!record $i_ of mirrors.it
 14 
  !set l_=!record $i_ of mirrors.it
14 
  !distribute lines $l_ into u_,t_,C_,l_,m_,e_,r_
 15 
  !distribute lines $l_ into u_,t_,C_,l_,m_,e_,r_
15 
  !set l_=!items2words $l_
 16 
  !set l_=!items2words $l_
16 
  !set l_=!words2items $l_
 17 
  !set l_=!words2items $l_