/* Valtira Embed Survey Popups */
/* author Benjamin Wilson ben.wilson@valtira.net */

/*
Cookies with description of each:

vlt_firstEntrance - set only if choosen survey has the type set to true and it's the user's first visit (expires @ session end)
vlt_entranceVariation - set if choosen survey has type set to true (expires @ session end)
vlt_entranceOffer - set when the entrance survey offer has been made, we only show entrance once (expires never, it's sticky)
vlt_entranceTaken - set if the visitor opts-in to the survey, used to not bother them afterwards (expires never)
vlt_exitVariation - set if choosen survey has type set to false (expires @ session end)
vlt_exitOffer - set when the exit survey offer has been made (!Important expires @ session end)
vlt_exitTaken - set if the visitor opts-in to the survey, used to not bother them on subsequent visits (expires never)
vlt_pageViews - keeps count of how many pages have been viewed, at a specific number the survey is shown (expires @ session end)
vlt_pageCount - set by the selected survey

vlt_surveyId - vlt_ratio1 and vlt_ratio2 are used to determine the survey selected, the survey id is stored here (expires only if it doesn't match current surveyIds)
vlt_surveyType - surveyType is either true (entrance) or false (exit)

*/

/* Global Vars
vlt_oldY - var is used to determine mouse direction, this is used to track and trigger the exit popup
vlt_externalPath - stores the href of a link that's offsite and will redirect the visitor after the survey popup is presented
vlt_refUrl - is passed to the survey to track what website lead the visitor to the current site
vlt_surveyPath - destination path to the survey used via the popup anchor tag
vlt_pageViews - set via cookie to tally how many pages have been viewed before the survey popup is shown

NOTE: To bump the page view number but not show the survey popup set vlt_noPopup on a page by page basis.

*/

var vlt_oldY = 0;
var vlt_externalPath = "";  //set empty at global level, functions will fill it in
var vlt_refUrl = "";  //set empty at global level, functions will fill it in
var vlt_surveyPath = "";  // set empty either exitoffer or enteranceoffer will assign value
var vlt_pageViews = 0;
var vlt_pageCount = 0;
var vlt_currentSurvey = new Object();

/* Functions

vlt_offerEntrance - brings a thickbox up, allowing the visitor to opt-in for entrance survey
vlt_offerExit - brings a thickbox up, allowing the visitor to opt-in for exit survey
vlt_listenForExit - sets mouse and external link listeners to bring up thickbox for exit survey
vlt_redirectExternalLink - takes a path and redirects browser to the path provided
vlt_openSurvey - creates a new window where the visitor can take the survey
vlt_initThickboxSurveyLink - sets up links in thickbox to open survey

vlt_surveyInit - check for cookies, determine next steps (First function called on load)
vlt_ratioLogic - takes both survey ratios and chooses a survey

--- Provided from http://techpatterns.com/downloads/javascript_cookies.php
vlt_Get_Cookie
vlt_Set_Cookie
vlt_Delete_Cookie

*/

function vlt_surveyInit () {
  // check if survey has been taken, if not
  // check for vlt_surveyId cookie, match to current surveyIds
  // if it matches run logic based on survey otherwise reset and run ratioLogic
  // finally if vlt_surveyId cookie doesn't exist run ratioLogic
  if ( vlt_Get_Cookie( 'vlt_entranceOffer' ) || vlt_Get_Cookie( 'vlt_exitTaken' ) || vlt_Get_Cookie( 'vlt_exitOffer' ) || vlt_Get_Cookie( 'vlt_exitOffer' ) ) {
      //do nothing
    
  } else if ( vlt_Get_Cookie( 'vlt_surveyId' ) ) {
    // check that it matches current surveyId1 or surveyId2
    // if not erase it and start ratio logic new
    var vlt_cookieSurveyId = vlt_Get_Cookie( 'vlt_surveyId' );

    if(vlt_cookieSurveyId == vlt_survey1.surveyId) {
      // determine type and call exit or entrance init
      if(vlt_survey1.surveyType == "true" && vlt_pageViews >= vlt_pageCount) {
        vlt_offerEntrance(vlt_survey1);
      } else if(vlt_survey2.surveyType == "true" && vlt_pageViews >= vlt_pageCount) {
        vlt_initExitPopup( vlt_survey1 );
      }

    } else if( vlt_cookieSurveyId == vlt_survey2.surveyId ) {
      // determine type and call exit or entrance init
      if(vlt_survey2.surveyType == "true" && vlt_pageViews >= vlt_pageCount) {
        vlt_offerEntrance(vlt_survey2);
      } else if(vlt_survey2.surveyType == "false" && vlt_pageViews >= vlt_pageCount) {
        vlt_initExitPopup( vlt_survey2 );
      }
    }else {
      // the optimizer has changed, delete cookies and run ratio logic
      vlt_ratioLogic();
    }
  } else {
    // 1st time visiting, run ratio logic
    vlt_ratioLogic();
  }
}

