Subversion Repositories wimsdev

!read adm/language lang/names.phtml
!read adm/lang/date.phtml.$modu_lang
!read adm/class/classname.phtml $description\
$institution
!read adm/levelname.phtml
wims_prefix=class user tmp n sharing sharable
!read adm/class/limits
wims_helper=chapter=3&open=3_creat#creat
!if $wims_user=$empty
 !bound cltype within 0,2,4 default 0
 !distribute items $wims_class_regpass into regpass0,regpass2,regpass4
 !default regpass0=email
 !default regpass2=$regpass0
 !default regpass4=deny
 regpolicy0=!word 1 of $regpass0
 regpolicy2=!word 1 of $regpass2
 regpolicy4=!word 1 of $regpass4
 !distribute words $regpass0 into regpolicy, regpasswd,regpassmail
 !if $wims_user=$empty and $cltype>0 and $regpolicy notwordof deny file
  !distribute words $(regpass$cltype) into regpolicy, regpasswd,regpassmail
 !endif
 regpassmail=!replace internal | by , in $regpassmail
 !if $wims_ismanager<2
  alltypes=0
  !if $regpolicy2 notwordof deny file
   alltypes=0,2
  !endif
  !if $regpolicy4 notwordof deny file and 2 isitemof $alltypes
  alltypes=!append item 4 to $alltypes
  !endif
  !if $regpolicy=deny
   error=not_manager
   !exit
  !endif
 !else
  alltypes=0,2,4
  regpolicy=all
 !endif
 !if $regpolicy!=file and ($step=$empty or $step=pre) and $wims_ismanager<2
  !exit
 !endif
!else           $wims_user!=$empty
 !read adm/class/userdef classes,$wims_class,$wims_user
 supervisable=!defof user_supervisable in $userdef
 !if $wims_supertype!=2 or ($wims_user!=supervisor and $supervisable!=yes) or \
        $wims_class!=$wims_superclass
  error=no_subclass
  !exit
 !endif
 !default name_supervisorname=$wims_firstname $wims_lastname
 supervisor=$name_supervisorname
 !if $wims_user!=supervisor
  !default email=!defof user_email in $userdef
 !else
  !default email=!defof user_email in wimshome/log/classes/$wims_class/supervisor
 !endif
 !readdef wimshome/log/classes/$wims_class/.def
 !default level=$class_level
 cltype=1
 regpolicy=all
 authgood=yes
 regid=!defof class_defid in wimshome/log/classes/$wims_class/.def
 !for codee=1 to 1000
  test=!defof class_defined in wimshome/log/classes/$wims_superclass/$codee/.def
  !if $test!=yes
   !break
  !endif
 !next codee
 r_code=$wims_superclass/$codee
 toomany=no
!endif          $wims_user=$empty?

!if $adresse1!=$empty and $regpolicy=passwd
 !read lang/mail2.proc.$modu_lang
!endif

!if $regpolicy=passwd and $regpasswd=$empty
 regpolicy=all
!endif

test=0
!if $regpolicy iswordof email all passwd
 test=1
!endif

!if $regpolicy!=$empty and $regpolicy notwordof\
        email all deny passwd file
 test=!checkhost $wims_class_regpass
!endif
!if $regpolicy=file
 !if $authgood!=yes and ($regid=$empty or $regpass=$empty)
  error=getid
  !exit
 !else
  data=!defof $regid in wimshome/log/classes/.ids
  !distribute items $data into prefix,regpasswd,r_name,r_expire,r_quota1,r_quota2,r_quota3,r_right
  !default r_right=1
  alltypes=0,2,4
  !if $r_right < 3
   alltypes=0,2
  !endif
  !if $r_right < 2
   alltypes=0
  !endif
  !bound cltype within $alltypes default 0
  !if $prefix<1000 or ($authgood!=yes and $regpasswd notsametext $regpass)
   error=getid
   !exit
  !else
   test=1
   class_defined=yes
   !for code2=1 to $r_quota1
    deftest=!defof class_defined in wimshome/log/classes/$prefix$[1000+$code2]/.def
    !if $deftest!=yes
     !break
    !endif
   !next code2
   r_remain=$[$r_quota1-$code2]
   !if $deftest=yes
    error=class_quota
    !exit
   !endif
   r_code=$prefix$[1000+$code2]
  !endif
 !endif
 defid=$regid
