Rev 9477 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 23 | reyssat | 1 | |
| 2 | !if $doc isin $opensite |
||
| 12490 | bpr | 3 | opensite=!replace word $doc by $ in $opensite |
| 23 | reyssat | 4 | !else |
| 12490 | bpr | 5 | opensite=$opensite $doc |
| 23 | reyssat | 6 | !endif |
| 7 | |||
| 8 | op=!words2items $opensite |
||
| 9 | op=!listuniq $op |
||
| 10 | opp= |
||
| 11 | !for o in $op |
||
| 12490 | bpr | 12 | test=!defof tit in $docdir/$o/.def |
| 13 | !if $test!=$empty |
||
| 14 | opp=$opp $o |
||
| 15 | !endif |
||
| 23 | reyssat | 16 | !next o |
| 17 | opensite=!trim $opp |
||
| 18 | !writefile $docdir/open.site $opensite |
||
| 19 | |||
| 20 | job=home |
||
| 21 | !read $job.proc |