function vlt_ratioLogic () {

  // determine the smaller ratio to calculate against random
  if (vlt_survey1.ratio <= vlt_survey2.ratio) {
    if(Math.random() <= (vlt_survey1.ratio/100)) {
      // set cookies for vlt_survey1
      vlt_Set_Cookie('vlt_surveyId',vlt_survey1.surveyId,'1000','/','','');
      vlt_Set_Cookie('vlt_surveyType',vlt_survey1.surveyType,'1000','/','','');
      vlt_Set_Cookie('vlt_pageCount',vlt_survey1.pageCount,'1000','/','','');

      // if surveyType true, run entrance offer otherwise init exit offer
      if(vlt_survey1.surveyType == "true" && vlt_pageViews >= vlt_survey1.pageCount) {
        vlt_offerEntrance( vlt_survey1 );
      } else if(vlt_survey1.surveyType == "false" && vlt_pageViews >= vlt_survey1.pageCount) {
        vlt_initExitPopup( vlt_survey1 );
      }
    } else {
      // set cookies for vlt_survey2
      vlt_Set_Cookie('vlt_surveyId',vlt_survey2.surveyId,'1000','/','','');
      vlt_Set_Cookie('vlt_surveyType',vlt_survey2.surveyType,'1000','/','','');
      vlt_Set_Cookie('vlt_pageCount',vlt_survey2.pageCount,'1000','/','','');
      // if surveyType true, run entrance offer otherwise init exit offer
      if(vlt_survey2.surveyType == "true" && vlt_pageViews >= vlt_survey2.pageCount) {
        vlt_offerEntrance( vlt_survey2 );
      } else if(vlt_survey2.surveyType == "false" && vlt_pageViews >= vlt_survey2.pageCount) {
        vlt_initExitPopup( vlt_survey2 );
      }
    }
  } else {
    // evaluate if vlt_survey2.ratio is lower than random
    if(Math.random() <= (vlt_survey2.ratio/100)) {
      // set cookies for vlt_survey2
      vlt_Set_Cookie('vlt_surveyId',vlt_survey2.surveyId,'1000','/','','');
      vlt_Set_Cookie('vlt_surveyType',vlt_survey2.surveyType,'1000','/','','');
      vlt_Set_Cookie('vlt_pageCount',vlt_survey2.pageCount,'1000','/','','');      
      // if surveyType true, run entrance offer otherwise init exit offer
      if(vlt_survey2.surveyType == "true" && vlt_pageViews >= vlt_survey2.pageCount) {
        vlt_offerEntrance( vlt_survey2 );
      } else if(vlt_survey2.surveyType == "false" && vlt_pageViews >= vlt_survey2.pageCount) {
        vlt_initExitPopup( vlt_survey2 );
      }
    } else {
      // set cookies for vlt_survey1
      vlt_Set_Cookie('vlt_surveyId',vlt_survey1.surveyId,'1000','/','','');
      vlt_Set_Cookie('vlt_surveyType',vlt_survey1.surveyType,'1000','/','','');
      vlt_Set_Cookie('vlt_pageCount',vlt_survey1.pageCount,'1000','/','','');      
      // if surveyType true, run entrance offer otherwise init exit offer
      if(vlt_survey1.surveyType == "true" && vlt_pageViews >= vlt_survey1.pageCount) {
        vlt_offerEntrance( vlt_survey1 );
      } else if(vlt_survey1.surveyType == "false" && vlt_pageViews >= vlt_survey1.pageCount) {
        vlt_initExitPopup( vlt_survey1 );
      }
    }
  }

}

