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