/*

File: AC_QuickTime.js

Abstract: This file contains functions to generate OBJECT and EMBED tags for QuickTime content.

Version: <1.1>

Disclaimer: IMPORTANT:  This Apple software is supplied to you by Apple
Computer, Inc. ("Apple") in consideration of your agreement to the
following terms, and your use, installation, modification or
redistribution of this Apple software constitutes acceptance of these
terms.  If you do not agree with these terms, please do not use,
install, modify or redistribute this Apple software.

In consideration of your agreement to abide by the following terms, and
subject to these terms, Apple grants you a personal, non-exclusive
license, under Apple's copyrights in this original Apple software (the
"Apple Software"), to use, reproduce, modify and redistribute the Apple
Software, with or without modifications, in source and/or binary forms;
provided that if you redistribute the Apple Software in its entirety and
without modifications, you must retain this notice and the following
text and disclaimers in all such redistributions of the Apple Software. 
Neither the name, trademarks, service marks or logos of Apple Computer,
Inc. may be used to endorse or promote products derived from the Apple
Software without specific prior written permission from Apple.  Except
as expressly stated in this notice, no other rights or licenses, express
or implied, are granted by Apple herein, including but not limited to
any patent rights that may be infringed by your derivative works or by
other works in which the Apple Software may be incorporated.

The Apple Software is provided by Apple on an "AS IS" basis.  APPLE
MAKES NO WARRANTIES, EXPRESS OR IMPLIED, INCLUDING WITHOUT LIMITATION
THE IMPLIED WARRANTIES OF NON-INFRINGEMENT, MERCHANTABILITY AND FITNESS
FOR A PARTICULAR PURPOSE, REGARDING THE APPLE SOFTWARE OR ITS USE AND
OPERATION ALONE OR IN COMBINATION WITH YOUR PRODUCTS.

IN NO EVENT SHALL APPLE BE LIABLE FOR ANY SPECIAL, INDIRECT, INCIDENTAL
OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
INTERRUPTION) ARISING IN ANY WAY OUT OF THE USE, REPRODUCTION,
MODIFICATION AND/OR DISTRIBUTION OF THE APPLE SOFTWARE, HOWEVER CAUSED
AND WHETHER UNDER THEORY OF CONTRACT, TORT (INCLUDING NEGLIGENCE),
STRICT LIABILITY OR OTHERWISE, EVEN IF APPLE HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGE.

Copyright © 2006 Apple Computer, Inc., All Rights Reserved

*/ 

/*
 * This file contains functions to generate OBJECT and EMBED tags for QuickTime content. 
 */

/************** LOCALIZABLE GLOBAL VARIABLES ****************/

var gArgCountErr =	'The "%%" function requires an even number of arguments.'
				+	'\nArguments should be in the form "atttributeName", "attributeValue", ...';

/******************** END LOCALIZABLE **********************/

var gTagAttrs				= null;
var gQTGeneratorVersion		= 1.0;

function AC_QuickTimeVersion()	{ return gQTGeneratorVersion; }

function _QTComplain(callingFcnName, errMsg)
{
    errMsg = errMsg.replace("%%", callingFcnName);
	alert(errMsg);
}

function _QTAddAttribute(prefix, slotName, tagName)
{
	var		value;

	value = gTagAttrs[prefix + slotName];
	if ( null == value )
		value = gTagAttrs[slotName];

	if ( null != value )
	{
		if ( 0 == slotName.indexOf(prefix) && (null == tagName) )
			tagName = slotName.substring(prefix.length); 
		if ( null == tagName ) 
			tagName = slotName;
		return '' + tagName + '="' + value + '"';
	}
	else
		return "";
}

function _QTAddObjectAttr(slotName, tagName)
{
	// don't bother if it is only for the embed tag
	if ( 0 == slotName.indexOf("emb#") )
		return "";

	if ( 0 == slotName.indexOf("obj#") && (null == tagName) )
		tagName = slotName.substring(4); 

	return _QTAddAttribute("obj#", slotName, tagName);
}