function vlt_listenForExit (vlt_selectedSurvey) {

    /* If visitor leaves page, show exit survey */
    $(document).mousemove(function(e) {

      // figure out the offset if they visitor has scrolled
      var vlt_scrOfY = 0;
      if( typeof( window.pageYOffset ) == 'number' ) {
	    //Netscape compliant
	    vlt_scrOfY = window.pageYOffset;
	  } else if( document.body && ( document.body.scrollLeft || document.body.scrollTop ) ) {
	    //DOM compliant
	    vlt_scrOfY = document.body.scrollTop;
	  } else if( document.documentElement && ( document.documentElement.scrollLeft || document.documentElement.scrollTop ) ) {
	    //IE6 standards compliant mode
	    vlt_scrOfY = document.documentElement.scrollTop;
	  }

      var vlt_offSetTop = e.pageY - vlt_scrOfY;

      if(vlt_offSetTop <= 5 && e.pageY < vlt_oldY && !vlt_Get_Cookie('vlt_exitOffer')) {
        vlt_offerExit(vlt_selectedSurvey);
      }
      //set new position for next check
      vlt_oldY = e.pageY;
    });

    /* Find all external links and offer exit survey before redirect */
    $('a').filter(function() {
      return this.hostname && this.hostname !== location.hostname;
    }).click(function () {
      if(!vlt_Get_Cookie('vlt_exitOffer')) {
        vlt_offerExit(vlt_selectedSurvey);
        vlt_externalPath = this.href;
        var vlt_path = this.href;
        setTimeout('vlt_redirectExternalLink("'+vlt_path+'");',8000);
        return false;
      } else {
        return true;
      }
    });
}

function vlt_initExitPopup (vlt_selectedSurvey) {
  	
  if(vlt_pageViews >= vlt_pageCount) {
  	
	vlt_listenForExit(vlt_selectedSurvey);
	
	vlt_currentSurvey = vlt_selectedSurvey;

  }
}

function vlt_setReferralUrl () {
  if (vlt_Get_Cookie('vlt_refUrl')) {
    // var is passed into the survey call
    return vlt_Get_Cookie('vlt_refUrl');
  } else {
    vlt_refUrl = document.referrer;
    vlt_Set_Cookie('vlt_refUrl', vlt_refUrl, '', '/', '', '');
    return vlt_refUrl;
  }
}

function vlt_noPopupInit () {
  if (typeof(vlt_noPopup) == 'Undefined' || typeof(vlt_noPopup) == 'undefined' ) {
    return false;
  } else {
    return true;
  }
}

function vlt_redirectExternalLink ( path ) {
  location.href=path;
}

function vlt_openSurvey ( pageURL,title,w,h ) {
  var vlt_left = (screen.width/2)-(w/2);
  var vlt_top = (screen.height/2)-(h/2);
  var vlt_pUrl = pageURL+"&referringUrl="+vlt_refUrl+"&lastPage="+document.title;
  var vlt_targetWin = window.open (vlt_pUrl, '', 'toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=yes, resizable=no, copyhistory=no, width='+w+', height='+h+', top='+vlt_top+', left='+vlt_left);
  // close popup
  tb_remove();
}

function vlt_initThickboxSurveyLink ( ) {
  // setup link for either enterance or exit survey
  $("a#surveyLink").click(function ( ) {
    // set survey taken cookie based on entranceVariation or exitVariation cookie
    if( vlt_Get_Cookie( 'vlt_surveyType') == "true" ) {

      vlt_Set_Cookie( 'vlt_entranceTaken', 'true', '1000', '/', '', '' );

    } else {

      vlt_Set_Cookie( 'vlt_exitTaken', 'true', '1000', '/', '', '' );

    }

    vlt_openSurvey(this.href, "Survey", vlt_surveyWindowWidth, vlt_surveyWindowHeight);

    return false;
  });
  $("a#redirectNow").click(function ( ) {
    $(this).attr('href', vlt_externalPath);
  });
}

function vlt_offerEntrance (vlt_selectedSurvey) {
  vlt_surveyPath = vlt_odsUrl+"?surveyId="+vlt_selectedSurvey.surveyId;
  // Launch MODAL BOX
  var t = setTimeout("tb_show('Welcome', vlt_entrancePopupPath+'?height=180&width=300&svyPath='+vlt_surveyPath, '')", 1000);
  /* Set vlt_entranceOffer cookie - don't expire only shown once,
     all subsequent visits exit survey only */
  vlt_Set_Cookie( 'vlt_entranceOffer', 'true', '1000', '/', '', '' );
  /* Set vlt_entranceOffer cookie - don't expire only shown once,
     all subsequent visits exit survey only */
  vlt_Set_Cookie( 'vlt_firstEntrance', 'true', '', '/', '', '' );
}


