Subversion Repositories wimsdev

clist=!filelist $wims_home/log/classes/.connections

!read adm/class/authchars

!if / isin $clist

 clist=

!endif

clist=!words2items $clist

Clist=

!for s in $clist

 !reset ident_site ident_password ident_type back_url back_ident back_password

 wims_prefix=

 !readdef wimshome/log/classes/.connections/$s

 wims_prefix=$wims_pfback

 si=!replace :// by $ $ in $back_url

 site_$s=!word -1 of $si

 ptest=!text select $char_alnum in $ident_password

 ptest2=!text select $char_alnum in $back_password

 !if $ident_password!=$empty and $ptest=$ident_password and \

	$back_password!=$empty and $ptest2=$back_password and \

	:// isin $back_url

  url_$s=!replace https:// by http:// in $back_url

  desc_$s=$ident_desc

  type_$s=$ident_type

  ip_$s=ident_site

  Clist=!append item $s to $Clist

 !endif

!next s

ccnt=!wordcnt $Clist

cl=!translate ,; to $   $ in $class_connections

cl=!words2items $cl

clcnt=!itemcnt $cl

cllist=

!for clc in $cl

 c1=!char 1 of $clc

 c2=!char -1 of $clc

 ct=!translate /+ to , $ in $clc

 !distribute items $ct into n_,c_

 o_=0

 i_=0

 !if $c1=+

  o_=1

 !endif

 !if $c2=+

  i_=1

 !endif

 cllist=!append item $n_ $c_ $i_ $o_ to $cllist

 !if $n_ $c_=$connident $connclass

  !distribute words $i_ $o_ into connupd2, connupd1

 !endif

!next clc

!if $ccnt<1

 job2=first

!endif

!if $connident!=$empty

 wims_prefix=

 !readdef wimshome/log/classes/.connections/$connident

 wims_prefix=$wims_pfback

 url=$(url_$connident)

 site=$(site_$connident)

!else

 job2=first

!endif