/****************************************************************************************/
/**
 * Ajax Pages v0.5
 *
 * This software is licensed under the MIT License. 
 *
 * The MIT License
 * 
 * Copyright (c) 2005 Gustavo Ribeiro Amigo
 * 
 * Permission is hereby granted, free of charge, to any person obtaining a copy of 
 * this software and associated documentation files (the "Software"), to deal in 
 * the Software without restriction, including without limitation the rights to use, 
 * copy, modify, merge, publish, distribute, sublicense, and/or sell copies of 
 * the Software, and to permit persons to whom the Software is furnished to do so, 
 * subject to the following conditions:
 * 
 * The above copyright notice and this permission notice shall be included in all 
 * copies or substantial portions of the Software.
 * 
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, 
 * INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A 
 * PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT 
 * HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF 
 * CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE 
 * OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 */

/**  
 * Class responsable for processing Ajax Pages.
 * @constructor
 * @author Gustavo Amigo
 */
var AjaxPages = function() {};



/**
 * Loads an Ajax Pages template from a file
 * @param url The file to be loaded
 * @returns The template loaded
 */
AjaxPages.prototype.load = function ( url ) {
        var req;
        // branch for native XMLHttpRequest object
        if (window.XMLHttpRequest) {
            req = new XMLHttpRequest();
            req.open("GET", url, false);
            req.send(null);
        // branch for IE/Windows ActiveX version
        } else if (window.ActiveXObject) {
            req = new ActiveXObject("Microsoft.XMLHTTP");
            if (req) {
                req.open("GET", url, true);
                req.send();
            }
        }
        
        this.template = req.responseText;
        return req.responseText;
}

/** 
 * Parses the template
 * @param value (Optional) The template code
 * @returns The javascript code generated from the parsing
 */
AjaxPages.prototype.parse = function( value ) {
    if ( value == undefined ) {
        value = this.template;
    } 
    var out = "";
    var lineNumber = 1;
    try {
    
        var betweenPerc = false;
        
        out = "function(context) { \n";
        
        out += "var __ajp = new AjaxPages();\n";
        out += "var __include;\n";
        
        out += "try {\n"
        
        out += "   if ( context == undefined ) { \n";
        out += "       context = '';\n";
        out += "   }\n";
        
        out += "var out= unescape('";
        
        var line = "";
        
        for (i = 0; i < value.length; i++ )
        {
            var nextTwo = "";
            if ( i <= value.length - 2 ) {
                nextTwo = value.charAt(i) + value.charAt( i + 1 );
            }
            
            var nextThree = "";
            if ( i <= value.length - 3 ) {
                nextThree = value.charAt(i) + value.charAt( i + 1 ) + value.charAt( i + 2 );
            }
            
            if ( nextTwo == "<%" && nextThree != "<%=" && nextThree != "<%@") {
                
                out += "');\n";
                betweenPerc = true;
                i += 1;
                
            } else if ( nextTwo == "<%" && nextThree == "<%=" && nextThree != "<%@") {
                
                out += escape(line) + "');\n";
                line = "";
                out += "    out+= ";
                
                betweenPerc = true;
                i += 2;
            } else if ( nextTwo == "<%" && nextThree != "<%=" && nextThree == "<%@" ) {
                
                i += 3;
                var directive = "";
                
                while ( nextTwo != "%>" ) {
                    directive += value.charAt(i); 
                    i++;
                        if ( i <= value.length - 2 ) {
                            nextTwo = value.charAt(i) + value.charAt( i + 1 );
                        }
                        
                }

                out += escape(line) + "');\n";
                line = "";
                

                out += this._processDirective( directive );
                out += "    out+= unescape('";
                i++;
            } else if ( nextTwo == "%>" ) {
                out += ";\n" + "    out+= unescape('";
                // TODO Throw error if it is off, wrong sintax
                betweenPerc = false;
                i += 1;
            } else if ( value.charAt(i) == String.fromCharCode(10) )  { 
                if ( !betweenPerc ) {
                    out += escape(line) + "\\n');\n" + "    out+= unescape('";
                    line = "";
                    lineNumber ++;
                }               
                
            } else if ( value.charAt(i) == String.fromCharCode(13) )  {                 
            } else {  
                if ( betweenPerc ) {
                    out += value.charAt(i) ;
                } else {
                    line += value.charAt(i); 
                }   
            }
        }
        
        out += escape(line) + "');\n";
        
        out += "} catch (e) {"
        out += "return '"+"An exception occurred while excuting template. Error type: ' + e.name" 
               + "+ '. Error message: ' + e.message;";
        out += "}"
        out += "    return out;\n";
        out += "}\n";
   } catch (e) {
        
        out = "function(context) { \n";
        out += "return '"+"An exception occurred while parsing on line "+ lineNumber +". Error type: " + e.name 
               + ". Error message: " + e.message+"';";
        out += "}"     
   }
    
    return out;
}    





