Subversion Repositories wimsdev

!! file to manage score restriction for sheet, exam and other

!! don't forget to declare variable into var.def (with right number if in use) of the module

!! line 1 (2 words)

!!  -first : html/put/get

!!    html : html form to display

!!    put  : initialise var with date in third line

!!    get  : verify data from reply and make char wimsdata in output

!!  -second : num of variable default empty (in case of several use in a same html page)

!! line 2 : value to put (default value in the form)

!distribute line $wims_read_parm into _job,_value

!distribute word $_job into _job,_num

!bound _job within html,put,get,empty default empty

!set MAXnbvalue=!defof MAX_TECHVARVAL in wimshome/public_html/bases/sys/define.conf

!bound _num between 0 and $MAXnbvalue default $empty

!if $_job=empty

  !exit

!endif

!goto $_job

:put

  !set _value=!words2items $_value

  !set _n=!itemcnt $_value

  !reset IPscore$_num,begindscore$_num,enddscore$_num,begintscore$_num,endtscore$_num

  !set datecheck$_num=$empty

  !for _k=1 to $_n

    !set _c=!char 1 of $(_value[$_k])

    !if $_c=>

      !set begindscore$_num=!char 2 to 9 of $(_value[$_k])

      !set begintscore$_num=!char 11 to 15 of $(_value[$_k])

    !else

      !if $_c=<

        !set enddscore$_num=!char 2 to 9 of $(_value[$_k])

        !set endtscore$_num=!char 11 to 15 of $(_value[$_k])

      !else

        !set IPscore$_num=$(IPscore$_num) $(_value[$_k])

      !endif

    !endif

  !next _k

  !let _now=!char 1 to 8 of $wims_now

  !if $(begindscore$_num)=$class_creation or $(begindscore$_num)=$empty

    !let begindscore$_num=$_now

    !if $(enddscore$_num)=$empty

      !let datecheck$_num=yes

    !endif

  !endif

  !default enddscore$_num=$class_expiration

  !default begintscore$_num=00:00

  !default endtscore$_num=23:59

  !exit

:html

<ul class="wims_nopuce">

  <li>

    <label for="begindscore$_num">$wims_name_from</label>

    !if $jquery_defined=yes

      !read adm/datepickerform.phtml $(begindscore$_num)\

begindscore$_num\

"$class_creation","$class_expiration"

    !else

      <input size="8" name="begindscore$_num" id="begindscore$_num" value="$(begindscore$_num)" />

    !endif

    <label for="begintscore$_num">$wims_name_at</label>

    <input size="5" name="begintscore$_num" id="begintscore$_num" value="$(begintscore$_num)" />

    <label for="enddscore$_num">$wims_name_to</label>

    !if $jquery_defined=yes

      !read adm/datepickerform.phtml $(enddscore$_num)\

enddscore$_num\

"$class_creation","$class_expiration"

    !else

      <input size="8" name="enddscore$_num" id="enddscore$_num" value="$(enddscore$_num)" />

    !endif

    <label for="endtscore$_num">$wims_name_at</label>

    <input size="5" name="endtscore$_num" id="endtscore$_num" value="$(endtscore$_num)" />

    <input type="checkbox" name="datecheck$_num" value="yes" id="datecheck$_num"

      !if $(datecheck$_num)=yes

        checked="checked"

      !endif

    />

    !reset datecheck$_num

    <label for="datecheck$_num">$wims_name_Close</label>

  </li><li>

    <label for="IPscore$_num">$wims_name_IP</label>

    <input size="10" name="IPscore$_num" id="IPscore$_num" value="$(IPscore$_num)" placeholder="127.0.0.1" />

  </li>

</ul>

!exit

:get

!! error are not display to user but default value replace bad value

!! date format verification

!set _e=begin,end

!set _l=$class_creation,$class_expiration

!for _t=1 to 2

  !set $(_e[$_t])dscore$_num=!text select 0123456789 in $($(_e[$_t])dscore$_num)

  !bound $(_e[$_t])dscore$_num between $class_creation and $class_expiration default $(_l[$_t])

  !set _y=!char 1 to 4 of $($(_e[$_t])dscore$_num)

  !set _m=!char 5 to 6 of $($(_e[$_t])dscore$_num)

  !set _d=!char 7 to 8 of $($(_e[$_t])dscore$_num)

  !! ---- day and month check (not realy good test should be an exact test of existence of date)

  !if $_m<1 or $_m>12 or $_d<1 or $_d>31

    !set $(_e[$_t])dscore$_num=$(_l[$_t])

  !endif

!next _t

!! time format verification

!set _l=00:00,23:59

!for _t=1 to 2

  !set $(_e[$_t])tscore$_num=!text select 0123456789: in $($(_e[$_t])tscore$_num)

  !set $(_e[$_t])tscore$_num=!replace internal : by , in $($(_e[$_t])tscore$_num)

  !set _nb=!itemcnt $($(_e[$_t])tscore$_num)

  !if $_nb=2

    !distribute item $($(_e[$_t])tscore$_num) into _h,_m

    !set _h=$[$_h*1]

    !set _m=$[$_m*1]

    !if $_h<0 or $_h>23 or $_m<0 or $_m>59 or NaN isin $_h$_m

      !set $(_e[$_t])tscore$_num=$(_l[$_t])

    !else

      !set _h=!char 2 to 3 of $[100+$_h]

      !set _m=!char 2 to 3 of $[100+$_m]

      !set $(_e[$_t])tscore$_num=$_h:$_m

    !endif

  !else

    !set $(_e[$_t])tscore$_num=$(_l[$_t])

  !endif

!next _t

!! IP restriction char

!set IPscore$_num=!text select char 1234567890. in $(IPscore$_num)

!! write output

!reset _output

!if $(begindscore$_num)!=$empty and ($(begindscore$_num)!=$class_creation or $(begintscore$_num)!=00:00) and yes notin $(datecheck$_num)

  !set _output=$_output>$(begindscore$_num).$(begintscore$_num)

!endif

!if $(enddscore$_num)!=$empty and ($(enddscore$_num)!=$class_expiration or $(endtscore$_num)!=23:59) and yes notin $(datecheck$_num)

  !set _output=$_output <$(enddscore$_num).$(endtscore$_num)

!endif

!set _output=$_output $(IPscore$_num)

!exit