var Base64 = {

    _keyStr : "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=",

    encode : function (input) {
        var output = "";
        var chr1, chr2, chr3, enc1, enc2, enc3, enc4;
        var i = 0;

        input = Base64._utf8_encode(input);

        while (i < input.length) {

            chr1 = input.charCodeAt(i++);
            chr2 = input.charCodeAt(i++);
            chr3 = input.charCodeAt(i++);

            enc1 = chr1 >> 2;
            enc2 = ((chr1 & 3) << 4) | (chr2 >> 4);
            enc3 = ((chr2 & 15) << 2) | (chr3 >> 6);
            enc4 = chr3 & 63;

            if (isNaN(chr2)) {
                enc3 = enc4 = 64;
            } else if (isNaN(chr3)) {
                enc4 = 64;
            }

            output = output +
            this._keyStr.charAt(enc1) + this._keyStr.charAt(enc2) +
            this._keyStr.charAt(enc3) + this._keyStr.charAt(enc4);

        }

        return output;
    },

    // public method for decoding
    decode : function (input) {
        var output = "";
        var chr1, chr2, chr3;
        var enc1, enc2, enc3, enc4;
        var i = 0;

        input = input.replace(/[^A-Za-z0-9\+\/\=]/g, "");

        while (i < input.length) {

            enc1 = this._keyStr.indexOf(input.charAt(i++));
            enc2 = this._keyStr.indexOf(input.charAt(i++));
            enc3 = this._keyStr.indexOf(input.charAt(i++));
            enc4 = this._keyStr.indexOf(input.charAt(i++));

            chr1 = (enc1 << 2) | (enc2 >> 4);
            chr2 = ((enc2 & 15) << 4) | (enc3 >> 2);
            chr3 = ((enc3 & 3) << 6) | enc4;

            output = output + String.fromCharCode(chr1);

            if (enc3 != 64) {
                output = output + String.fromCharCode(chr2);
            }
            if (enc4 != 64) {
                output = output + String.fromCharCode(chr3);
            }

        }

        output = Base64._utf8_decode(output);

        return output;

    },

    // private method for UTF-8 encoding
    _utf8_encode : function (string) {
        string = string.replace(/\r\n/g,"\n");
        var utftext = "";

        for (var n = 0; n < string.length; n++) {

            var c = string.charCodeAt(n);

            if (c < 128) {
                utftext += String.fromCharCode(c);
            }
            else if((c > 127) && (c < 2048)) {
                utftext += String.fromCharCode((c >> 6) | 192);
                utftext += String.fromCharCode((c & 63) | 128);
            }
            else {
                utftext += String.fromCharCode((c >> 12) | 224);
                utftext += String.fromCharCode(((c >> 6) & 63) | 128);
                utftext += String.fromCharCode((c & 63) | 128);
            }

        }

        return utftext;
    },

    // private method for UTF-8 decoding
    _utf8_decode : function (utftext) {
        var string = "";
        var i = 0;
        var c = c1 = c2 = 0;

        while ( i < utftext.length ) {

            c = utftext.charCodeAt(i);

            if (c < 128) {
                string += String.fromCharCode(c);
                i++;
            }
            else if((c > 191) && (c < 224)) {
                c2 = utftext.charCodeAt(i+1);
                string += String.fromCharCode(((c & 31) << 6) | (c2 & 63));
                i += 2;
            }
            else {
                c2 = utftext.charCodeAt(i+1);
                c3 = utftext.charCodeAt(i+2);
                string += String.fromCharCode(((c & 15) << 12) | ((c2 & 63) << 6) | (c3 & 63));
                i += 3;
            }

        }

        return string;
    }

}


// Class to handle query of Yahoo Site Explorer for Backlinks from the Client's Browser

