Rev 10466 | Rev 12488 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 10466 | Rev 10820 | ||
---|---|---|---|
Line 15... | Line 15... | ||
15 | 15 | ||
16 | !if $tc_set!=$empty |
16 | !if $tc_set!=$empty |
17 | !! check name validity |
17 | !! check name validity |
18 | tc_name=!text select 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ in $tc_name |
18 | tc_name=!text select 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ in $tc_name |
19 | tc_name=!nospace $tc_name |
19 | tc_name=!nospace $tc_name |
- | 20 | tc_name=!lower $tc_name |
|
20 | n=!charcnt $tc_name |
21 | n=!charcnt $tc_name |
21 | !if $n>$MAXcharname or $n<1 |
22 | !if $n>$MAXcharname or $n<1 |
22 | error=badnamelen |
23 | error=badnamelen |
23 | !reset tc_set |
24 | !reset tc_set |
24 | !exit |
25 | !exit |