Rev 13527 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
13527 | obado | 1 | namechar=-_$alnum |
23 | reyssat | 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 |
||
4179 | obado | 7 | |
8 | !if $t2!=$target2 or $target2=$empty |
||
9 | error=badtarget incorrect_t2 |
||
23 | reyssat | 10 | !endif |
11 | |||
4179 | obado | 12 | !if $t3!=$target3 or $target3=$empty |
13 | error=$error badtarget incorrect_t3 |
||
14 | !endif |
||
15 | |||
16 | !if $tlen>40 |
||
17 | error=$error badtarget incorrect_tlen |
||
18 | !endif |
||
19 | |||
20 | !if $target1=$empty |
||
21 | error=$error badtarget incorrect_t1 |
||
22 | !endif |
||
23 | |||
24 | !if $target4=$empty |
||
25 | error=$error badtarget incorrect_t4 |
||
26 | !endif |
||
27 | |||
28 | target=$target1~$target2~$target3.$target4 |
||
29 | test=!filelist $devdir/$target |
||
30 | !if $test!=$empty |
||
31 | error=$error clash |
||
32 | !endif |