☰

GayRomeo Optimizer

Optimize GayRomeo (and PlanetRomeo) pages

// ==UserScript==
// @name           GayRomeo Optimizer
// @namespace      http://marvinate.wordpress.com
// @description    Optimize GayRomeo (and PlanetRomeo) pages
// @include        http*://*.gayromeo.com/*
// @include        http*://*.planetromeo.com/*
// @include        http*://83.98.143.20/*
// @grant          GM_xmlhttpRequest
// @version        1.4
// ==/UserScript==

// Version 1.1 [2011-11-14]
// [*] Changed internal system to use real objects instead of procedural stuff
//
// Version 1.1a [2011-11-23]
// [*] Optimized JavaScript code - yes, back to procedural stuff... just shut up ;-)
//
// Version 1.2 [2012-01-14]
// [+] Integrated callback to GR-Tools
//
// Version 1.2.1 [2012-02-01]
// [*] Added GayRomeo IP address as default include
// [*] Special handling for club pages (thanks to gymnazein)
//
// Version 1.2.1a [2012-02-02]
// [*] Correct useof window.location instead of document.location
//
// Version 1.2.2 [2012-10-31]
// [*] Small DOM adjustments (thanks to gymnazein)
//
// Version 1.3 [2012-11-24]
// [*] Detect last page (thanks to djamana)
// [*] Optimized generated DOM (thanks to djamana)
// [*] Refactored internal logics
//
// Version 1.3a [2012-12-17]
// [*] Small source code enhancements
//
// Version 1.4 [2013-02-10]
// [*] Compatibility to latest GR-Tools

// -----------------------------------------------------------------------------
// ---  Search list enhancements  ----------------------------------------------
// -----------------------------------------------------------------------------