!else
 defid=
!endif

!if $regpolicy issametext passwd and $regpasswd notsametext $regpass
 error=getpass
 !exit
!endif

!if $test<1
 error=no_right
 !exit
!endif
!if $toomany=$empty
 n=!recordcnt wimshome/log/classes/.index
 !if $n>=$wims_class_limit
  toomany=yes
  wims_module_log=Refused toomany
  !exit
 !endif
 toomany=no
!endif

today=!char 1 to 8 of $wims_now
thisyear=!char 1 to 4 of $today
thismonth=!char 5,6 of $today
thisday=!char 7,8 of $today
!default exp_day=15
!default exp_month=08
!if $thismonth>7
 !default exp_year=$[$thisyear+1]
!else
 !default exp_year=$thisyear
!endif
!default limit=50
!default ilimit=50
!default level=U1
!if $step=$empty or $step=pre
 !if ($regpolicy=file and $r_remain<1) or $cltype>0
  step=0
 !endif
!endif

!if $step=0
 !reset code,password,passsup
 Cltype=$cltype
!endif

!if $step=1
 code=
 !if $Cltype isin 24
  !reset level,checklist
  addcheck=,passsup
 !else
  addcheck=$empty
 !endif
 
 !for i in $(checklist)institution,description,firstname,lastname,email,password$addcheck
  $i=!translate ,!$$"< to $     $ in $($i)
  $i=!singlespace $($i)
  $i=!trim $($i)
  !if $($i)=$empty
   error=has_empty
   !exit
  !endif
  n=!charcnt $($i)
  !if $n<$(min_$i)
   error=too_short
   error_subject=$i
   !exit
  !endif
  !if $n>$(max_$i)
   $i=!char 1 to $(max_$i) of $($i)
   warn=too_long
   warn_subject=$i
  !endif
 !next i
 !!! can be defined in the file names.phtml.$lang if it is not the good order
 !default name_username=$firstname $lastname
 supervisor=$name_username
 secure=!trim $secure
 !if $secure!=$empty
  secheck=!checkhost $secure
  !if $secheck<1
   error=bad_secure
   !exit
  !endif
 !endif
 ilevel=!char 1,2 of $level
 !if $Cltype notin 24 and $ilevel notitemof $wims_listlevel
  error=bad_level
  !exit
 !endif
 !if $Cltype=1
  listpwd=password
 !else
  listpwd=password,passsup
 !endif
 !for i in $listpwd
  ptest=!text select $char_passwd in $($i)
  !if $ptest != $($i)
   error=bad_pass
   error_subject=$i
   !exit
  !endif
 !next i
 temoin=!tolower $institution,$description
 existing=!recordcnt wimshome/log/classes/.index
 !for i=1 to $existing
  test=!record $i of wimshome/log/classes/.index
  test=!item 3 to -1 of $test
  test=!replace , $ by , in $test
  test=!tolower $test
  !if $test=$temoin
   error=existing
   !exit
  !endif
 !next i
 exp_day=!char 2,3 of $[100+abs(floor($exp_day))]
 exp_month=!char 2,3 of $[100+abs(floor($exp_month))]
 exp_year=!char 1 to 4 of $[abs(floor($exp_year))]
 !if N isin $exp_day$exp_month$exp_year or \
        $exp_day<1 or $exp_month<1 or $exp_year<$thisyear or \
        $exp_day>31 or $exp_month>12 or $exp_year>$thisyear+1
  error=bad_date
  !exit
 !endif
 expiration=$exp_year$exp_month$exp_day
 !if $expiration<=$today
  error=anti_date
  !exit
 !endif
 ilimit=$[abs(floor($limit))]
 !if NaN isin $ilimit or $ilimit<10
  ilimit=10
 !endif
 !if $ilimit>$wims_class_user_limit
  ilimit=$wims_class_user_limit
 !endif
 email=!word -1 of $email
 email=!translate <>,;% to $     $ in $email
 !if @ notin $email
  error=bad_email
  !exit
 !endif
 mailtest=!translate @ to $\