function vlt_offerExit (vlt_selectedSurvey) {
  // vlt_odsUrl created in valtira-config.js
  vlt_surveyPath = vlt_odsUrl+"?surveyId="+vlt_selectedSurvey.surveyId;
  // Launch MODAL BOX
  tb_show("", vlt_exitPopupPath + "?height=180&width=300&svyPath=" + vlt_surveyPath, "");
  /* Set vlt_exitOffer cookie - expires at end of session */
  vlt_Set_Cookie( 'vlt_exitOffer', 'true', '', '/', '', '' );
}

function vlt_pageViewCount () {
  // get cookie and raise count, if it doesn't exist create it
  if ( vlt_Get_Cookie( 'vlt_pageViews' ) ) {
    vlt_pageViews = parseInt(vlt_Get_Cookie( 'vlt_pageViews' ));
 	vlt_pageCount = parseInt(vlt_Get_Cookie( 'vlt_pageCount' ));
    vlt_pageViews = vlt_pageViews + 1;
    vlt_Set_Cookie( 'vlt_pageViews', vlt_pageViews, '', '/', '', '' );
    return vlt_pageViews;
  } else {
    // create cookie and set pageViews to 1
    vlt_Set_Cookie( 'vlt_pageViews', '1', '', '/', '', '' );
    var vlt_pageViews = 1;
    return vlt_pageViews;
  }
}

function vlt_Set_Cookie ( name, value, expires, path, domain, secure ) {
  // set time, it's in milliseconds
  var today = new Date();
  today.setTime( today.getTime() );
  /*
  if the expires variable is set, make the correct
  expires time, the current script below will set
  it for x number of days, to make it for hours,
  delete * 24, for minutes, delete * 60 * 24
  */
  if ( expires ) {
    expires = expires * 1000 * 60 * 60 * 24;
  }
  var expires_date = new Date( today.getTime() + (expires) );

  document.cookie = name + "=" +escape( value ) +
  ( ( expires ) ? ";expires=" + expires_date.toGMTString() : "" ) +
  ( ( path ) ? ";path=" + path : "" ) +
  ( ( domain ) ? ";domain=" + domain : "" ) +
  ( ( secure ) ? ";secure" : "" );
}


function vlt_Get_Cookie( check_name ) {
	// first we'll split this cookie up into name/value pairs
	// note: document.cookie only returns name=value, not the other components
	var a_all_cookies = document.cookie.split( ';' );
	var a_temp_cookie = '';
	var cookie_name = '';
	var cookie_value = '';
	var b_cookie_found = false; // set boolean t/f default f

	for ( i = 0; i < a_all_cookies.length; i++ )
	{
		// now we'll split apart each name=value pair
		a_temp_cookie = a_all_cookies[i].split( '=' );


		// and trim left/right whitespace while we're at it
		cookie_name = a_temp_cookie[0].replace(/^\s+|\s+$/g, '');

		// if the extracted name matches passed check_name
		if ( cookie_name == check_name )
		{
			b_cookie_found = true;
			// we need to handle case where cookie has no value but exists (no = sign, that is):
			if ( a_temp_cookie.length > 1 )
			{
				cookie_value = unescape( a_temp_cookie[1].replace(/^\s+|\s+$/g, '') );
			}
			// note that in cases where cookie is initialized but no value, null is returned
			return cookie_value;
			break;
		}
		a_temp_cookie = null;
		cookie_name = '';
	}
	if ( !b_cookie_found )
	{
		return null;
	}
}


// this deletes the cookie when called
function vlt_Delete_Cookie( name, path, domain ) {
  if ( vlt_Get_Cookie( name ) ) document.cookie = name + "=" +
  ( ( path ) ? ";path=" + path : "") +
  ( ( domain ) ? ";domain=" + domain : "" ) +
  ";expires=Thu, 01-Jan-1970 00:00:01 GMT";
}

/*  Runtime Code

*/

$(document).ready( function() {

  /* check for vlt_noPopup */
  /* var used to determine when to show a popup if all other criteria is met */
  vlt_noPopup = vlt_noPopupInit();

  /* check for referral URL */
  /* this code is to provide the referral url from the first page of the site
     if not from an off-site link, then it's set to the first page
   */
  vlt_refUrl = vlt_setReferralUrl();

  vlt_pageViews = vlt_pageViewCount();

  // only init if vlt_noPopup is false
  if(!vlt_noPopup) {
    vlt_surveyInit();
  }

});