if(window.location.href.indexOf("/search/index.php") > -1 || window.location.href.indexOf("/search/?") > -1) {

  // We're in a list page, which means that we can create the list optimizer
  // that is being used to alter the current pages content
  function GrListOptimizer() {

    var currentPageRegexArray = /.*?resultPage=(\d+)/.exec(window.location.href);
    this.currentPageIndex = currentPageRegexArray == null ? 1 : parseInt(currentPageRegexArray[1]);

    var lastPageLink = MV_getElementByPath("//table[@class='searchLayout']//tr[last()]/td[last()]/a[last()]");
    this.lastPageIndex = lastPageLink == null ? -1 : parseInt(lastPageLink.innerHTML);

    var nextPageUrl = MV_getElementByPath("//body/table[2]/tbody/tr/td/a[last()]");
    this.nextPageLink = nextPageUrl.getAttribute("href");

    this.navigationTableElement = MV_getElementByPath("//body/table[2]");

  }

  // Append the given element to the currently displayed content on the screen.
  // The content is always added before the pagination table
  GrListOptimizer.prototype.appendContent = function(pElement) {
    this.navigationTableElement.parentNode.insertBefore(pElement, this.navigationTableElement);
  }

  // Append the link to the next page (if there is a next page, otherwise, we'll
  // do nothing)
  GrListOptimizer.prototype.appendNextPageLink = function(pNextPageIndex) {
    var targetPageIndex = pNextPageIndex ? pNextPageIndex : this.currentPageIndex + 1;
    if(this.lastPageIndex > 1 && targetPageIndex <= this.lastPageIndex) {

      var thisOptimizer = this;
      var nextPageLink = MV_createElement("a", {
        style: "display: block; text-align: left; border: 1px solid #ffffff; padding: 5px 5px 5px 5px;",
        name: "gayromeooptimizer_" + targetPageIndex,
        href: "#gayromeooptimizer_" + targetPageIndex
      }, "Load next page (page " + targetPageIndex + ")...");
      nextPageLink.addEventListener("click", function() { thisOptimizer.appendResultPage(nextPageLink, targetPageIndex); }, true);
      nextPageLink.addEventListener("mouseover", function() { thisOptimizer.appendResultPage(nextPageLink, targetPageIndex); }, true);
      this.appendContent(nextPageLink);

    }
  }

  // Load the content for the page with the specified index and append it to
  // the current page
  GrListOptimizer.prototype.appendResultPage = function(pSourceLinkElement, pPageIndex) {

    var loadingMessageDiv = MV_createElement("div", { style: "border: 1px solid #ffffff; padding: 5px 5px 5px 5px;" }, "Loading next page (page " + pPageIndex + ")...");
    pSourceLinkElement.parentElement.insertBefore(loadingMessageDiv, pSourceLinkElement);
    pSourceLinkElement.parentElement.removeChild(pSourceLinkElement);

    var thisOptimizer = this;
    var thisPageParameterStart = window.location.href.indexOf("?");
    var thisPageBaseUrl = thisPageParameterStart < 0 ? window.location.href : window.location.href.substring(0, thisPageParameterStart);
    var nextPageOriginalUrl = thisPageBaseUrl + this.nextPageLink;
    var nextPageMatchedArray = /(.*?)resultPage=\d+(.*)/.exec(nextPageOriginalUrl);
    var nextPageUrl = nextPageMatchedArray == null ? nextPageOriginalUrl : (nextPageMatchedArray[1] + "&resultPage=" + pPageIndex + nextPageMatchedArray[2]);

    MV_sendRequest({
      url: nextPageUrl,
      xpath: "//body/table[1]",
      onComplete: function(pElement, pRequest, pResponse) {
        thisOptimizer.appendResultFromResponse(loadingMessageDiv, pElement, pRequest, pResponse);
      },
      onError: function(pRequest, pResponse, pException) {
        thisOptimizer.appendResultFromError(loadingMessageDiv, pRequest, pResponse, pException);
      },
      pageIndex: pPageIndex
    });

  }

  GrListOptimizer.prototype.appendResultFromResponse = function(pLoadingElement, pElement, pRequest, pResponse) {

    // Replace the "loading" message with the title of the current page
    var nextPageTableHeader = MV_createElement("div", { style: "padding: 5px 5px 5px 5px; border: 1px solid #ffffff" }, "Result list (page " + pRequest.pageIndex + ")");
    pLoadingElement.parentElement.insertBefore(nextPageTableHeader, pLoadingElement);
    pLoadingElement.parentElement.removeChild(pLoadingElement);

    // Append the content we've received for the next page
    this.appendContent(pElement);
    this.appendNextPageLink(pRequest.pageIndex + 1);

    // retrigger GRT-Tools if installed
    // (http://userscripts.org/scripts/show/33184)
    var grtEvent = document.createEvent('Event');
    grtEvent.initEvent('GRT_RETRIGGER', false, false);
    document.dispatchEvent(grtEvent);

  }

  GrListOptimizer.prototype.appendResultFromError = function(pLoadingElement, pRequest, pResponse, pException) {

    var errorElement = MV_createElement("div", { style: "border: 1px solid red; padding: 5px 5px 5px; font-weight: bold;" }, "Cannot load page " + pRequest.pageIndex);
    if(pException != null) {
      errorElement.appendChild(document.createTextNode(" [" + pException + "]"))
    }

    var thisOptimizer = this;
    var retryLink = MV_createElement("a", null, "Retry loading page");
    retryLink.addEventListener("click", function() { thisOptimizer.appendResultPage(errorElement, pRequest.pageIndex); }, true);
    errorElement.appendChild(document.createTextNode(" ("));
    errorElement.appendChild(retryLink);
    errorElement.appendChild(document.createTextNode(")"));

    pLoadingElement.parentElement.insertBefore(errorElement, pLoadingElement);
    pLoadingElement.parentElement.removeChild(pLoadingElement);

  }

  // Initialize the Optimizer
  var listOptimizer = new GrListOptimizer();
  listOptimizer.appendNextPageLink();

}


// -----------------------------------------------------------------------------
// ---  Close a picture in a popup Window by clicking on it. -------------------
// -----------------------------------------------------------------------------

