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