/** 
 * Private method. Should not be used externally.
 * @private
 */
AjaxPages.prototype._processDirective = function(directive) {
    var i = 0;
    
    var tolkenIndex = 0;
    var tolken = new Array();
    
    //Skip first spaces;    
    while ( directive.charAt(i) == ' ' ) {
        i++;
    }
    
    tolken[tolkenIndex] = "";
    while ( directive.charAt(i) != ' ' && i <= directive.length ) {
        tolken[tolkenIndex] += directive.charAt(i);
        i++;
    }
    
    tolkenIndex++;

    //Skip first spaces;    
    while ( directive.charAt(i) == ' ' ) {
        i++;
    }
    
    tolken[tolkenIndex] = "";
    while ( directive.charAt(i) != ' ' && directive.charAt(i) != '=' && i <= directive.length ) {
        tolken[tolkenIndex] += directive.charAt(i);
        i++;
    }
    
    tolkenIndex++;
    
    //Skip first spaces;    
    while ( directive.charAt(i) == ' ' ) {
        i++;
    }
    
    if( directive.charAt(i) != '=' ) 
        throw new AjaxPagesException("Sintax error", "Tolken = expected attribute");
    i++
    
    //Skip first spaces;    
    while ( directive.charAt(i) == ' ' ) {
        i++;
    }
    
    tolken[tolkenIndex] = "";
    while ( directive.charAt(i) != ' ' && i <= directive.length ) {
        tolken[tolkenIndex] += directive.charAt(i);
        i++;
    }   
    tolkenIndex++;
    
    //Skip first spaces;    
    while ( directive.charAt(i) == ' ' &&  i <= directive.length ) {
        i++;
    }
    
    tolken[tolkenIndex] = "";
    while ( directive.charAt(i) != ' ' && directive.charAt(i) != '=' && i <= directive.length && i <= directive.length ) {
        tolken[tolkenIndex] += directive.charAt(i);
        i++;
    }   
    
    tolkenIndex++;
    
    if( directive.charAt(i) != '='  && i <= directive.length  ) 
        throw  new AjaxPagesException("Sintax error", "Tolken = expected after attribute" );
    i++ 
    
    tolken[tolkenIndex] = "";
    while ( directive.charAt(i) != ' ' && i <= directive.length  && i <= directive.length ) {
        tolken[tolkenIndex] += directive.charAt(i);
        i++;
    }   

    var file = "";
    var context = "";

    if ( tolken[0] != "include" )  
        throw new AjaxPagesException("Sintax error","Directive " + tolken[0] + " unknown.") ;
        
    if ( tolken[1] != "file" )      
        throw new AjaxPagesException("Sintax error", "Attribute file expected after include." ); 
    else file = tolken[2];

        
    if ( tolken[3] != "context" && tolken[3] != "" )    
        throw new AjaxPagesException( "Sintax error", "Attribute context expected after file."); 
    else if ( tolken[3] == "context" ) 
        context = tolken[4]
    else 
        context = "context";
        
    var out  = "    __ajp.load("+ file +");\n";
        out += "    __include = __ajp.getProcessor();\n";
        out += "    out+= __include(" + context + ");\n";
        
    return out;    
        
}

/** 
 * Processes the template
 * @param value (Optional) The template code.
 * @returns The output from processing the template
 */    
AjaxPages.prototype.process = function( value ) {
    eval ( "var processor =" + this.parse( value ) );
    return processor();
}  

/** 
 * Get the function that processes the template
 * @param value (Optional) The template code      
 * @returns The function that process the template
 */
AjaxPages.prototype.getProcessor = function( value ) {
    eval ( "var processor =" + this.parse( value ) );
    return processor;
}        

/** 
 * Exception throwed by AjaxPages
 */
AjaxPagesException = function( name, message ) {
    this.name = name;
    this.message = message;
}


////////////
function rec_view()
{
	var conf = arguments[0];
	var item = (arguments[1])? arguments[1]: '';
	document.write('<div class="rec_view" conf="'+conf+'" item="'+item+'"></div>');
}


