Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 23 | reyssat | 1 | namechar=-$alnum |
| 2 | !bound target1 within $zonelist default $ |
||
| 3 | !bound target4 within $langlist default $ |
||
| 4 | t2=!text select $namechar in $target2 |
||
| 5 | t3=!text select $namechar in $target3 |
||
| 6 | tlen=!charcnt $target1/$target2/$target3.$target4 |
||
| 7 | !if $t2!=$target2 or $t3!=$target3 or $tlen>40 or \ |
||
| 8 | $target1=$empty or $target2=$empty or $target3=$empty or $target4=$empty |
||
| 9 | error=badtarget |
||
| 10 | !else |
||
| 11 | target=$target1~$target2~$target3.$target4 |
||
| 12 | test=!filelist $devdir/$target |
||
| 13 | !if $test!=$empty |
||
| 14 | error=clash |
||
| 15 | !endif |
||
| 16 | !endif |
||
| 17 |