Subversion Repositories wimsdev

Rev

Rev 5181 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5181 Rev 12811
Line 2... Line 2...
2 
# It is read and interpreted by wims for all valid calls to the module.
 2 
# It is read and interpreted by wims for all valid calls to the module.
3 
!read adm/language lang/names.phtml
 3 
!read adm/language lang/names.phtml
- 
 
 4 
 
- 
 
 5 
!set wims_ariane_self=no
- 
 
 6 
!set wims_ariane=!append line ref,8 to $wims_ariane
- 
 
 7 
 
4 
!default type=uniq
 8 
!default type=uniq
5 
!default reflim=100
 9 
!default reflim=100
6 
!default search=yes
 10 
!default search=yes
7 
key=!trim $key
 11 
key=!trim $key
8 
 
 12 
 
9 
!if $style notwordof day week month year beginning
 13 
!if $style notwordof day week month year beginning
10 
 style=
 14 
  style=
11 
!endif
 15 
!endif
12 
!default style=month
 16 
!default style=month
13 
 
 17 
 
14 
!if $reflim>300
 18 
!if $reflim>300
15 
 reflim=300
 19 
  reflim=300
16 
!endif
 20 
!endif
17 
!if $reflim<10
 21 
!if $reflim<10
18 
 reflim=10
 22 
  reflim=10
19 
!endif
 23 
!endif
20 
 
 24 
 
21 
!if $cmd=new or $cmd=renew
 25 
!if $cmd=new or $cmd=renew
22 
 sitestart=!mexec getstart.sh
 26 
  sitestart=!mexec getstart.sh
23 
!endif
 27 
!endif
24 
 
 28 
 
25 
start_year=!char 1,2,3,4 of $sitestart
 29 
start_year=!char 1,2,3,4 of $sitestart
26 
start_month=!char 5,6 of $sitestart
 30 
start_month=!char 5,6 of $sitestart
27 
start_day=!char 7,8 of $sitestart
 31 
start_day=!char 7,8 of $sitestart
28 
insplot_set=timefmt "%Y%m%d"; xdata time; nomxtics; nox2tics; size 0.7
 32 
insplot_set=timefmt "%Y%m%d"; xdata time; nomxtics; nox2tics; size 0.7
29 
insplot_transparent=white
 33 
insplot_transparent=white
30 
 
 34 
 
31 
!if $cmd=reply
 35 
!if $cmd=reply
32 
 show=yes
 36 
  show=yes
33 
 !read date
 37 
  !read date
34 
 !if $date1<$start_year$start_month$start_day
 38 
  !if $date1<$start_year$start_month$start_day
35 
  date1=$start_year$start_month$start_day
 39 
    date1=$start_year$start_month$start_day
36 
 !endif
 40 
  !endif
37 
 ref=!mexec refcnt.sh $type $date1 $date2
 41 
  ref=!mexec refcnt.sh $type $date1 $date2
38 
 auto=!word 1 of $ref
 42 
  auto=!word 1 of $ref
39 
 ref=!line 2 to -1 of $ref
 43 
  ref=!line 2 to -1 of $ref
40 
 wims_module_log=$cnt $style $type
 44 
  wims_module_log=$cnt $style $type
41 
!endif
 45 
!endif
42 
 
 46 
 
43 
!for i in 1,2
 47 
!for i in 1,2
44 
 year$i=!char 1 to 4 of $(date$i)
 48 
  year$i=!char 1 to 4 of $(date$i)
45 
 month$i=!char 5,6 of $(date$i)
 49 
  month$i=!char 5,6 of $(date$i)
46 
 day$i=!char 7,8 of $(date$i)
 50 
  day$i=!char 7,8 of $(date$i)
47 
 date_$i=!date -d $(date$i) '+%j'
 51 
  date_$i=!date -d $(date$i) '+%j'
48 
!next i
 52 
!next i
49 
 
 53 
 
50 
laps=!eval ($year2-$year1)*365+$date_2-$date_1+1
 54 
laps=!eval ($year2-$year1)*365+$date_2-$date_1+1
51 
!ifval floor($year1/4)<floor($year2/4) and floor($year1/100)=floor($year2/100)
 55 
!ifval floor($year1/4)<floor($year2/4) and floor($year1/100)=floor($year2/100)
52 
 laps=!eval $laps+1
 56 
  laps=!eval $laps+1
53 
!endif
 57 
!endif
54 
 
 -