Rev 6676 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 6676 | Rev 10430 | ||
---|---|---|---|
Line 19... | Line 19... | ||
19 | authorr=!trim $authorr |
19 | authorr=!trim $authorr |
20 | emailr=!translate internal !$$ to $ $ in $emailr |
20 | emailr=!translate internal !$$ to $ $ in $emailr |
21 | !!emailr=!word 1 of $emailr |
21 | !!emailr=!word 1 of $emailr |
22 | emailr=!replace internal ; by , in $emailr |
22 | emailr=!replace internal ; by , in $emailr |
23 | emailr=!char 1 to $titlim of $emailr |
23 | emailr=!char 1 to $titlim of $emailr |
24 | !if $emailr!=$empty |
24 | !if $emailr!=$empty |
25 | etest0=!replace internal ; by , in $emailr |
25 | etest0=!replace internal ; by , in $emailr |
26 | etest0_cnt=!itemcnt $etest_0 |
26 | etest0_cnt=!itemcnt $etest_0 |
27 | !for et_ =1 to $etest0 |
27 | !for et_ =1 to $etest0 |
28 | emailr0=!item $et_ of $etest0 |
28 | emailr0=!item $et_ of $etest0 |
29 | etest=!translate @ to , in $emailr0 |
29 | etest=!translate @ to , in $emailr0 |
Line 33... | Line 33... | ||
33 | !distribute items $etest into e1,e2 |
33 | !distribute items $etest into e1,e2 |
34 | !if $ecnt!=2 or $ecnt2!=2 or . notin $e2 |
34 | !if $ecnt!=2 or $ecnt2!=2 or . notin $e2 |
35 | error=bad_email |
35 | error=bad_email |
36 | !exit |
36 | !exit |
37 | !endif |
37 | !endif |
38 | !next |
38 | !next |
39 | !endif |
39 | !endif |
40 | descr=!translate internal $ \ |
40 | descr=!translate internal $ \ |
41 | $ to $ $ in $descr |
41 | $ to $ $ in $descr |
42 | descr=!trim $descr |
42 | descr=!trim $descr |
43 | dl=!words2items $dlangr |
43 | dl=!words2items $dlangr |
Line 50... | Line 50... | ||
50 | dlangr=$dlangr $l |
50 | dlangr=$dlangr $l |
51 | !endif |
51 | !endif |
52 | !next l |
52 | !next l |
53 | dlangr=!trim $dlangr |
53 | dlangr=!trim $dlangr |
54 | !default dlangr=all |
54 | !default dlangr=all |
55 | headerr=!translate internal $ \ |
55 | headerr=!translate internal $ \ |
56 | $ to $ |
56 | $ to $ $ in $headerr |
57 | 57 | ||
58 | !if $titr=$empty |
58 | !if $titr=$empty |
59 | error=no_tit |
59 | error=no_tit |
60 | !exit |
60 | !exit |
61 | !endif |
61 | !endif |