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

!read tabletheme

!if $job=map

  !changeto map.proc

!endif

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 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