if(window.location.pathname.indexOf("/auswertung/pix/popup") > -1) {
  var imageElementsResult = document.evaluate("//img", document, null, XPathResult.UNORDERED_NODE_SNAPSHOT_TYPE, null);
  for(var i = 0; i < imageElementsResult.snapshotLength; i++) {
    imageElementsResult.snapshotItem(i).addEventListener("click", function() {
      window.close();
    }, false);
  }
}


// -----------------------------------------------------------------------------
// ---  Includes  --------------------------------------------------------------
// -----------------------------------------------------------------------------

// Include start [xmlhttpUtil.js]
/**
 * Sends the request to the remote system and evaluates the response which
 * must be valid HTML and contain a specified element identifiable by an XPath
 * expression
 *
 * Expected properties in the request are:
 * url
 *   the URL to which the request will be made
 * xpath
 *   the XPath expression that must evaluate to an element that will be
 *   extracted from the response received by the remote system
 * onComplete
 *   a function that will be called when the result has been received and the
 *   content should be displayed
 * onError
 *   a function that will be called if the request cannot be sent or the
 *   response received is invalid
 */
function MV_sendRequest(pRequest) {

  var processResponse = function(pResponse) {
    var responseHtmlStart = pResponse.responseText.indexOf("<html");
    var responseHtmlEnd = pResponse.responseText.indexOf("</html>");
    if(responseHtmlStart < 0 || responseHtmlEnd < 0) {
      pRequest.onError(pRequest, pResponse, "Invalid HTML document received");
    } else {
      var responseHtmlElement = document.createElement("html");
      responseHtmlElement.innerHTML = pResponse.responseText.substring(responseHtmlStart, responseHtmlEnd + "</html>".length);
      var responseXpathResult = document.evaluate(pRequest.xpath, responseHtmlElement, null, XPathResult.UNORDERED_NODE_SNAPSHOT_TYPE, null);
      if(responseXpathResult.snapshotLength <= 0) {
        pRequest.onError(pRequest, pResponse, "Invalid HTML document received");
      } else {
        pRequest.onComplete(responseXpathResult.snapshotItem(0), pRequest, pResponse);
      }
    }
  };

  try {
    GM_xmlhttpRequest({
      method: "GET",
      url: pRequest.url,
      onload: processResponse,
      onerror: function(pResponse) { pRequest.onError(pRequest, pResponse, null); }
    });
  } catch(e) {
    pRequest.onError(pRequest, null, e);
  }

}
// Include end [xmlhttpUtil.js]
// Include start [domUtil.js]
function MV_removeElementsByPath(pPath) {
  var pathResult = document.evaluate(pPath, document, null, XPathResult.UNORDERED_NODE_SNAPSHOT_TYPE, null);
  if(pathResult.snapshotLength > 0) {
    for(var i=0; i < pathResult.snapshotLength; i++) {
      var pathNode = pathResult.snapshotItem(i);
      pathNode.parentNode.removeChild(pathNode);
    }
  }
}

function MV_getElementByPath(pPath, pRoot) {
  var pathResult = document.evaluate(pPath, pRoot == null ? document : pRoot, null, XPathResult.UNORDERED_NODE_SNAPSHOT_TYPE, null);
  return pathResult.snapshotLength <= 0 ? null : pathResult.snapshotItem(0);
}

function MV_createButton(pAttributes, pClickListener) {
  pAttributes.type = "button";
  var resultElement = MV_createElement("input", pAttributes);
  if(pClickListener != null) {
    resultElement.addEventListener("click", pClickListener, true);
  }
  return resultElement;
}

function MV_createElement(pElementName, pAttributes, pInnerHtml) {
  var resultElement = document.createElement(pElementName);
  for(attributeName in pAttributes) {
    resultElement.setAttribute(attributeName, pAttributes[attributeName]);
  }
  if(pInnerHtml != null) {
    resultElement.innerHTML = pInnerHtml;
  }
  return resultElement;
}
// Include end [domUtil.js]