function _QTAddEmbedAttr(slotName, tagName)
{
	// don't bother if it is only for the object tag
	if ( 0 == slotName.indexOf("obj#") )
		return "";

	if ( 0 == slotName.indexOf("emb#") && (null == tagName) )
		tagName = slotName.substring(4); 

	return _QTAddAttribute("emb#", slotName, tagName);
}


function _QTAddObjectParam(slotName, generateXHTML)
{
	var		paramValue;
	var		paramStr = "";
	var		endTagChar = (generateXHTML) ? ' />' : '>';

	if ( -1 == slotName.indexOf("emb#") )
	{
		// look for the OBJECT-only param first. if there is none, look for a generic one
		paramValue = gTagAttrs["obj#" + slotName];
		if ( null == paramValue )
			paramValue = gTagAttrs[slotName];

		if ( 0 == slotName.indexOf("obj#") )
			slotName = slotName.substring(4); 
	
		if ( null != paramValue )
			paramStr = '<param name="' + slotName + '" value="' + paramValue + '"' + endTagChar;
	}

	return paramStr;
}

function _QTDeleteTagAttrs()
{
	for ( var ndx = 0; ndx < arguments.length; ndx++ )
	{
		var attrName = arguments[ndx];
		delete gTagAttrs[attrName];
		delete gTagAttrs["emb#" + attrName];
		delete gTagAttrs["obj#" + attrName];
	}
}

		

// generate an embed and object tag, return as a string
function _QTGenerate(callingFcnName, generateXHTML, args)
{
	// is the number of optional arguments even?
	if ( args.length < 4 || (0 != (args.length % 2)) )
	{
		_QTComplain(callingFcnName, gArgCountErr);
		return "";
	}
	
	// allocate an array, fill in the required attributes with fixed place params and defaults
	gTagAttrs = new Object();
	gTagAttrs["src"] = args[0];
	gTagAttrs["width"] = args[1];
	gTagAttrs["height"] = args[2];
	gTagAttrs["classid"] = "clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B";
		//Impportant note: It is recommended that you use this exact classid in order to ensure a seamless experience for all viewers
	gTagAttrs["pluginspage"] = "http://www.apple.com/quicktime/download/";

	// set up codebase attribute with specified or default version before parsing args so
	//  anything passed in will override
	var activexVers = args[3]
	if ( (null == activexVers) || ("" == activexVers) )
		activexVers = "6,0,2,0";
	gTagAttrs["codebase"] = "http://www.apple.com/qtactivex/qtplugin.cab#version=" + activexVers;

	var	attrName,
		attrValue;

	// add all of the optional attributes to the array
	for ( var ndx = 4; ndx < args.length; ndx += 2)
	{
		attrName = args[ndx].toLowerCase();
		attrValue = args[ndx + 1];

		// "name" and "id" should have the same value, the former goes in the embed and the later goes in
		//  the object. use one array slot 
		if ( "name" == attrName || "id" == attrName )
			gTagAttrs["name"] = attrValue;

		else 
			gTagAttrs[attrName] = attrValue;
	}

	// init both tags with the required and "special" attributes
	var objTag =  '<object '
					+ _QTAddObjectAttr("classid")
					+ _QTAddObjectAttr("width")
					+ _QTAddObjectAttr("height")
					+ _QTAddObjectAttr("codebase")
					+ _QTAddObjectAttr("name", "id")
					+ _QTAddObjectAttr("tabindex")
					+ _QTAddObjectAttr("hspace")
					+ _QTAddObjectAttr("vspace")
					+ _QTAddObjectAttr("border")
					+ _QTAddObjectAttr("align")
					+ _QTAddObjectAttr("class")
					+ _QTAddObjectAttr("title")
					+ _QTAddObjectAttr("accesskey")
					+ _QTAddObjectAttr("noexternaldata")
					+ '>'
					+ _QTAddObjectParam("src", generateXHTML);
	var embedTag = '<embed '
					+ _QTAddEmbedAttr("src")
					+ _QTAddEmbedAttr("width")
					+ _QTAddEmbedAttr("height")
					+ _QTAddEmbedAttr("pluginspage")
					+ _QTAddEmbedAttr("name")
					+ _QTAddEmbedAttr("align")
					+ _QTAddEmbedAttr("tabindex");

	// delete the attributes/params we have already added
	_QTDeleteTagAttrs("src","width","height","pluginspage","classid","codebase","name","tabindex",
					"hspace","vspace","border","align","noexternaldata","class","title","accesskey");

	// and finally, add all of the remaining attributes to the embed and object
	for ( var attrName in gTagAttrs )
	{
		attrValue = gTagAttrs[attrName];
		if ( null != attrValue )
		{
			embedTag += _QTAddEmbedAttr(attrName);
			objTag += _QTAddObjectParam(attrName, generateXHTML);
		}
	} 

	// end both tags, we're done
	return objTag + embedTag + '></em' + 'bed></ob' + 'ject' + '>';
}

