Subversion Repositories wimsdev

Rev

Rev 2497 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2497 Rev 15294
Line 9... Line 9...
9 
login=$devlogin
 9 
login=$devlogin
10 
name=$devname
 10 
name=$devname
11 
email=$devemail
 11 
email=$devemail
12 
 
 12 
 
13 
!if $ltest!=$devlogin or $devlogin=$empty
 13 
!if $ltest!=$devlogin or $devlogin=$empty
14 
 badfield=login
 14 
  badfield=login
15 
 !exit
 15 
  !exit
16 
!endif
 16 
!endif
17 
!if $ptest!=$devpasswd
 17 
!if $ptest!=$devpasswd
18 
 badfield=password
 18 
  badfield=password
19 
 !exit
 19 
  !exit
20 
!endif
 20 
!endif
21 
!if $devname=$empty
 21 
!if $devname=$empty
22 
 badfield=name
 22 
  badfield=name
23 
 !exit
 23 
  !exit
24 
!endif
 24 
!endif
25 
!if @ notin $devemail
 25 
!if @ notin $devemail
26 
 badfield=email
 26 
  badfield=email
27 
 !exit
 - 
 
28 
!endif
 - 
 
29 
 
 - 
 
30 
!if $devno=0
 - 
 
31 
 !if $ptest=$empty
 - 
 
32 
  badfield=password
 - 
 
33 
  !exit
 - 
 
34 
 !endif
 - 
 
35 
 !if $devlogin iswordof $devlist
 - 
 
36 
  badfield=exist
 - 
 
37 
  !exit
 27 
  !exit
- 
 
 28 
!endif
- 
 
 29 
 
- 
 
 30 
!if $devno=0
- 
 
 31 
  !if $ptest=$empty
- 
 
 32 
    badfield=password
- 
 
 33 
    !exit
38 
 !endif
 34 
  !endif
- 
 
 35 
  !if $devlogin iswordof $devlist
- 
 
 36 
    badfield=exist
- 
 
 37 
    !exit
- 
 
 38 
  !endif
39 
 !appendfile wimshome/log/.developers :$devlogin\
 39 
  !appendfile wimshome/log/.developers :$devlogin\
40 
$devpasswd\
 40 
$devpasswd\
41 
$devname\
 41 
$devname\
42 
$devemail
 42 
$devemail
43 
!else
 43 
!else
44 
 oldpasswd=!line 2 of $(drec$devno)
 44 
  oldpasswd=!line 2 of $(drec$devno)
45 
 !default devpasswd=$oldpasswd
 45 
  !default devpasswd=$oldpasswd
46 
 drec$devno=$devlogin\
 46 
  drec$devno=$devlogin\
47 
$devpasswd\
 47 
$devpasswd\
48 
$devname\
 48 
$devname\
49 
$devemail
 49 
$devemail
50 
 !read developer/devheader.proc
 50 
  !read developer/devheader.proc
51 
 !for d=1 to $devcnt
 51 
  !for d=1 to $devcnt
52 
  !appendfile wimshome/log/.developers :$(drec$d)
 52 
    !appendfile wimshome/log/.developers :$(drec$d)
53 
 !next d
 53 
  !next d
54 
!endif
 54 
!endif
55 
 
 55 
 
56 
job2=first
 56 
job2=first
57 
!read developer.proc
 57 
!read developer.proc
58 
 
 -