Subversion Repositories wimsdev

Rev

Rev 18094 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
14499 guerimand 1
!read tabletheme
16275 guerimand 2
 
16496 guerimand 3
DEBUG_MODULE=!defof DEBUG_MODULE in wimshome/public_html/bases/sys/define.conf
18098 reyssat 4
!if ($wims_mail_addrsep == $empty)
5
  wims_mail_addrsep=$ $
6
!endif
14499 guerimand 7
!if $data=$empty
16275 guerimand 8
  !! -------test for an old exologfile (in the class)
16386 guerimand 9
  !if $logtype=exam
10
    test=!fileexists wimshome/log/classes/$wims_class/examlog/$checkuser/$checksession/$logcheck
16275 guerimand 11
    !if $test=yes
16386 guerimand 12
      exologfile=log/classes/$wims_class/examlog/$checkuser/$checksession/$logcheck
13
    !endif
14
  !else
15
    !if $logcheck!=$empty
16
      test=!fileexists wimshome/log/classes/$wims_class/exolog/$checkuser/$logcheck
17
      !if $test=yes
18
        exologfile=log/classes/$wims_class/exolog/$checkuser/$logcheck
19
      !endif
20
    !endif
21
  !endif
22
  !if $exologfile!=$empty
23
    dt1=!getdef w_author\
14513 guerimand 24
w_email\
25
w_module\
26
w_wims_seed\
16275 guerimand 27
w_deffile in wimshome/$exologfile
28
    vardata=!sh cat $wims_home/$exologfile;
16386 guerimand 29
  !else
30
    !! ------- if not use the actual exologfile
16275 guerimand 31
    parent=!replace internal $wims_subsession by $empty in $wims_session
32
    dt1=!getdef w_author\
33
w_email\
34
w_module\
35
w_wims_seed\
16270 guerimand 36
w_deffile\
37
w_worksheet\
38
w_wims_exo in wimshome/sessions/$parent/var
16701 guerimand 39
    !if $(dt1[3;])=adm/class/exam
40
      !! detect supervisor call sendbug from an exercice in an exam
41
      parent=$(parent)_new
42
      dt1=!getdef w_author\
43
w_email\
44
w_module\
45
w_wims_seed\
46
w_deffile\
47
w_worksheet\
48
w_wims_exo in wimshome/sessions/$parent/var
49
 
50
    !endif
16275 guerimand 51
    !if $(dt1[6;])!=$empty and $(dt1[7;])!=$empty
52
      test=!fileexists wimshome/sessions/$parent/exolog.$(dt1[6;]).$(dt1[7;])
53
    !else
54
      test=no
55
    !endif
56
    !if $test=yes
57
       exologfile=sessions/$parent/exolog.$(dt1[6;]).$(dt1[7;])
58
    !else
59
      exologfile=sessions/$parent/exolog
60
    !endif
61
    vardata=!sh sed 's#$parent#BUGSESSION#gi' $wims_home/$exologfile;
16270 guerimand 62
  !endif
14513 guerimand 63
  modulefile=!nospace wimshome/public_html/modules/$(dt1[3;])/INDEX
64
  dt2=!getdef category\
65
author\
66
address\
67
maintainer_address\
68
version in $modulefile
16496 guerimand 69
  t_email2=!replace internal xiao@unice.fr by $DEBUG_MODULE in $(dt2[3;])
14518 guerimand 70
 
14513 guerimand 71
  data=module=$(dt1[3;])\
72
module_author=$(dt2[2;])\
73
module_version=$(dt2[5;])\
14518 guerimand 74
module_mail=$t_email2\
14513 guerimand 75
module_maintainer_mail=$(dt2[4;])
18030 bpr 76
  local_email=$t_email2,$(dt2[4;])
17858 bpr 77
  tmp=!nospace $(dt2[1;])
78
  !if oef isitemof $tmp
79
    t_email1=!replace internal xiao@unice.fr by $DEBUG_MODULE in $(dt1[2;])
80
    tmp=!replace internal def/ by $empty in $(dt1[5;])
81
    tmp=!replace internal .def by $empty in $tmp
82
    data=$data\
14513 guerimand 83
\
84
OEF_exo=$tmp\
85
OEF_author=$(dt1[1;])\
14518 guerimand 86
OEF_email=$t_email1
17648 bpr 87
      local_email=!append item $t_email1 to $local_email
17858 bpr 88
  !endif
14504 bpr 89
  data=$data\
14513 guerimand 90
\
14499 guerimand 91
Server=$httpd_HTTP_HOST\
14513 guerimand 92
Server_version=$wims_version\
93
Server_seed=$(dt1[4;])\
94
Server_time=$wims_now\
14499 guerimand 95
\
14513 guerimand 96
Sender=$wims_firstname $wims_lastname\
97
Sender_mail=$wims_email
14499 guerimand 98
 
99
!endif
17648 bpr 100
listaddr=$wims_email,$local_email,$DEBUG_MODULE
101
listaddr=!nonempty item $listaddr
102
listaddr=!listuniq $listaddr
14499 guerimand 103
!if $save!=$empty
14508 obado 104
  !if $source!=$empty
17330 bpr 105
    !set tmp=!replace internal module= by in $(data[1;])
106
    !set tmp=!replace internal . by , in $tmp
14508 obado 107
    source=!char 1 to 1000 of $source
18098 reyssat 108
    listaddr=!replace internal , by $wims_mail_addrsep in $listaddr
16277 guerimand 109
    vardata=!replace internal $\
18094 reyssat 110
$ by <br>$\
111
$ in $vardata
16273 guerimand 112
!mailto $listaddr\
15513 bpr 113
$wims_email\
17330 bpr 114
[WIMS] $name_titlemail  $(tmp[1])\
15488 obado 115
<h2>$name_mailcomment</h2>\
14508 obado 116
<p>$source</p>\
15488 obado 117
<h2>$name_mailinfogene</h2>\
16270 guerimand 118
<pre>$data</pre>\
119
\
120
var file\
121
$vardata
17330 bpr 122
    !reset tmp
14508 obado 123
    success=confirm
124
  !else
125
    error=no_comment
126
  !endif
14499 guerimand 127
!endif
128
 
129
!reset save