// return the object/embed as a string
function QT_GenerateOBJECTText()
{
	return _QTGenerate("QT_GenerateOBJECTText", false, arguments);
}

function QT_GenerateOBJECTText_XHTML()
{
	return _QTGenerate("QT_GenerateOBJECTText_XHTML", true, arguments);
}

function QT_WriteOBJECT()
{
	document.writeln(_QTGenerate("QT_WriteOBJECT", false, arguments));
}

function QT_WriteOBJECT_XHTML()
{
	document.writeln(_QTGenerate("QT_WriteOBJECT_XHTML", true, arguments));
}



var XHRFactory = (function(){
 // static private member
 var stack = new Array();
 var poolSize = 10;
 
 var nullFunction = function() {}; // for nuking the onreadystatechange
 
 // private static methods
 
 function createXHR_old() {
  if (window.XMLHttpRequest) {
       return new XMLHttpRequest();
     } else if (window.ActiveXObject) {
       return new ActiveXObject('Microsoft.XMLHTTP')
     }
	 return null;
    }

function createXHR() {
	var req;
	if( window.XMLHttpRequest && ! ( window.ActiveXObject ) ) {
		try {
			req = new XMLHttpRequest();
		} catch(e) {
			try {
				req = window.createRequest();
			} catch( e ) {
				req = false;
			}
		}
	// branch for IE/Windows ActiveX version
	} else if ( window.ActiveXObject ) {
		try {
			req = new ActiveXObject("Msxml2.XMLHTTP");
		} catch(e) {
			try {
				req = new ActiveXObject("Microsoft.XMLHTTP");
			} catch(e) {
				req = false;
			}
		}
	}
	return req;
}
 // cache a few for use
 for (var i = 0; i < poolSize; i++) {
  stack.push(createXHR());
 }
 
 // shared instance methods
 return ({
  release:function(xhr){
   xhr.onreadystatechange = nullFunction;
   stack.push(xhr);
  },
  destroy:function(xhr){
	  xhr.onreadystatechange = nullFunction;
	  xhr = null;
	  stack.push(createXHR());
  },
  annihilate:function(){
	  while( stack.length > 0 ) {
		  stack.pop();
	  }
	 for (var i = 0; i < poolSize; i++) {
	  stack.push(createXHR());
	 }
  },
  getInstance:function(){
   if (stack.length < 1) {
    return createXHR();
   } else {
    return stack.pop();
   }
  },
  toString:function(){
   return "stack size = " + stack.length;
  }
 });
})();

function XML() {}
XML.serialize = function(node) {
		try {
			return (new XMLSerializer()).serializeToString(node) ;
		}
		catch ( e ) {
			try {
				return node.xml;
			}
			catch ( e ) {
				alert('Xmlserializer not supported');
			}
		}
	    /* if (typeof XMLSerializer != "undefined")
		return (new XMLSerializer()).serializeToString(node) ;
		else if (node.xml) return node.xml;
		else throw "XML.serialize is not supported or can't serialize " + node; */
		return false;
};