$ in $email
 mailtest=!line 2 of $mailtest
 !if . notin $mailtest
  error=bad_email
  !exit
 !endif
 pword=$password
 !if $Cltype=1
  psup=!defof user_password in $userdef
 !else
  psup=!passcrypt $passsup
 !endif
 password=
 passsup=
 datasave=$institution\
$description\
$lastname\
$firstname\
$email
 !exit
!endif

!if $step=2
!! the following is only for checking that in $userdef we have a crypted password.
!! is this what we really need to check ??
 passsup2=!passcrypt $psup
!!## check that the uppassword is crypted
 !if $password!=$pword or $passsup2!=$psup
  error=pass_discord
  !exit
 !endif
 !if $regpolicy=file or $wims_user!=$empty
  code=$r_code
 !else
  :newcode
  code=!randint 11111,10^7-1
  class_defined=
  !defread wimshome/log/classes/$code/.def
  !if $class_defined=yes
   !goto newcode
  !endif
 !endif
 !if $regpolicy=email
  !read lang/mail.proc.$modu_lang
  typecode=
  !exit
 !else
  typecode=$code
  step=3
 !endif
!endif

:step3
!if $step=3
 !if $code=$empty or $code!=$typecode
  error=bad_code
  !exit
 !endif
 !distribute lines $datasave into \
   institution,description,lastname,firstname,email
 class_defined=
 !defread wimshome/log/classes/$code/.def
 !if $class_defined=yes
  error=duplicate
  !exit
 !endif
 !!lastname=!word -1 of $supervisor
 !!firstname=!word 1 to -2 of $supervisor
 !!lastname=!char 1 to 30 of $lastname
 !!firstname=!char 1 to 50 of $firstname
 !default name_username=$firstname $lastname
 supervisor=$name_username
 !if ! isin $institution$description$supervisor or \
        ? isin $institution$description$supervisor or \
        (+134.59.102. isin +$httpd_REMOTE_ADDR and unice.fr+ notin $email+)
  error=abuse
  !exit
 !endif
 # abuse check
 check=!deaccent $check
 check=!lower $institution, $description, $supervisor
 mask=!text mark $char_lower in $check
 check=!text select $char_lower in $check
 check=!text expand $check using $mask
 dictionary=bases/sys/abuse.$lang
 check=!exec translator $check
 !if abuse iswordof $check
  error=abuse
  !exit
 !endif
 !if $wims_class!=$empty
  superclass=!append item $class_superclass to $wims_class
  superclass=!nonempty items $superclass
  cadd_Supervisor=$wims_user
  !if $wims_user!=supervisor
   wims_supervise=!append item $code to $wims_supervise
   !setdef !set user_supervise=$wims_supervise in $userdef
   !setdef wims_supervise=$wims_supervise in wimshome/$wims_sesdir/var.stat
  !endif
 !else
  !reset superclass
 !endif
 !for t in description,institution,email,lang,expiration,\
        superclass,defid,secure,cas_auth
  cadd_$t=$($t)
 !next t
 cadd_password=$pword
 cadd_limit=$ilimit
 cadd_level=$ilevel
 cadd_type=$Cltype
 cadd_typename=class
 cadd_bgcolor=$wims_bgcolor
 cadd_bgimg=$wims_bgimg
 cadd_css=$(wims_css)
 cadd_theme=$(wims_theme)
 cadd_theme_icon=$(wims_theme_icon)
 !if $cadd_cas_auth!=$empty
   cadd_authidp=cas;
 !endif
 !if $superclass!=$empty
  cadd_parent=$superclass
 !endif
 !for t in firstname,lastname,email
  sadd_$t=$($t)
 !next t
 psup=!passcrypt $psup
 sadd_password=$psup
 !read adm/class/addclass $code
 !defread wimshome/log/classes/$code/.def
 !if $class_defined!=yes
  error=define_fail
  !exit
 !endif
 !sh $wims_home/log/classes/.build-index
 !if $wims_user!=$empty
  creator=$wims_class/$wims_user
  !if $wims_email=$empty
   !setdef !set user_email=$email in $userdef
  !endif
 !else
  creator=$email
 !endif
 wims_module_log=created $code by $creator
 !if $wims_user!=$empty
  !restart module=home
 !endif
!endif