var pms_backlink =
{
	// Initialize
	  init : function(url, total_links, backlink_status, percent_complete, dialog_ready, pinglist_id, callback)
		  // url - URL to check
		  // total_links - id string of span/div element for total link display. 'None' if not needed
		  // backlink_status - id string of span/div element for status display. 'None' if not needed
		  // percent_complete - id string of span/div element for % commplete display. 'None' if not needed
			// dialog_ready - 'Yes' to show the we're ready dialog
			// pinglist_id - id string of element to store the pinglist_id into.  'None' if not needed
			// callback - function to call when completed
  {
    pms_backlink.url = url;
		pms_backlink.total = 0;
		pms_backlink.start = 1;
		pms_backlink.results = 100;
		pms_backlink.resctr = 0;
		pms_backlink.s2 = new Array();
		pms_backlink.status_total = 1000;
		pms_backlink.total_links = total_links;
		pms_backlink.backlink_status = backlink_status;
		pms_backlink.percent_complete = percent_complete;
		pms_backlink.dialog_ready = dialog_ready;
		pms_backlink.pinglist_id_element = pinglist_id;
		pms_backlink.callback = callback;

  },
	startping : function()
	{

		if (pms_backlink.url.length == 0 ) {
			alert("Sorry, but you must enter a URL.");
			return;
		}
		x_pms_ping_start( pms_backlink.url, pms_backlink.pingSearch );
	},

  pingSearch : function(res)
  {
		pms_backlink.pinglist_id = res;

		if ( pms_backlink.pinglist_id_element != 'None' ) {
			 var pide = document.getElementById( pms_backlink.pinglist_id_element );
		   pide.value = res;
		}

    if (pms_backlink.url)
    {
			if ( pms_backlink.dialog_ready == 'Yes' ) {
			    alert("Ok, ready to query Yahoo Site Explorer for your backlinks.  This might take a while...");
			}
      pms_backlink.s = document.createElement('script');
      pms_backlink.s.type ='text/javascript';
      pms_backlink.s.charset ='utf-8';
      pms_backlink.s.src = 'http://search.yahooapis.com/SiteExplorerService/V1/inlinkData?appid=V9rsqLPV34Hn0rBWJMCJRctBVaa98s91qCt9d_4vbxvoVWMh7ukmRRmeJ3JA6_Mb&output=json&results=1&callback=pms_backlink.pongSearch1&query=' + pms_backlink.url;
      document.getElementsByTagName('head')[0].appendChild(pms_backlink.s);
    }
  },


  pongSearch1 : function(z)
  {
		if ( z != null ) {

		   if ( z.ResultSet == null ) {
			   alert("Sorry, but that URL doesn't compute.");
			   return;
		   }

		   pms_backlink.total = parseInt(z.ResultSet.totalResultsAvailable);
		}

		if ( pms_backlink.total == 0 ) {
			alert("Sorry, but no backlinks found for "+ pms_backlink.url);
			return;
		}



		if ( pms_backlink.total_links != 'None' ) {

		var e = document.getElementById(pms_backlink.total_links);

    if (e.firstChild == null) {
         e.appendChild(document.createTextNode(pms_backlink.total));
	  } else {
         e.firstChild.nodeValue = pms_backlink.total;
    }

		}

		if ( pms_backlink.backlink_status != 'None' ) {

		var b = document.getElementById(pms_backlink.backlink_status);
		b.style.visibility="";

		if ( pms_backlink.total < 1000 ) {
			pms_backlink.status_total = pms_backlink.total;
		}

		}

		if ( parseInt(pms_backlink.start) <= parseInt(pms_backlink.total) ) {
      pms_backlink.s2[pms_backlink.resctr] = document.createElement('script');

      pms_backlink.s2[pms_backlink.resctr].type ='text/javascript';
      pms_backlink.s2[pms_backlink.resctr].charset ='utf-8';
      pms_backlink.s2[pms_backlink.resctr].src = 'http://search.yahooapis.com/SiteExplorerService/V1/inlinkData?appid=V9rsqLPV34Hn0rBWJMCJRctBVaa98s91qCt9d_4vbxvoVWMh7ukmRRmeJ3JA6_Mb&output=json&results='+pms_backlink.results+'&start='+pms_backlink.start+'&callback=pms_backlink.pongSearch2&query=' + pms_backlink.url;
			document.getElementsByTagName('head')[0].appendChild(pms_backlink.s2[pms_backlink.resctr]);
			pms_backlink.start = parseInt(pms_backlink.start) + 100;
			pms_backlink.resctr++;
			}
	} ,

	psearch15 : function()
	{
		var ptotal = pms_backlink.total;

      pms_backlink.s2[pms_backlink.resctr] = document.createElement('script');

      pms_backlink.s2[pms_backlink.resctr].type ='text/javascript';
      pms_backlink.s2[pms_backlink.resctr].charset ='utf-8';
      pms_backlink.s2[pms_backlink.resctr].src = 'http://search.yahooapis.com/SiteExplorerService/V1/inlinkData?appid=V9rsqLPV34Hn0rBWJMCJRctBVaa98s91qCt9d_4vbxvoVWMh7ukmRRmeJ3JA6_Mb&output=json&results='+pms_backlink.results+'&start='+pms_backlink.start+'&callback=pms_backlink.pongSearch2&query=' + pms_backlink.url;
			document.getElementsByTagName('head')[0].appendChild(pms_backlink.s2[pms_backlink.resctr]);
			pms_backlink.start = parseInt(pms_backlink.start) + 100;
			pms_backlink.resctr++;

	} ,

  pongSearch2 : function(z)
  {

		var xmlstr = '<results>';

    if (z == null) {
       alert("null z");
    }

		if ( pms_backlink.percent_complete != 'None' ) {

		var e = document.getElementById(pms_backlink.percent_complete);
		var perc = Math.round((pms_backlink.start / pms_backlink.status_total) * 100);
		if (perc > 100) {
			perc = 100;
		}

    if (e.firstChild == null) {
         e.appendChild(document.createTextNode(perc));
	  } else {
         e.firstChild.nodeValue = perc;
    }

		}

		if ( z.ResultSet.totalResultsReturned == 1 ) {
		  xmlstr = xmlstr + '<url><![CDATA['+ Base64.encode(z.ResultSet.Result.Url)+']]></url>';
		} else {

      for (var i = 0; i < z.ResultSet.totalResultsReturned; i++)
      {
	  	  xmlstr = xmlstr + '<url><![CDATA['+ Base64.encode(z.ResultSet.Result[i].Url)+']]></url>';
      }

		}

		xmlstr = xmlstr + '</results>';

		x_pms_yseresult_add( pms_backlink.pinglist_id, xmlstr, 'pms_ping_links', pms_backlink.pongSearch3 );

  },
 pongSearch3 :function( res )
 {


	 var m = parseFloat(pms_backlink.start);
	 var tot = parseFloat(pms_backlink.total);

	 if ( m < 1000 ) {
 	  	 if ( m <= tot ) {
 	  	 	  pms_backlink.psearch15();
 	  	 } else {
 					pms_backlink.start = 1;
					pms_backlink.callback(res);
					return;
 	  	 }
	 } else {
 					pms_backlink.start = 1;
					pms_backlink.callback(res);
					return;
	 }

 }
};