Subversion Repositories wimsdev

Rev

Rev 2477 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2477 Rev 12412
Line 2... Line 2...
2 
!read adm/class/authchars
 2 
!read adm/class/authchars
3 
!if / isin $clist
 3 
!if / isin $clist
4 
 clist=
 4 
  clist=
5 
!endif
 5 
!endif
6 
 
 6 
 
7 
clist=!words2items $clist
 7 
clist=!words2items $clist
8 
Clist=
 8 
Clist=
9 
!for s in $clist
 9 
!for s in $clist
10 
 !reset ident_site ident_password ident_type back_url back_ident back_password
 10 
  !reset ident_site ident_password ident_type back_url back_ident back_password
11 
 wims_prefix=
 11 
  wims_prefix=
12 
 !readdef wimshome/log/classes/.connections/$s
 12 
  !readdef wimshome/log/classes/.connections/$s
13 
 wims_prefix=$wims_pfback
 13 
  wims_prefix=$wims_pfback
14 
 si=!replace :// by $ $ in $back_url
 14 
  si=!replace :// by $ $ in $back_url
15 
 site_$s=!word -1 of $si
 15 
  site_$s=!word -1 of $si
16 
 ptest=!text select $char_alnum in $ident_password
 16 
  ptest=!text select $char_alnum in $ident_password
17 
 ptest2=!text select $char_alnum in $back_password
 17 
  ptest2=!text select $char_alnum in $back_password
18 
 !if $ident_password!=$empty and $ptest=$ident_password and \
 18 
  !if $ident_password!=$empty and $ptest=$ident_password and \
19 
	$back_password!=$empty and $ptest2=$back_password and \
 19 
 	    $back_password!=$empty and $ptest2=$back_password and \
20 
	:// isin $back_url
 20 
 	    :// isin $back_url
21 
  url_$s=!replace https:// by http:// in $back_url
 21 
    url_$s=!replace https:// by http:// in $back_url
22 
  desc_$s=$ident_desc
 22 
    desc_$s=$ident_desc
23 
  type_$s=$ident_type
 23 
    type_$s=$ident_type
24 
  ip_$s=ident_site
 24 
    ip_$s=ident_site
25 
  Clist=!append item $s to $Clist
 25 
    Clist=!append item $s to $Clist
26 
 !endif
 26 
  !endif
27 
!next s
 27 
!next s
28 
ccnt=!wordcnt $Clist
 28 
ccnt=!wordcnt $Clist
29 
 
 29 
 
30 
cl=!translate ,; to $   $ in $class_connections
 30 
cl=!translate ,; to $   $ in $class_connections
31 
cl=!words2items $cl
 31 
cl=!words2items $cl
32 
clcnt=!itemcnt $cl
 32 
clcnt=!itemcnt $cl
33 
cllist=
 33 
cllist=
34 
!for clc in $cl
 34 
!for clc in $cl
35 
 c1=!char 1 of $clc
 35 
  c1=!char 1 of $clc
36 
 c2=!char -1 of $clc
 36 
  c2=!char -1 of $clc
37 
 ct=!translate /+ to , $ in $clc
 37 
  ct=!translate /+ to , $ in $clc
38 
 !distribute items $ct into n_,c_
 38 
  !distribute items $ct into n_,c_
39 
 o_=0
 39 
  o_=0
40 
 i_=0
 40 
  i_=0
41 
 !if $c1=+
 41 
  !if $c1=+
42 
  o_=1
 42 
    o_=1
43 
 !endif
 43 
  !endif
44 
 !if $c2=+
 44 
  !if $c2=+
45 
  i_=1
 45 
    i_=1
46 
 !endif
 46 
  !endif
47 
 cllist=!append item $n_ $c_ $i_ $o_ to $cllist
 47 
  cllist=!append item $n_ $c_ $i_ $o_ to $cllist
48 
 !if $n_ $c_=$connident $connclass
 48 
  !if $n_ $c_=$connident $connclass
49 
  !distribute words $i_ $o_ into connupd2, connupd1
 49 
    !distribute words $i_ $o_ into connupd2, connupd1
50 
 !endif
 50 
  !endif
51 
!next clc
 51 
!next clc
52 
 
 52 
 
53 
!if $ccnt<1
 53 
!if $ccnt<1
54 
 job2=first
 54 
  job2=first
55 
!endif
 55 
!endif
56 
!if $connident!=$empty
 56 
!if $connident!=$empty
57 
 wims_prefix=
 57 
  wims_prefix=
58 
 !readdef wimshome/log/classes/.connections/$connident
 58 
  !readdef wimshome/log/classes/.connections/$connident
59 
 wims_prefix=$wims_pfback
 59 
  wims_prefix=$wims_pfback
60 
 url=$(url_$connident)
 60 
  url=$(url_$connident)
61 
 site=$(site_$connident)
 61 
  site=$(site_$connident)
62 
!else
 62 
!else
63 
 job2=first
 63 
  job2=first
64 
!endif
 64 
!endif
65 
 
 -