// Current Page Reference
// copyright Stephen Chapman, 1st Jan 2005
// you may copy this function but please keep the copyright notice with it
//
// additional info - C. Vonrhein 2008
//
function getURL(uri) {
  uri.dir = location.href.substring(0, location.href.lastIndexOf('\/'));

  uri.dom = uri.dir;
  if (uri.dom.substr(0,7) == 'http:\/\/') {
    uri.dom = uri.dom.substr(7);
    uri.http = 'http';
  }
  if (uri.dom.substr(0,8) == 'https:\/\/') {
    uri.dom = uri.dom.substr(8);
    uri.http = 'https';
  }

  uri.path = '';
  var pos = uri.dom.indexOf('\/');
  if (pos > -1) {
    uri.path = uri.dom.substr(pos+1);
    uri.dom = uri.dom.substr(0,pos);
  }

  uri.page = location.href.substring(uri.dir.length+1, location.href.length+1);
  pos = uri.page.indexOf('?');
  if (pos > -1) {
    uri.page = uri.page.substring(0, pos);
  }
  pos = uri.page.indexOf('#');
  if (pos > -1) {
    uri.page = uri.page.substring(0, pos);
  }
  uri.ext = '';
  pos = uri.page.indexOf('.');
  if (pos > -1) {
    uri.ext =uri.page.substring(pos+1);
    uri.page = uri.page.substr(0,pos);
  }

  uri.file = uri.page;
  if (uri.ext != '') uri.file += '.' + uri.ext;
  if (uri.file == '') uri.page = 'index';
  uri.args = location.search.substr(1).split("?");

  return uri;
}

var uri = new Object();
getURL(uri);

// ----------------------------------------------------------------------------

// get domain-part of email addresses dynamically:
//var info_DOMAIN                  = uri.dom;
// ... or fixed:
var info_DOMAIN                  = "GlobalPhasing.com";

// some email addresses
//var info_EMAIL                   = "postmaster"        +"@"+info_DOMAIN;
var info_EMAIL                   = "buster-develop"        +"@"+info_DOMAIN;
var info_EMAIL_SHARPDEVELOP      = "sharp-develop"     +"@"+info_DOMAIN;
var info_EMAIL_BUSTERDEVELOP     = "buster-develop"    +"@"+info_DOMAIN;
var info_EMAIL_DEVELOP           = "develop"           +"@"+info_DOMAIN;
var info_EMAIL_DISCUSS           = "discuss"           +"@"+info_DOMAIN;
var info_EMAIL_SHARPDISCUSS      = "sharp-"+info_EMAIL_DISCUSS;
var info_EMAIL_BUSTERDISCUSS     = "buster-"+info_EMAIL_DISCUSS;
var info_EMAIL_CONSORTIUMDISCUSS = "consortium-"+info_EMAIL_DISCUSS;
var info_EMAIL_WWWADMIN          = "webmaster"       +"@"+info_DOMAIN;

// default contact email
var info_EMAIL_DEFAULT           = info_EMAIL_BUSTERDEVELOP;

// name of person responsible for WWW server:
var info_NAME_WWWADMIN           = "C. Vonrhein";

// complete URL of server (e.g. https://www.globalphasing.com/),
// dynamically determined
var info_SERVER                  = uri.http + "://" + uri.dom + "/";
var info_SERVER_https            = "https://" + uri.dom + "/";
var info_SERVER_http             = "http://" + uri.dom + "/";

// ----------------------------------------------------------------------------

function toAscii(s) {
  var ret = "";
  for (var i = 0; i < s.length; i++) {
    ret += ("&#"+s.charCodeAt(i)+";");
  }
  return ret;
}

function writeEmail(s) {
  if (s.substr(0,14)=="CURRENTDEVELOP") {
    if(uri.path.substr(0,6)=="sharp"){
      document.write(info_EMAIL_SHARPDEVELOP);
    } else {
      document.write(info_EMAIL_BUSTERDEVELOP);
    }
  }
  else if (s.substr(0,14)=="CURRENTDISCUSS") {
    if(uri.path.substr(0,6)=="sharp"){
      document.write(info_EMAIL_SHARPDISCUSS);
    } else {
      document.write(info_EMAIL_BUSTERDISCUSS);
    }
  } else {
    eval("document.write(info_EMAIL_"+s+");");
  }
}
function writeMailto(s) {
  document.write('<a href="mailto:');
  writeEmail(s);
  document.write('">');
  writeEmail(s);
  document.write('</a>');
}
function writeWwwAdminAddress() {
  //  document.write('<address>Server admin: <a href="'+info_SERVER+'">'+info_NAME_WWWADMIN+'</a>, Contact: ');
  document.write('<address>Contact: ');
  if (uri.path.indexOf("buster")>=0) {
    document.write('<a href="mailto:'+info_EMAIL_BUSTERDEVELOP+'">&lt;'+info_EMAIL_BUSTERDEVELOP+'&gt;</a></address>');
  }
  else if (uri.path.indexOf("sharp")>=0) {
    document.write('<a href="mailto:'+info_EMAIL_SHARPDEVELOP+'">&lt;'+info_EMAIL_SHARPDEVELOP+'&gt;</a></address>');
  }
  else {
    document.write('<a href="mailto:'+info_EMAIL_DEFAULT+'">&lt;'+info_EMAIL_DEFAULT+'&gt;</a></address>');
  }
}
function writeTrailer() {
  document.write('<hr size=1 noshade>');
  document.write('<font size=-2>');
  writeWwwAdminAddress();
  document.write('</font>');

  //document.write(uri.dir+"<br>\n");
  //document.write(uri.dom+"<br>\n");
  //document.write(uri.path+"<br>\n");
  //document.write(uri.page+"<br>\n");
  //document.write(uri.ext+"<br>\n");
  //document.write(uri.file+"<br>\n");
}
function writeHrefHttps (s,t) {
  document.write('<a href="'+info_SERVER_https+s+'">'+t+'</a>');
}