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