purl_subdomain.inc in Persistent URL 7

File

includes/purl_subdomain.inc

<?php

/**
 * Subdomain prefixing.
 */
class purl_subdomain implements purl_processor {
  public function admin_form(&$form, $id) {
    global $base_url;
    $form['purl_location'] = array(
      '#type' => 'fieldset',
    );
    $form['purl_location']['purl_base_domain'] = array(
      '#type' => 'textfield',
      '#title' => t('Default domain'),
      '#description' => t('Enter the default domain if you are using domain modifiers.'),
      '#required' => FALSE,
      '#default_value' => variable_get('purl_base_domain', $base_url),
      '#element_validate' => array(
        'purl_validate_fqdn',
      ),
    );
  }
  function detect($q) {
    $parts = explode('.', str_replace('http://', '', $_SERVER['HTTP_HOST']));
    return count($parts) > 1 ? array_shift($parts) : NULL;
  }
  public function method() {
    return 'subdomain';
  }
  public function description() {
    return t('Enter a sub-domain for this context, such as "mygroup".  Do not include http://');
  }
  public function parse($valid_values, $q) {
    $parsed = array();
    if (isset($valid_values[$q])) {
      $parsed[$q] = $valid_values[$q];
    }
    return purl_path_elements($this, $parsed);
  }
  public function adjust(&$value, $item, &$q) {
    return;
  }
  public function rewrite(&$path, &$options, $element) {
    $options['absolute'] = TRUE;
    if ($base_url = $this
      ->base_url()) {
      if (!_purl_skip($element, $options)) {
        $base = parse_url($base_url);
        $port = !empty($base['port']) ? ':' . $base['port'] : "";
        $base_path = !empty($base['path']) ? $base['path'] : "";
        $options['base_url'] = "{$base['scheme']}://{$element->value}.{$base['host']}{$port}{$base_path}";
      }
      else {
        $options['base_url'] = $base_url;
      }
    }
  }
  protected function base_url() {
    global $base_url;
    $base = variable_get('purl_base_domain', $base_url);
    return !empty($base) ? $base : $base_url;
  }

}

Classes

Name	Description
purl_subdomain	Subdomain prefixing.