home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 June / ENTER.ISO / files / xampp-win32-1.4.5-installer.exe / xampp / function.mailto.php < prev    next >
Encoding:
PHP Script  |  2004-03-24  |  4.0 KB  |  139 lines
  1. <?php
  2. /**
  3.  * Smarty plugin
  4.  * @package Smarty
  5.  * @subpackage plugins
  6.  */
  7.  
  8.  
  9. /**
  10.  * Smarty {mailto} function plugin
  11.  *
  12.  * Type:     function<br>
  13.  * Name:     mailto<br>
  14.  * Date:     May 21, 2002
  15.  * Purpose:  automate mailto address link creation, and optionally
  16.  *           encode them.<br>
  17.  * Input:<br>
  18.  *         - address = e-mail address
  19.  *         - text = (optional) text to display, default is address
  20.  *         - encode = (optional) can be one of:
  21.  *                * none : no encoding (default)
  22.  *                * javascript : encode with javascript
  23.  *                * hex : encode with hexidecimal (no javascript)
  24.  *         - cc = (optional) address(es) to carbon copy
  25.  *         - bcc = (optional) address(es) to blind carbon copy
  26.  *         - subject = (optional) e-mail subject
  27.  *         - newsgroups = (optional) newsgroup(s) to post to
  28.  *         - followupto = (optional) address(es) to follow up to
  29.  *         - extra = (optional) extra tags for the href link
  30.  * 
  31.  * Examples:
  32.  * <pre>
  33.  * {mailto address="me@domain.com"}
  34.  * {mailto address="me@domain.com" encode="javascript"}
  35.  * {mailto address="me@domain.com" encode="hex"}
  36.  * {mailto address="me@domain.com" subject="Hello to you!"}
  37.  * {mailto address="me@domain.com" cc="you@domain.com,they@domain.com"}
  38.  * {mailto address="me@domain.com" extra='class="mailto"'}
  39.  * </pre>
  40.  * @link http://smarty.php.net/manual/en/language.function.mailto.php {mailto}
  41.  *          (Smarty online manual)
  42.  * @version  1.2
  43.  * @author     Monte Ohrt <monte@ispi.net>
  44.  * @author credits to Jason Sweat (added cc, bcc and subject functionality)
  45.  * @param array
  46.  * @param Smarty
  47.  * @return string
  48.  */
  49. function smarty_function_mailto($params, &$smarty)
  50. {
  51.     extract($params);
  52.  
  53.     if (empty($address)) {
  54.         $smarty->trigger_error("mailto: missing 'address' parameter");
  55.         return;
  56.     }
  57.     
  58.     if (empty($text)) {
  59.         $text = $address;
  60.     }
  61.     
  62.     // netscape and mozilla do not decode %40 (@) in BCC field (bug?)
  63.     // so, don't encode it.
  64.     
  65.     $mail_parms = array();
  66.     if (!empty($cc)) {
  67.         $mail_parms[] = 'cc='.str_replace('%40','@',rawurlencode($cc));
  68.     }
  69.     
  70.     if (!empty($bcc)) {
  71.         $mail_parms[] = 'bcc='.str_replace('%40','@',rawurlencode($bcc));
  72.     }
  73.     
  74.     if (!empty($subject)) {
  75.         $mail_parms[] = 'subject='.rawurlencode($subject);
  76.     }
  77.  
  78.     if (!empty($newsgroups)) {
  79.         $mail_parms[] = 'newsgroups='.rawurlencode($newsgroups);
  80.     }
  81.  
  82.     if (!empty($followupto)) {
  83.         $mail_parms[] = 'followupto='.str_replace('%40','@',rawurlencode($followupto));
  84.     }
  85.     
  86.     for ($i=0; $i<count($mail_parms); $i++) {
  87.         $mail_parm_vals .= (0==$i) ? '?' : '&';
  88.         $mail_parm_vals .= $mail_parms[$i];
  89.     }
  90.     $address .= $mail_parm_vals;
  91.     
  92.     if (empty($encode)) {
  93.         $encode = 'none';
  94.     } elseif (!in_array($encode,array('javascript','hex','none')) ) {
  95.         $smarty->trigger_error("mailto: 'encode' parameter must be none, javascript or hex");
  96.         return;        
  97.     }
  98.     
  99.     if ($encode == 'javascript' ) {
  100.         $string = 'document.write(\'<a href="mailto:'.$address.'" '.$extra.'>'.$text.'</a>\');';
  101.         
  102.         for ($x=0; $x < strlen($string); $x++) {
  103.             $js_encode .= '%' . bin2hex($string[$x]);
  104.         }
  105.     
  106.         return '<script type="text/javascript" language="javascript">eval(unescape(\''.$js_encode.'\'))</script>';
  107.         
  108.     } elseif ($encode == 'hex') {
  109.  
  110.         preg_match('!^(.*)(\?.*)$!',$address,$match);
  111.         if(!empty($match[2])) {
  112.             $smarty->trigger_error("mailto: hex encoding does not work with extra attributes. Try javascript.");
  113.             return;                        
  114.         }  
  115.         for ($x=0; $x < strlen($address); $x++) {
  116.             if(preg_match('!\w!',$address[$x])) {
  117.                 $address_encode .= '%' . bin2hex($address[$x]);
  118.             } else {
  119.                 $address_encode .= $address[$x];                
  120.             }
  121.         }
  122.         for ($x=0; $x < strlen($text); $x++) {
  123.             $text_encode .= '&#x' . bin2hex($text[$x]).';';
  124.         }
  125.         
  126.         return '<a href="mailto:'.$address_encode.'" '.$extra.'>'.$text_encode.'</a>';
  127.         
  128.     } else {
  129.         // no encoding        
  130.         return '<a href="mailto:'.$address.'" '.$extra.'>'.$text.'</a>';
  131.  
  132.     }
  133.     
  134. }
  135.  
  136. /* vim: set expandtab: */
  137.  
  138. ?>
  139.