Rev 11337 | Rev 16511 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | reyssat | 1 | !distribute lines $wims_read_parm into mailurl_1,mailurl_3 |
| 2 | mailurl_2=!word 2 to -1 of $mailurl_1 |
||
| 3 | mailurl_1=!word 1 of $mailurl_1 |
||
| 4 | !default mailurl_2=$mailurl_1 |
||
| 5 | !if @ notin $mailurl_1 or robot isin $session |
||
| 11337 | obado | 6 | !exit |
| 20 | reyssat | 7 | !endif |
| 8 | !if $wims_user!=$empty |
||
| 11908 | obado | 9 | mailurl_=<a class="text_icon mail" href="mailto:$mailurl_1?subject=$mailurl_3">$mailurl_2</a> |
| 11337 | obado | 10 | !exit |
| 20 | reyssat | 11 | !endif |
| 12 | |||
| 13 | mailurl_= |
||
| 14 | !read themes/$wims_theme/mailurl.proc |
||
| 15 | !if $mailurl_!=$empty |
||
| 11337 | obado | 16 | !exit |
| 20 | reyssat | 17 | !endif |
| 18 | |||
| 11908 | obado | 19 | mailurl_2=!replace internal @ by <img src="gifs/aa.png" alt="arobase" style="height:1em;vertical-align: middle;"/> in $mailurl_2 |
| 20 | reyssat | 20 | |
| 3866 | bpr | 21 | #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 | 22 | #!exit |
| 23 | |||
| 24 | mailurl_c=!randitem a,b,c,l,m,n,x,y,z,A,B,C,L,M,N,X,Y,Z |
||
| 25 | mailurl_c=$mailurl_c$[randint(10)] |
||
| 26 | mailurl_1=!translate internal @ to , in $mailurl_1 |
||
| 27 | !if $mailurl_3 != $empty |
||
| 11337 | obado | 28 | mailurl_s=+'?'+$mailurl_c[1]+'=$mailurl_3' |
| 20 | reyssat | 29 | !else |
| 11337 | obado | 30 | mailurl_s= |
| 20 | reyssat | 31 | !endif |
| 11908 | obado | 32 | 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]+'@'+$mailurl_c[0]$mailurl_s;">$mailurl_2</a> |