Subversion Repositories wimsdev

# Variable calculations should be done in this file.
# It is read and interpreted by wims for all valid calls to the module.
!read adm/language lang/names.phtml

!set wims_ariane_self=no
!set wims_ariane=!append line ref,8 to $wims_ariane

!default type=uniq
!default reflim=100
!default search=yes
key=!trim $key

!if $style notwordof day week month year beginning
  style=
!endif
!default style=month

!if $reflim>300
  reflim=300
!endif
!if $reflim<10
  reflim=10
!endif

!if $cmd=new or $cmd=renew
  sitestart=!mexec getstart.sh
!endif

start_year=!char 1,2,3,4 of $sitestart
start_month=!char 5,6 of $sitestart
start_day=!char 7,8 of $sitestart
insplot_set=timefmt "%Y%m%d"; xdata time; nomxtics; nox2tics; size 0.7
insplot_transparent=white

!if $cmd=reply
  show=yes
  !read date
  !if $date1<$start_year$start_month$start_day
    date1=$start_year$start_month$start_day
  !endif
  ref=!mexec refcnt.sh $type $date1 $date2
  auto=!word 1 of $ref
  ref=!line 2 to -1 of $ref
  wims_module_log=$cnt $style $type
!endif

!for i in 1,2
  year$i=!char 1 to 4 of $(date$i)
  month$i=!char 5,6 of $(date$i)
  day$i=!char 7,8 of $(date$i)
  date_$i=!date -d $(date$i) '+%j'
!next i

laps=!eval ($year2-$year1)*365+$date_2-$date_1+1
!ifval floor($year1/4)<floor($year2/4) and floor($year1/100)=floor($year2/100)
  laps=!eval $laps+1
!endif