Subversion Repositories wimsdev

!if $send_right<2
  !if $s_hidecode=$empty
    !if $c_smail=$empty
      error=email_required
      !exit
    !endif
    !if @ notin $c_smail or . notin $c_smail or , isin $c_smail
      error=bad_email
      !exit
    !endif
    s_hidecode=!randint 10^5,10^8-1
    !read scripts/mail.proc
    s_status=ask
    !exit
  !else
    s_code=!nospace $s_code
    !if $s_code!=$s_hidecode
      s_hidecode=
      error=bad_sendcode
      !exit
    !endif
    s_hidecode=
  !endif
!endif

c_subject=!trim $c_subject
!if $c_subject=$empty
  error=no_subject
  job=compose
  !exit
!endif

now=!date +%Y%m%d%H%M%S
month=!char 1 to 6 of $now
day=!char 7,8 of $now
hour=!char 9,10 of $now
min=!char 11,12 of $now
sec=!char 13,14 of $now
time=$hour:$min:$sec
!default c_sender=Anonymous
!if @ notin $c_smail or . notin $c_smail or , isin $c_smail
  c_smail=
!endif
!for n in sender,subject
  c_$n=!replace internal ! by &#33; in $(c_$n)
!next n
t=!recordcnt $forumdir/$month/.msglist
ident=$[$t+1]
!if $c_prec!=$empty
  :recheck
  o_=!translate / to _ in $c_orig
  t_=!record 0 of $forumdir/.threads/$o_
  n_=!linecnt $t_
  !if $n_>$thread_lim
    !if $c_prec!=$c_orig
      c_orig=$c_prec
      !goto recheck
    !else
      !if $n_>1.5*$thread_lim
        c_orig=
      !endif
    !endif
  !endif
  !if $c_orig=$empty
    !goto new
  !endif
  !appendfile $forumdir/.threads/$o_ $month/$ident $c_prec
  prec=$c_prec
  orig=$c_orig
  c_prec=$(c_prec)O$c_orig
!else
  :new
  c_prec=O$month/$ident
  prec=$c_prec
  orig=$c_prec
!endif


content=$month,$day,$time,$ident,$c_prec,$c_sender,$c_smail,$c_subject
n_=!charcnt $content
!if $n_>130
  c_=!char 1 to 129 of $content
  content=$c_...
!endif

m_supervisor=!getdef user_email in wimshome/log/classes/$wims_class$for_level/supervisor
c_desc=!getdef class_description in wimshome/log/classes/$wims_class$for_level/.def
c_super=!getdef class_superclass in wimshome/log/classes/$wims_class$for_level/.def
!if $c_super!=$empty
  m_add=participant
!else
  m_add=supervisor
  c_super=$wims_class
!endif

msg=!mexec scripts/msgsrc.sh
msg_nocase=!lower $msg

!for a in $prohibited_words
  !if $a isin $msg_nocase
    error=prohibited
    !exit
  !endif
!next
list_mail=$m_supervisor
!if $c_super!=$wims_class$for_level
  !set other_teachers=!record 0 of wimshome/log/classes/$wims_class$for_level/.teacherlist
  !set other_teachers=!column 3 of $other_teachers
  !for ot in $other_teachers
    m_ot=!getdef user_email in wimshome/log/classes/$c_super/.users/$ot
    !if $m_ot !=$empty
      list_mail=!append item $m_ot to $list_mail
    !endif
  !next
!endif
list_mail=!listuniq $list_mail
!for m_ in $list_mail
  !mailto $m_\
"[WIMS] $n_forum '$c_desc'"\
<p>$n_warning</p>\
$c_subject\
<div class="wims_forum_msg">$msg</div>\
<br/>\
<hr/>\
<p><a href="$wims_ref_name?module=adm/class/classes&+type=auth$m_add&+class=$c_super">\
$n_connect_to $c_super - $wims_class$for_level</a></p>
!next

!mexec scripts/send.sh
!appendfile $forumdir/$month/.msglist : $content
!appendfile $forumdir/.msglist :$month $ident $prec $orig
new=!record 0 of $forumdir/.newlist
n_=!linecnt $new
!if $n_>=$list_lim
  new=!line $n_-($list_lim)+2 to -1 of $new
!endif
new=!append line $month $ident to $new
!writefile $forumdir/.newlist $new
!if $month notitemof $archlist
  arch=!items2lines $archlist
  arch=!append line $month to $arch
  arch=!sort line $arch
  !writefile $forumdir/.archives $arch
!endif