////////////
var rec_widget = 
{
	test: function(conf, item){
		document.open();
		document.write(conf+'_'+item);
		document.close();
	},
	
	
	
	service_params : {"sid":"rec_ocn_okaidoku","div_class_name":"rec_view","client_uid_cookie":null,"flg_rec_request":"0","item_id_pttrn":{"extract":[],"rule":[]},"conf_intersect":[{"isid":"rec-ocn-okaidoku","cdomain":"disp.rec-ocn-okaidoku.recommendation.jp"}]}	,
	
		
	startup: {
		addEvent: function(func)
		{
			if(typeof window.addEventListener == 'function'){
				window.addEventListener('load', func, false);
				return true;
			}
			else if(typeof window.attachEvent == 'object') {
				window.attachEvent('onload', func);
				return true;
			}
		}
	}
	,
	
	request_params: {
		drawing: function(conf, item, drawing_area_pos)
		{
			var parts = new Array();
			var query = new Array();
			
			parts['sid'] = rec_widget.service_params.sid;
			parts['conf'] = conf;
			parts['page'] = location.href;
			parts['dpos'] = drawing_area_pos
			
			// i
			parts['item'] = rec_widget.request_params.gen.item(item, parts['page'], parts['conf']);
			//if (! parts['item']) {
			//	return null;
			//}
			
			
			// u
			parts['uid'] = rec_widget.request_params.gen.uid();
			
			
			//
			var n=0;
			for(var index in parts){
				query[n++] = index + '=' + encodeURIComponent(parts[index]);
			}
			return query.join('&');
			
			
		}
		,
		h_cookie: function(conf, item, isid)
		{
			var parts = new Array();
			var query = new Array();
			
			
			parts['sid'] = rec_widget.service_params.sid;
			parts['conf'] = conf;
			parts['page'] = location.href;
			parts['isid'] = isid;
			
			// i
			parts['item'] = rec_widget.request_params.gen.item(item, parts['page'], parts['conf']);
			//if (! parts['item']) {
			//	return '';
			//}
			
			
			
			//
			var n=0;
			for(var index in parts){
				query[n++] = index + '=' + encodeURIComponent(parts[index]);
			}
			return query.join('&');
			
			
		}
		,
		
		gen: {
			item: function(itemID, page, conf)
			{
								if (! itemID && rec_widget.service_params.item_id_pttrn.extract[conf] == 1){
					var r = rec_extract (location.href, rec_widget.service_params.item_id_pttrn.rule);
					
					//return ( (r.item_id.search(/@/) == -1)? '@' + r.item_id: r.item_id );
					return (r.item_id)? rec_widget.service_params.sid + '@' + r.item_id: '';
				}
				
				if (! itemID) {
					return '';
				}
				
				return itemID;
			}
			,
			
			uid: function()
			{
				var uid = '';
				if (rec_widget.service_params.client_uid_cookie) {
					uid = rec_widget.cookie.get(rec_widget.service_params.client_uid_cookie);
				}
				
				return uid;
			}
		}
	}
	,
	
	
	cookie:
	{
		get: function(name)
		{
			if (document.cookie) {
				var cookies = document.cookie.split("; ");
				for (var i = 0; i < cookies.length; i++) {
					var str = cookies[i].split("=");
					if (str[0] == name) {
						return unescape(str[1]);
						break;
					}
				}
			}
			return '';
		},
		/*
		request: function(cookie_list)
		{
			var query = '';
			var s = '';
			for(var k in cookie_list){
				for(var i in rec_widget.service_params.conf_intersect){
					query = rec_widget.request_params.h_cookie(cookie_list[k].conf, cookie_list[k].item, rec_widget.service_params.conf_intersect[i].isid);
					s = document.createElement('script');
					s.src = 'http://'+ rec_widget.service_params.conf_intersect[i].cdomain +'/recommend_cookie_set.php?' + query;
					s.charset='UTF-8';
					s.type = 'text/javascript';
					
					
					document.body.appendChild(s);
					
				}
			}
		}
		*/
		request: function(conf, item)
		{
			var query = '';
			var s = '';
				for(var i in rec_widget.service_params.conf_intersect){
					query = rec_widget.request_params.h_cookie(conf, item, rec_widget.service_params.conf_intersect[i].isid);
					s = document.createElement('script');
					s.src = 'http://'+ rec_widget.service_params.conf_intersect[i].cdomain +'/recommend_cookie_set.php?' + query;
					s.charset='UTF-8';
					s.type = 'text/javascript';

					document.body.appendChild(s);
				}
				
				
		}
	}
	,
	
	
	drawing: {
		areas: []
		,
		
		set: function(obj)
		{
			rec_widget.drawing.areas.push(obj);
			return rec_widget.drawing.areas.length - 1;
		}
		,
		get: function(obj_pos)
		{
			if (rec_widget.drawing.areas[obj_pos]) {
				return rec_widget.drawing.areas[obj_pos];
			}
			else {
				return null;
			}
		}
		,
		
		request: function(conf, item, drawing_area_pos)
		{
			var s = document.createElement('script');
			s.src = 'http://disp.rec-ocn-okaidoku.recommendation.jp/recommend_info.php?' + rec_widget.request_params.drawing(conf, item, drawing_area_pos);
			s.charset='UTF-8';
			s.type = 'text/javascript';
			document.body.appendChild(s);
		}
		,
		
		exec: function(output_data)
		{
			obj = rec_widget.drawing.get(output_data.dpos);
			
			if(obj){
				// test
				
				/* ------------------------------- */
				for (var cc in output_data.css) {
					var link = document.createElement('link');
					link.setAttribute("rel", "stylesheet");
					link.setAttribute("href", output_data.css[cc]);
					link.setAttribute("type", "text/css");
					var head    = document.getElementsByTagName( 'head' )[0];
					head.appendChild( link );
				}
				
				
				var outputArea = document.getElementById(output_data.drawing_area_id);
				var ajp = new AjaxPages();
				
				ajp.template = output_data.template;
				
		        var processor = ajp.getProcessor();
		        output_data.recommend = {};
				output_data.recommend.count = output_data.items.length;
				output_data.recommend.items = output_data.items;
				output_data.recommend.swf_json = output_data.swf_json;
				for(var i=0;i<output_data.recommend.count; i++) {
					output_data.recommend.items[i].url += output_data.recommend.items[i].url_cs;
					output_data.recommend.items[i].url += 'rec_res=' + encodeURIComponent(output_data.recommend.items[i].sid.replace(/\//g, '+')) + output_data.connector + encodeURIComponent(output_data.recommend.items[i].item_id.replace(/\//g, '+')); 
					output_data.recommend.items[i].url += '&rec_req=' + encodeURIComponent(output_data.request_items.replace(/\//g, '+'));
					output_data.recommend.items[i].url += '&rec_cgi=' + encodeURIComponent(output_data.cgi_name.replace(/\//g, '+'));
					output_data.recommend.items[i].url += '&rec_pat=' + encodeURIComponent(output_data.recommend.items[i].ab_test_pttrn);
				}
		        obj.innerHTML = processor(output_data.recommend);
				
				
				/* ------------------------------- */
				//rec_widget.service_params.item_id_pttrn.extract[conf] == 1
				rec_widget.cookie.request(output_data.conf, output_data.def_item);
			}
		}
	}
	,
	
	
	
	
	display: function(conf, item, obj)
	{
		rec_widget.drawing.request(conf, item, rec_widget.drawing.set(obj));
	}
	
};


////////////
//function rec_widget (){
//
//}



////////////
function rec_extract (str, rule) {
	/* ------------------------------------------ */
	var rules = {
		"service":[],
		"action": [],
		"item":   []
	};
	
	
	/* ------------------------------------------ */
	var extract = function(str, rule)
	{
		prepare(rule);
		var service = extract_service_id(str, rules);
		var action  = (service.match)? extract_action_id(str, rules, service.id): null;
		var item    = (service.match && action.match)? extract_item_id(str, rules, service.id, action.id): null;
		
		return {
			"service_id": service.id
			,
			"action_id": action.id
			,
			"item_id": item.id
			};
	};
	
	
	var prepare = function(rule)
	{
		var parts = [];
		for (var item in rule) {
			parts = rule[item].split("\t");
			if (parts[0] == "s") {
				rules.service.push({
						"id":    parts[1],
						"regex": regex_filter(parts[2])
						});
			}
			else if (parts[0] == "a") {
				rules.action.push({
						"id":      parts[1],
						"regex":   regex_filter(parts[2]),
						"service_id": ((parts[3])? parts[3]: '')
						});
			}
			else if (parts[0] == "i") {
				rules.item.push({
					"id":      parts[1],
					"regex":   regex_filter(parts[2]),
					"service_id": ((parts[3])? parts[3]: ''),
					"action_id":  ((parts[4])? parts[4]: '')
					});
			}
			else {
			}
		}
	}
	
	var regex_filter = function(regex_pttrn){
		if (regex_pttrn.match(/^\/.+\/.?$/)) {
			var r = regex_pttrn.match(/^\/(.+)\/(.?)$/);
			var opt = ( r[2] != '' && r[2] != 'i')? 'i': r[2];
			return {"pttrn": r[1], "opt": 'i'};
		}
		else {
			return {"pttrn": regex_pttrn.replace(/\//g, '\\/'), "opt": "i"};
		}
	}
	
	var extract_service_id = function(str, rules)
	{
		var id = null;
		var match; 
		for (var i in rules.service) {
			match = false;
			var pos= (rules.service[i].id.match(/^\$(\d+)$/)||[])[1];
			if ( pos ) {
				id = (str.match( new RegExp(rules.service[i].regex.pttrn, rules.service[i].regex.opt) )||[])[pos];
				match = true;
			}
			else {
				if( str.match( new RegExp(rules.service[i].regex.pttrn, rules.service[i].regex.opt) ) ){
					id = rules.service[i].id;
					match = true;
				}
			}
			if(match){ break; }
		}
		
		return {"id":id, "match":match};
	};
	
	
	var extract_action_id = function(str, rules, service_id)
	{
		var id = null;
		var match; 
		for (var i in rules.action) {
			match = false;
			var pos= (rules.action[i].id.match(/^\$(\d+)$/)||[])[1];
			if ( pos ) {
				id = (str.match( new RegExp(rules.action[i].regex.pttrn, rules.action[i].regex.opt) )||[])[pos];
				match = true;
			}
			else {
				if( str.match( new RegExp(rules.action[i].regex.pttrn, rules.action[i].regex.opt) ) ){
					id = rules.action[i].id;
					match = true;
				}
			}
			
			if(match){
				if ( rules.action[i].service_id && ! extract_service_id_sub(rules.action[i].service_id, service_id) ) {
					id = null;
					match = false;
				}
			}
			
			if(match){ break; }
		}
		
		return {"id":id, "match":match};
	};
	
	
	var extract_item_id = function(str, rules, service_id, action_id)
	{
		var id = null;
		var match = false; 
		for (var i in rules.item) {
			match = false;
			var pos= (rules.item[i].id.match(/^\$(\d+)$/)||[])[1];
			if ( pos ) {
				id = (str.match( new RegExp(rules.item[i].regex.pttrn, rules.item[i].regex.opt) )||[])[pos];
				match = true;
			}
			else {
				if( str.match( new RegExp(rules.item[i].regex.pttrn, rules.item[i].regex.opt) ) ){
					id = rules.item[i].id;
					match = true;
				}
			}
			
			if(match){
				if ( rules.item[i].service_id && ! extract_service_id_sub(rules.item[i].service_id, service_id) ) {
					id = null;
					match = false;
				}
			}
			
			if(match){
				if ( rules.item[i].action_id && ! extract_action_id_sub(rules.item[i].action_id, action_id) ) {
					id = null;
					match = false;
				}
			}
			
			if(match){ break; }
		}
		
		return {"id":id, "match":match};
	};
	
	
	var extract_service_id_sub = function(rule_service_id, service_id)
	{
		if ( service_id.match(rule_service_id) ) {
			return true;
		}
		else {
			return false;
		}
	};
	
	
	var extract_action_id_sub = function(rule_action_id, action_id)
	{
		if ( action_id.match(rule_action_id) ) {
			return true;
		}
		else {
			return false;
		}
	};
	
	
	/* ------------------------------------------ */
	return extract(str, rule);
	
}



////////////
rec_widget.startup.addEvent(
	function (){ 
		if(rec_widget.service_params.flg_rec_request == 1){
			var conf = '';
			var item = '';
			var tags=document.getElementsByTagName("div");
			//var cookie_list = new Array();
			for(var i=0;i<tags.length;i++){
			 if(tags[i].className=="rec_view") {
			 	conf = tags[i].getAttribute('conf');
			 	item = tags[i].getAttribute('item');
			 	if (conf) {
			 		//
			 		rec_widget.display(conf, item, tags[i]);
			 		//
			 		//cookie_list.push({"conf":conf, "item":item});
			 	}
			 }
			}
			
			// rec_widget.cookie.request(cookie_list);
		}
	}

);