Club Drupal

          // Save the original base URL. If it contains a port, we need to

          // retain it below.

          if (!empty($options['base_url'])) {

            // The colon in the URL scheme messes up the port checking below.

            $normalized_base_url = str_replace(array('https://', 'http://'), '', $options['base_url']);

          }

          // In case either the original base URL or the HTTP host contains a

          // port, retain it.

          $http_host = $_SERVER['HTTP_HOST'];

          if (isset($normalized_base_url) && strpos($normalized_base_url, ':') !== FALSE) {

            list($host, $port) = explode(':', $normalized_base_url);

            $options['base_url'] .= ':' . $port;

          }

          elseif (strpos($http_host, ':') !== FALSE) {

            list($host, $port) = explode(':', $http_host);

            $options['base_url'] .= ':' . $port;

          }

  // Some strings have tokens in them. For tokens in the first part of href or

  // src HTML attributes, filter_xss() removes part of the token, the part

  // before the first colon.  filter_xss() assumes it could be an attempt to

  // inject javascript. When filter_xss() removes part of tokens, it causes the

  // string to not be translatable when it should be translatable. See

  // LocaleStringIsSafeTest::testLocaleStringIsSafe().

  //

  // We can recognize tokens since they are wrapped with brackets and are only

  // composed of alphanumeric characters, colon, underscore, and dashes. We can

  // be sure these strings are safe to strip out before the string is checked in

  // filter_xss() because no dangerous javascript will match that pattern.

  //

  // @todo Do not strip out the token. Fix filter_xss() to not incorrectly

  //   alter the string. https://www.drupal.org/node/2372127

  $string = preg_replace('/\[[a-z0-9_-]+(:[a-z0-9_-]+)+\]/i', '', $string);

    // Refresh the time limit every 10 parsed rows to ensure there is always

    // enough time to import the data for large PO files.

    if (!($lineno % 10)) {

      drupal_set_time_limit(30);

    }