1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
!default step=1
!if $class_sendmailteacher=no
error=sendmailteacherclose
!reset job
!exit
!endif
!if $step=1
!if $target=supervisor
!readproc adm/class/userdef ,$wims_class,
tmp=!defof user_email,user_firstname,user_lastname in $userfolder/$wims_user
sendermail=$(tmp[1])
sendername=$(tmp[2]) $(tmp[3])
tmp=!defof class_email,class_Supervisor,class_supervisor in wimshome/log/classes/$wims_class/.def
!if $(tmp[2])=$empty
recipientname=$(tmp[3])
recipientmail=$(tmp[1])
!else
tmp=!defof user_email,user_firstname,user_lastname in wimshome/log/classes/$wims_superclass/.users/$(tmp[2])
recipientmail=$(tmp[1])
recipientname=$(tmp[2]) $(tmp[3])
!endif
!endif
!endif
!if $step=2
!if $sendermail!=$empty
!bound selfsend within 0,1 default 0
!else
selfsend=0
!endif
save_selfsend=$selfsend
save_subject=!char 1 to 100 of $subject
save_subject=!detag $save_subject
!! -------- for the moment use detag
!! script_data_input=!char 1 to 1000 of $msg
!!!readproc adm/partialdetag.proc variable
!! save_subject=$script_data_output
save_msg=!char 1 to 1000 of $msg
save_msg=!detag $save_msg
!endif
!if $step=3
!if $wims_mail_hidden=yes
sender=$empty
!else
sender=$sendermail
!endif
!mailto $recipientmail\
$sender\
[WIMS $wims_classname] $save_subject\
$save_msg\
<br>\
#######<br>\
Send by : $sendername<br>\
#######<br>
!if $save_selfsend=1
!mailto $sendermail\
$sender\
[WIMS $wims_classname] $save_subject\
$save_msg\
<br>\
#######<br>\
Copy of message send to : $recipientname<br>\
#######<br>
!endif
!if $wims_class!=$empty
!set wims_module_log=class $wims_class: sendmail
date=!translate : to . in $wims_now
!appendfile wimshome/log/classes/$wims_class/.log $date $httpd_REMOTE_ADDR $wims_user send mail to supervisor
!endif
!endif
|