// XmlDocument factory

function XmlDocument() {}

XmlDocument.create = function () {
   try {
      // DOM2
      if (document.implementation && document.implementation.createDocument) {
         var doc = document.implementation.createDocument("", "", null);

         // some versions of Moz do not support the readyState property
         // and the onreadystate event so we patch it!
         if (doc.readyState == null) {
            doc.readyState = 1;
            doc.addEventListener("load", function () {
               doc.readyState = 4;
               if (typeof doc.onreadystatechange == "function")
                  doc.onreadystatechange();
            }, false);
         }

         return doc;
      }
      if (window.ActiveXObject)
         //return new ActiveXObject(getControlPrefix() + ".XmlDom");
		 //return new ActiveXObject("MsXml2.XmlDom");
		 var doc = new ActiveXObject("MSXML2.DOMDocument");
		 return doc;
   }
   catch (ex) {}
   throw new Error("Your browser does not support XmlDocument objects");
};
function imageWindow(i) {
   self.window.open('http://www.cowesonline.com/zonexml/image?image_id='+i,'Image','width=900,height=600,resizable=yes,scrollbars=yes,toolbar=no,location=no,directories=no,status=no,menubar=yes,copyhistory=no');
   return false;
}
var adRequestCount = 0;
var asyncRequest = true;
var maxTries = 10;
var initialTimeout = 10;
var debug = false; 
function gebi(n) { return document.getElementById(n); }
function containsClass( elem, classname ) {
	var re = new RegExp( '\\b' + classname + '\\b' );
	return re.test( elem.className );
}
function findAdDivs( doc ) {
	var all_divs = doc.getElementsByTagName('div');
	var ad_divs = [];
	for ( var i = 0 ; i < all_divs.length ; i++ ) {
		if ( containsClass( all_divs[i], 'ad') ) {
			ad_divs.push( all_divs[i] );
		}
	}
	return ad_divs;
}
function parse(txt) {
	try { //Internet Explorer
		xmlDoc=new ActiveXObject("Microsoft.XMLDOM");
		xmlDoc.async="false";
		xmlDoc.loadXML(txt);
		return xmlDoc; 
	} catch(e) {
		parser=new DOMParser();
		xmlDoc=parser.parseFromString(txt,"text/xml");
		return xmlDoc;
	}
}
function prepareToFetchAds() {
	setTimeout( fetchAdsForPage, 13 );
}
function fetchAdsForPage ( e ) {
	var category = gebi('cat_id').getAttribute('content');
	if ( isNaN( category ) ) return;
	var ad_divs = findAdDivs( document );
	var requestDoc = XmlDocument.create();
	var requestElem = requestDoc.appendChild( requestDoc.createElement('adrequest') );
	var reqString = '';
	requestElem.setAttribute( 'cat_id', category );
	for ( var i=0 ; i < ad_divs.length ; i++ ) {
		var divElem = requestDoc.createElement('div');
		divElem.setAttribute( 'class', ad_divs[i].className );
		divElem.setAttribute( 'title', ad_divs[i].title );
		divElem.setAttribute( 'id', ad_divs[i].id );
		divElem.setAttribute( 'height', getCSSValue( ad_divs[i], 'height' ) );
		divElem.setAttribute( 'width', getCSSValue( ad_divs[i], 'width' ) );
		requestElem.appendChild( divElem );
	}
	fetchAdSet( requestDoc );
} 
function getCSSValue( obj, property ) {
	if ( obj.currentStyle ) { // IE
		return obj.currentStyle[ property ];
	} else {
		var compStyle = getComputedStyle(obj,'');
		return compStyle.getPropertyValue( property );
	}
}
function log(m) {
	if ( window.console ) if ( window.console.log ) console.log( m );
}
function RequestParams() {
	this.contentType = 'formData';
	this.params = [];
	this.boundary = 'abcdefGHIJKL';
	this.setContentType = function( t ) {
		this.contentType = t;
	};
	this.push = function( n, v ) {
		this.params.push( { name: n, value: v } );
	};
	this.paramString = function() {
		switch ( this.contentType ) {
			case 'urlEncoded':
				return this.urlencoded();
				break;
			case 'formData':
				return this.formData();
				break;
			default:
				return this.urlencoded();
		}
		return false;
	};
	this.urlencoded = function() {
		var tempArray = [];
		for ( var i = 0 ; i < this.params.length ; i++ ) tempArray.push( this.params[i].name + '=' + escape( this.params[i].value ) );
		return tempArray.join( '&' );
	};
	this.formData = function() {
		var tempArray = [];
		var separator = '--' + this.boundary + '\r\n';
		for ( var i = 0 ; i < this.params.length ; i++ ) tempArray.push( 'Content-Disposition: form-data; name="' + this.params[i].name + '"\r\n\r\n' + this.params[i].value + '\r\n'  );
		return separator + tempArray.join( '\r\n'+ separator ) + '\r\n--' + this.boundary + '--\r\n\r\n';
	};
	this.contentTypeHeader = function() {
		switch ( this.contentType ) {
			case 'urlEncoded':
				return 'application/x-www-form-urlencoded';
				break;
			case 'formData':
				return 'multipart/form-data; boundary=' + this.boundary;
				break;
			default:
				return 'application/x-www-form-urlencoded';
		}
		return false;
	}
}
function fetchAdSet( requestDoc ) {

	adRequestCount++;

	var param_obj = new RequestParams();
	param_obj.setContentType( 'urlEncoded' )

	param_obj.push ( 'requestDoc', XML.serialize(requestDoc) );
	param_obj.push ( 'requestSeq', adRequestCount );
	param_obj.push ( 'requestAsyncFlag', ( asyncRequest ? 'async' : 'sync' ) );
	param_obj.push ( 'timeoutBeforeRetry', initialTimeout );

	
	var formRequest = XHRFactory.getInstance();
	if ( ! formRequest ) return;
	formRequest.open( "GET", 'adserver?' + param_obj.paramString(), asyncRequest );
	formRequest.setRequestHeader('Content-Type',param_obj.contentTypeHeader() );
	var ifModifiedSince = new Date(0);
	formRequest.setRequestHeader("If-Modified-Since", ifModifiedSince);

    formRequest.onreadystatechange = function() {
		if ( formRequest.readyState == 4 ) {
			if ( formRequest.status == 200 ) {
				var responseDoc = formRequest.responseXML;
				var responseElem = responseDoc.documentElement
				if ( responseElem.nodeName == 'error' ) {
					log( responseElem.getAttribute('message') );
					if ( responseElem.getAttribute('message') == 'No request received' ) {
						XHRFactory.release( formRequest );
						//asyncRequest = false;
						//initialTimeout += 100;
						if ( adRequestCount < maxTries ) {
							log( 'Re-fetching' );
							setTimeout( fetchAdsForPage, initialTimeout );
						}
						//else location.reload();
					}
				} else  {
					//log( XML.serialize( responseElem ) );
					var divs = responseElem.getElementsByTagName('div');
					for ( var i = 0 ; i < divs.length ; i++ ) {
						var orig_div = gebi( divs[i].getAttribute('id') );
						orig_div.style.backgroundcolor = 'rgb(250,250,255)';
						if ( ! orig_div.outerHTML ) {
							divs[i].removeAttribute('id');
							orig_div.innerHTML = XML.serialize( divs[i] );
						} else {
							orig_div.outerHTML = XML.serialize( divs[i] );
						}
					}
				}
			} else {
				log( formRequest.status );
			}
			XHRFactory.release( formRequest );
		} 
	};

	log( 'trying to fetch ads. try number ' + adRequestCount  );

	if ( debug ) log( param_obj.paramString() );

	formRequest.send( null /*param_obj.paramString()*/ );
}