DZone Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world


  • submit to reddit

Recent Snippets

function hexToRGB ( hex:Number ){
   var returnObj:Object = new Object();   
   var returnObj .r = hex >> 16;
   var temp = hex ^ r << 16;
   var returnObj .g = temp >> 8;
   var returnObj .b = temp ^ g << 8;

   return returnObj;
function RGBToHex (r, g, b ){
    var hex = r << 16 ^ g << 8 ^ b;
   return hex;
<OBJECT CLASSID="clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B" 
<PARAM name="SRC" VALUE=""> 
<PARAM name="AUTOPLAY" VALUE="false"> 
<param NAME="type" VALUE="video/quicktime">
<EMBED SRC="" WIDTH="176" HEIGHT="170" 
AUTOPLAY="false" CONTROLLER="true" type="video/quicktime"PLUGINSPAGE=""> 
import mx.utils.Delegate;

class Emailer {
	// required for EventDispatcher:
	public var addEventListener:Function;
	public var removeEventListener:Function;
	private var dispatchEvent:Function;
	// use to communicate with php script
	private var _lv:LoadVars;
	// holds address of sender
	private var _sentFrom:String;
	// constructor
	public function Emailer() {    
		_lv = new LoadVars();

	private function dataReceived(dataxfer_ok:Boolean):Void {
		// if some problem with loadVars transfer, pass back error=2
		if (!dataxfer_ok) dispatchEvent({target:this, type:'mailSent', errorFlag:2});
		// otherwise pass back error code returned from script
		else dispatchEvent({target:this, type:'mailSent', errorFlag:Number(_lv["faultCode"])});
	 // Use loadvars object to send data (set to call dataReceived when script returns data)
	public function sendEmail(sub:String, fn:String, fe:String, msg:String, rep:String):Void {
		// if user already sent from this address, show error msg
		if (_sentFrom == fe) dataReceived(false);
		// otherwise set up and send
		else {
			_sentFrom = fe;
			// specify function to handle results, make scope = Emailer
			_lv.onLoad = Delegate.create(this, dataReceived);
			// set up properties of lv to items to be POSTed
			_lv.subject = sub; = fn; = fe;
			_lv.message = msg;
			_lv.reply = rep;
			// call script
			_lv.sendAndLoad("sendemail.php", _lv, "POST");
                    If installed under Mambo, edit:
Lines 157-158:
  relative_urls : true,
  remove_script_host : true,
                    When installed in Mambo, edit 
 lines 253-258:
<select name="target" id="target">
          <option value="_self" selected>_self (<?php echo _insert_link_target_same ?>)</option>
          <option value="_blank">_blank (<?php echo _insert_link_target_blank ?>)</option>
          <!--<option value="_parent">_parent (<?php echo _insert_link_target_parent ?>)</option>
          <option value="_top">_top (<?php echo _insert_link_target_top ?>)</option>-->
   Function: getChildNodeName

       Cycle through the child nodes and find the first instance of the name.

XMLNode.prototype.getChildNodeName = function(nName) {
   for (var i=0; i<this.childNodes.length; i++) {
      var tChild = this.childNodes[i];
      if (tChild.nodeName === nName) {
         return tChild;
   return null;
                    Serve XHTML as application/xhtml+xml to browsers which accept it (and to W3C Validator).

header("Vary: Accept");
if (stristr($_SERVER['HTTP_ACCEPT'], 'application/xhtml+xml') || stristr($_SERVER["HTTP_USER_AGENT"],"W3C_Validator"))
  header('Content-type: application/xhtml+xml');
  echo "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
  header('Content-type: text/html');
                    A request for this came up on the CF-Talk list recently. Here's what I came up with.
<!--- The list with want to clean up --->
<cfset lst = "a,list,with,a,few,duplicates">
<!--- Use a struct to build a set of the list elements --->
<cfset set = StructNew()>
<cfloop index="elem" list="#lst#">
    <cfset set[elem] = "">
<!--- Convert the set back to a list --->
<cfset lst = StructKeyList(set)>
This sort of this should be familiar to all you perlmongers out there.                
    response.setHeader("Cache-Control", "no-cache");