Rev 9960 | Rev 12488 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9960 | Rev 10820 | ||
---|---|---|---|
Line 26... | Line 26... | ||
26 | 26 | ||
27 | !if $tc_set!=$empty |
27 | !if $tc_set!=$empty |
28 | !! check name validity |
28 | !! check name validity |
29 | tc_name=!text select 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ in $tc_name |
29 | tc_name=!text select 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ in $tc_name |
30 | tc_name=!nospace $tc_name |
30 | tc_name=!nospace $tc_name |
- | 31 | tc_name=!lower $tc_name |
|
31 | n=!charcnt $tc_name |
32 | n=!charcnt $tc_name |
32 | !if $n>$MAXcharname or $n<1 |
33 | !if $n>$MAXcharname or $n<1 |
33 | error=badnamelen |
34 | error=badnamelen |
34 | !reset tc_set |
35 | !reset tc_set |
35 | !exit |
36 | !exit |