Subversion Repositories wimsdev

Rev

Rev 17330 | Rev 17858 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17330 Rev 17648
Line 69... Line 69...
69 
module_author=$(dt2[2;])\
 69 
module_author=$(dt2[2;])\
70 
module_version=$(dt2[5;])\
 70 
module_version=$(dt2[5;])\
71 
module_mail=$t_email2\
 71 
module_mail=$t_email2\
72 
module_maintainer_mail=$(dt2[4;])
 72 
module_maintainer_mail=$(dt2[4;])
73 
  local_email=$t_email2,$(dt2[4;])
 73 
  local_email=$t_email2,$(dt2[4;])
74 
  tmp=!nospace $(dt2[1;])
 74 
    tmp=!nospace $(dt2[1;])
75 
  !if oef isitemof $tmp
 75 
    !if oef isitemof $tmp
76 
    t_email1=!replace internal xiao@unice.fr by $DEBUG_MODULE in $(dt1[2;])
 76 
      t_email1=!replace internal xiao@unice.fr by $DEBUG_MODULE in $(dt1[2;])
77 
    tmp=!replace internal def/ by $empty in $(dt1[5;])
 77 
      tmp=!replace internal def/ by $empty in $(dt1[5;])
78 
    tmp=!replace internal .def by $empty in $tmp
 78 
      tmp=!replace internal .def by $empty in $tmp
79 
    data=$data\
 79 
      data=$data\
80 
\
 80 
\
81 
OEF_exo=$tmp\
 81 
OEF_exo=$tmp\
82 
OEF_author=$(dt1[1;])\
 82 
OEF_author=$(dt1[1;])\
83 
OEF_email=$t_email1
 83 
OEF_email=$t_email1
84 
    local_email=!append item $t_email1 to $local_email
 84 
      local_email=!append item $t_email1 to $local_email
85 
  !endif
 85 
    !endif
86 
  data=$data\
 86 
  data=$data\
87 
\
 87 
\
88 
Server=$httpd_HTTP_HOST\
 88 
Server=$httpd_HTTP_HOST\
89 
Server_version=$wims_version\
 89 
Server_version=$wims_version\
90 
Server_seed=$(dt1[4;])\
 90 
Server_seed=$(dt1[4;])\
Line 92... Line 92...
92 
\
 92 
\
93 
Sender=$wims_firstname $wims_lastname\
 93 
Sender=$wims_firstname $wims_lastname\
94 
Sender_mail=$wims_email
 94 
Sender_mail=$wims_email
95 
 
 95 
 
96 
!endif
 96 
!endif
97 
 
 - 
 
- 
 
 97 
listaddr=$wims_email,$local_email,$DEBUG_MODULE
- 
 
 98 
listaddr=!nonempty item $listaddr
- 
 
 99 
listaddr=!listuniq $listaddr
98 
!if $save!=$empty
 100 
!if $save!=$empty
99 
  !if $source!=$empty
 101 
  !if $source!=$empty
100 
    !set tmp=!replace internal module= by in $(data[1;])
 102 
    !set tmp=!replace internal module= by in $(data[1;])
101 
    !set tmp=!replace internal . by , in $tmp
 103 
    !set tmp=!replace internal . by , in $tmp
102 
    source=!char 1 to 1000 of $source
 104 
    source=!char 1 to 1000 of $source
103 
    listaddr=$wims_email,$local_email,$DEBUG_MODULE
 - 
 
104 
    listaddr=!nonempty item $listaddr
 - 
 
105 
    listaddr=!listuniq $listaddr
 - 
 
106 
    listaddr=!items2words $listaddr
 105 
    listaddr=!items2words $listaddr
107 
    vardata=!replace internal $\
 106 
    vardata=!replace internal $\
108 
$ by <br> in $vardata
 107 
$ by <br> in $vardata
109 
!mailto $listaddr\
 108 
!mailto $listaddr\
110 
$wims_email\
 109 
$wims_email\