Subversion Repositories wimsdev

Rev

Rev 2290 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
!if $forumuser!=supervisor
13679 bpr 2
  !exit
23 reyssat 3
!endif
4
 
5
m_=!translate / to , in $r_msg
6
!distribute item $m_ into a_,b_
7
msg=!record $b_ of $forumdir/$a_/.msglist
8
!distribute item $msg into r_month,r_day,r_time,r_ident,r_prec,r_sender,r_smail
9
msg=$forumdir/$r_month/$r_ident
10
!setdef !set m_exists=erased in $msg
11
job=list
12
!changeto var.proc.list
13