Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
16511 guerimand 1
!! this script is executed in case of use of command mailurl
2
!! output is mailurl_
3
 
20 reyssat 4
!distribute lines $wims_read_parm into mailurl_1,mailurl_3
5
mailurl_2=!word 2 to -1 of $mailurl_1
6
mailurl_1=!word 1 of $mailurl_1
7
!default mailurl_2=$mailurl_1
8
!if @ notin $mailurl_1 or robot isin $session
11337 obado 9
  !exit
20 reyssat 10
!endif
11
!if $wims_user!=$empty
11908 obado 12
  mailurl_=<a class="text_icon mail" href="mailto:$mailurl_1?subject=$mailurl_3">$mailurl_2</a>
11337 obado 13
  !exit
20 reyssat 14
!endif
15
 
16
mailurl_=
17
!read themes/$wims_theme/mailurl.proc
18
!if $mailurl_!=$empty
11337 obado 19
  !exit
20 reyssat 20
!endif
21
 
17170 bpr 22
mailurl_2=!replace internal @ by <img src="gifs/aa.png" alt="arobase" style="height:1em;vertical-align: middle;"> in $mailurl_2
20 reyssat 23
 
3866 bpr 24
#mailurl_=<a target="wims_sendmail" href="$wims_ref_name?session=$(wims_session)_sendmail&module=adm/sendmail&cmd=new&job=new&subject=$mailurl_3">$mailurl_2</a>
20 reyssat 25
#!exit
26
 
27
mailurl_c=!randitem a,b,c,l,m,n,x,y,z,A,B,C,L,M,N,X,Y,Z
28
mailurl_c=$mailurl_c$[randint(10)]
29
mailurl_1=!translate internal @ to , in $mailurl_1
30
!if $mailurl_3 != $empty
11337 obado 31
  mailurl_s=+'?'+$mailurl_c[1]+'=$mailurl_3'
20 reyssat 32
!else
11337 obado 33
  mailurl_s=
20 reyssat 34
!endif
11908 obado 35
mailurl_=<a href="#" class="text_icon mail" onclick="$mailurl_c=new Array('$(mailurl_1[2])','subject','$(mailurl_1[1])','mail'); window.location=$mailurl_c[3]+'to'+':'+$mailurl_c[2]+'&#64;'+$mailurl_c[0]$mailurl_s;">$mailurl_2</a>