Subversion Repositories wimsdev

!read tabletheme

DEBUG_MODULE=!defof DEBUG_MODULE in wimshome/public_html/bases/sys/define.conf

!if ($wims_mail_addrsep == $empty)

  wims_mail_addrsep=$ $

!endif

!if $data=$empty

  !! -------test for an old exologfile (in the class)

  !if $logtype=exam

    test=!fileexists wimshome/log/classes/$wims_class/examlog/$checkuser/$checksession/$logcheck

    !if $test=yes

      exologfile=log/classes/$wims_class/examlog/$checkuser/$checksession/$logcheck

    !endif

  !else

    !if $logcheck!=$empty

      test=!fileexists wimshome/log/classes/$wims_class/exolog/$checkuser/$logcheck

      !if $test=yes

        exologfile=log/classes/$wims_class/exolog/$checkuser/$logcheck

      !endif

    !endif

  !endif

  !if $exologfile!=$empty

    dt1=!getdef w_author\

w_email\

w_module\

w_wims_seed\

w_deffile in wimshome/$exologfile

    vardata=!sh cat $wims_home/$exologfile;

  !else

    !! ------- if not use the actual exologfile

    parent=!replace internal $wims_subsession by $empty in $wims_session

    dt1=!getdef w_author\

w_email\

w_module\

w_wims_seed\

w_deffile\

w_worksheet\

w_wims_exo in wimshome/sessions/$parent/var

    !if $(dt1[3;])=adm/class/exam

      !! detect supervisor call sendbug from an exercice in an exam

      parent=$(parent)_new

      dt1=!getdef w_author\

w_email\

w_module\

w_wims_seed\

w_deffile\

w_worksheet\

w_wims_exo in wimshome/sessions/$parent/var

    !endif

    !if $(dt1[6;])!=$empty and $(dt1[7;])!=$empty

      test=!fileexists wimshome/sessions/$parent/exolog.$(dt1[6;]).$(dt1[7;])

    !else

      test=no

    !endif

    !if $test=yes

       exologfile=sessions/$parent/exolog.$(dt1[6;]).$(dt1[7;])

    !else

      exologfile=sessions/$parent/exolog

    !endif

    vardata=!sh sed 's#$parent#BUGSESSION#gi' $wims_home/$exologfile;

  !endif

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

listaddr=$wims_email,$local_email,$DEBUG_MODULE

listaddr=!nonempty item $listaddr

listaddr=!listuniq $listaddr

!if $save!=$empty

  !if $source!=$empty

    !set tmp=!replace internal module= by in $(data[1;])

    !set tmp=!replace internal . by , in $tmp

    source=!char 1 to 1000 of $source

    listaddr=!replace internal , by $wims_mail_addrsep in $listaddr

    vardata=!replace internal $\

$ by <br>$\

$ in $vardata

!mailto $listaddr\

$wims_email\

[WIMS] $name_titlemail  $(tmp[1])\

<h2>$name_mailcomment</h2>\

<p>$source</p>\

<h2>$name_mailinfogene</h2>\

<pre>$data</pre>\

\

var file\

$vardata

    !reset tmp

    success=confirm

  !else

    error=no_comment

  !endif

!endif

!reset save