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
max_modules=50

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

!bound style within day,week,month,year,beginning default week
!bound plot_type within 2,3,4 default 2

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; tmargin 1; nomxtics; nox2tics; size 0.7,0.7
insplot_transparent=white
module_type=!item $plot_type of 1,1,2,3
!read tabletheme
!read adm/class/stat

!if $cmd=reply
 show=yes
 !read date
 !if $date1<$start_year$start_month$start_day
  date1=$start_year$start_month$start_day
 !endif
 stat_out=!mexec stat.sh
 !read stat
 wims_module_log=$cnt $style modules=$modules
!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

# plotting data
!if $cmd=reply
 !if $laps<20
  step=1
  dateformat=$format1
 !else
  !if $laps<36
   step=2
   dateformat=$format1
  !else
   !if $laps<70
    step=4
    dateformat=$format2
   !else
    step=!eval 7*ceil($laps/(7*50))
    dateformat=$format3
   !endif
  !endif
 !endif
 insplot_set=$insplot_set;format x "$dateformat"
 insplot_data=!mexec plotdata.sh
!endif