Subversion Repositories wimsdev

!read tabletheme
!if $data=$empty
  parent=!replace internal $wims_subsession by $empty in $wims_session
  dt1=!getdef w_author\
w_email\
w_module\
w_wims_seed\
w_deffile in wimshome/sessions/$parent/var

  modulefile=!nospace wimshome/public_html/modules/$(dt1[3;])/INDEX
  dt2=!getdef category\
author\
address\
maintainer_address\
version in $modulefile
  t_email2=!replace internal xiao@unice.fr by qualite@wimsedu.info in $(dt2[3;])

  data=module=$(dt1[3;])\
module_author=$(dt2[2;])\
module_version=$(dt2[5;])\
module_mail=$t_email2\
module_maintainer_mail=$(dt2[4;])
  local_email=$t_email2,$(dt2[4;])
  tmp=!nospace $(dt2[1;])
  !if oef isitemof $tmp
    t_email1=!replace internal xiao@unice.fr by qualite@wimsedu.info in $(dt1[2;])
    tmp=!replace internal def/ by $empty in $(dt1[5;])
    tmp=!replace internal .def by $empty in $tmp
    data=$data\
\
OEF_exo=$tmp\
OEF_author=$(dt1[1;])\
OEF_email=$t_email1
    local_email=!append item $t_email1 to $local_email
  !endif
  data=$data\
\
Server=$httpd_HTTP_HOST\
Server_version=$wims_version\
Server_seed=$(dt1[4;])\
Server_time=$wims_now\
\
Sender=$wims_firstname $wims_lastname\
Sender_mail=$wims_email

!endif

!if $save!=$empty
  !if $source!=$empty
    source=!char 1 to 1000 of $source
    listaddr=$wims_email,$local_mail
!! qualite@wimsedu.info
    listaddr=!nonempty item $listaddr
    listaddr=!listuniq $listaddr
    listaddr=!items2words $listaddr
    !mailto $listaddr\
[WIMS] $name_titlemail\
<h1>$name_mailcomment</h1>\
<p>$source</p>\
<h1>$name_mailinfogene</h1>\
<pre>$data</pre>
    success=confirm
  !else
    error=no_comment
  !endif
!endif

!reset save