Add new directory structure. Tags will contain current and past releases, and stable will contain any bug fixes to the current stable release so users won't have to get the potentially broken trunk build to fix a screwup in stable.

Trunk updated to 0.9

git-svn-id: http://kusabax.cultnet.net/svn/repo/stable@176 73d99b7e-4f53-4972-b7b7-2ecd3c4d89ee

lib/dwoo/plugins/builtin/functions/mailto.php

@@ -0,0 +1,117 @@
+<?php
+
+/**
+ * Outputs a mailto link with optional spam-proof (okay probably not) encoding
+ * <pre>
+ * * address : target email address
+ * * text : display text to show for the link, defaults to the address if not provided
+ * * subject : the email subject
+ * * encode : one of the available encoding (none, js, jscharcode or hex)
+ * * cc : address(es) to carbon copy, comma separated
+ * * bcc : address(es) to blind carbon copy, comma separated
+ * * newsgroups : newsgroup(s) to post to, comma separated
+ * * followupto : address(es) to follow up, comma separated
+ * * extra : additional attributes to add to the &lt;a&gt; tag
+ * </pre>
+ * This software is provided 'as-is', without any express or implied warranty.
+ * In no event will the authors be held liable for any damages arising from the use of this software.
+ *
+ * @author	Jordi Boggiano <j.boggiano@seld.be>
+ * @copyright Copyright (c) 2008, Jordi Boggiano
+ * @license	http://dwoo.org/LICENSE Modified BSD License
+ * @link	http://dwoo.org/
+ * @version	1.0.0
+ * @date	2008-10-23
+ * @package	Dwoo
+ */
+function Dwoo_Plugin_mailto(Dwoo $dwoo, $address, $text=null, $subject=null, $encode=null, $cc=null, $bcc=null, $newsgroups=null, $followupto=null, $extra=null)
+{
+	if (empty($address)) {
+		return '';
+	}
+	if (empty($text)) {
+		$text = $address;
+	}
+
+	// build address string
+	$address .= '?';
+
+	if (!empty($subject)) {
+		$address .= 'subject='.rawurlencode($subject).'&';
+	}
+	if (!empty($cc)) {
+		$address .= 'cc='.rawurlencode($cc).'&';
+	}
+	if (!empty($bcc)) {
+		$address .= 'bcc='.rawurlencode($bcc).'&';
+	}
+	if (!empty($newsgroup)) {
+		$address .= 'newsgroups='.rawurlencode($newsgroups).'&';
+	}
+	if (!empty($followupto)) {
+		$address .= 'followupto='.rawurlencode($followupto).'&';
+	}
+
+	$address = rtrim($address, '?&');
+
+	// output
+	switch($encode)
+	{
+
+	case 'none':
+	case null:
+		return '<a href="mailto:'.$address.'" '.$extra.'>'.$text.'</a>';
+
+	case 'js':
+	case 'javascript':
+		$str = 'document.write(\'<a href="mailto:'.$address.'" '.$extra.'>'.$text.'</a>\');';
+		$len = strlen($str);
+
+		$out = '';
+		for ($i=0; $i<$len; $i++) {
+			$out .= '%'.bin2hex($str[$i]);
+		}
+		return '<script type="text/javascript">eval(unescape(\''.$out.'\'));</script>';
+
+		break;
+	case 'javascript_charcode':
+	case 'js_charcode':
+	case 'jscharcode':
+	case 'jschar':
+		$str = '<a href="mailto:'.$address.'" '.$extra.'>'.$text.'</a>';
+		$len = strlen($str);
+
+		$out = '<script type="text/javascript">'."\n<!--\ndocument.write(String.fromCharCode(";
+		for ($i=0; $i<$len; $i++) {
+			$out .= ord($str[$i]).',';
+		}
+		return rtrim($out, ',') . "));\n-->\n</script>\n";
+
+		break;
+
+	case 'hex':
+		if (strpos($address, '?') !== false) {
+			return $dwoo->triggerError('Mailto: Hex encoding is not possible with extra attributes, use one of : <em>js, jscharcode or none</em>.', E_USER_WARNING);
+		}
+
+		$out = '<a href="&#109;&#97;&#105;&#108;&#116;&#111;&#58;';
+		$len = strlen($address);
+		for ($i=0; $i<$len; $i++) {
+			if (preg_match('#\w#', $address[$i])) {
+				$out .= '%'.bin2hex($address[$i]);
+			} else {
+				$out .= $address[$i];
+			}
+		}
+		$out .= '" '.$extra.'>';
+		$len = strlen($text);
+		for ($i=0; $i<$len; $i++) {
+			$out .= '&#x'.bin2hex($text[$i]);
+		}
+		return $out.'</a>';
+
+	default:
+		return $dwoo->triggerError('Mailto: <em>encode</em> argument is invalid, it must be one of : <em>none (= no value), js, js_charcode or hex</em>', E_USER_WARNING);
+
+	}
+}