Rev 2497 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
23 | reyssat | 1 | allow=-_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 |
2 | |||
3 | devname=!trim $devname |
||
4 | devemail=!nospace $devemail |
||
5 | devlogin=!nospace $devlogin |
||
6 | devpasswd=!nospace $devpasswd |
||
7 | ltest=!text select $allow in $devlogin |
||
8 | ptest=!text select $allow in $devpasswd |
||
9 | login=$devlogin |
||
10 | name=$devname |
||
11 | email=$devemail |
||
12 | |||
13 | !if $ltest!=$devlogin or $devlogin=$empty |
||
15294 | bpr | 14 | badfield=login |
15 | !exit |
||
23 | reyssat | 16 | !endif |
17 | !if $ptest!=$devpasswd |
||
15294 | bpr | 18 | badfield=password |
19 | !exit |
||
23 | reyssat | 20 | !endif |
21 | !if $devname=$empty |
||
15294 | bpr | 22 | badfield=name |
23 | !exit |
||
23 | reyssat | 24 | !endif |
25 | !if @ notin $devemail |
||
15294 | bpr | 26 | badfield=email |
27 | !exit |
||
23 | reyssat | 28 | !endif |
29 | |||
30 | !if $devno=0 |
||
15294 | bpr | 31 | !if $ptest=$empty |
32 | badfield=password |
||
33 | !exit |
||
34 | !endif |
||
35 | !if $devlogin iswordof $devlist |
||
36 | badfield=exist |
||
37 | !exit |
||
38 | !endif |
||
39 | !appendfile wimshome/log/.developers :$devlogin\ |
||
23 | reyssat | 40 | $devpasswd\ |
41 | $devname\ |
||
42 | $devemail |
||
43 | !else |
||
15294 | bpr | 44 | oldpasswd=!line 2 of $(drec$devno) |
45 | !default devpasswd=$oldpasswd |
||
46 | drec$devno=$devlogin\ |
||
23 | reyssat | 47 | $devpasswd\ |
48 | $devname\ |
||
49 | $devemail |
||
15294 | bpr | 50 | !read developer/devheader.proc |
51 | !for d=1 to $devcnt |
||
52 | !appendfile wimshome/log/.developers :$(drec$d) |
||
53 | !next d |
||
23 | reyssat | 54 | !endif |
55 | |||
56 | job2=first |
||
57 | !read developer.proc |