Subversion Repositories wimsdev

Rev

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