/* **
function getCookie(c_name) {
   if (document.cookie.length > 0) {
      c_start=document.cookie.indexOf(c_name + "=");
      if (c_start != -1) {
         c_start = c_start + c_name.length + 1; 
         c_end = document.cookie.indexOf(";", c_start);
         if (c_end == -1)
            c_end = document.cookie.length;
         return unescape(document.cookie.substring(c_start, c_end));
      }
   }
   return "";
}

function setCookie(name, value, site, secure, days, path) {
   if(secure || (secure == null))
      secure = "; secure=true";
   else
      secure = "";
   if(path == null)
      path = "; path=/";
   else
      path = "; path=" + escape(path);
   var expires = "";
   if(days) {
      var date = new Date();
      //date.setTime(date.getTime()+(days*24*60*60*1000));
      date.setDate(date.getDate()+days);
      expires = "; expires="+date.toGMTString();
   }
   document.cookie = name + "=" + escape(value) + expires + "; path=/";
}

** */

var peerPubTxt = "";

function callFile(id, filename) {
   script = document.getElementById(id + '-script');
   if(!script) {
      // if(id == null)
      //   return;
      var head = document.getElementsByTagName('head')[0];
      var script = document.createElement('script');
      script.setAttribute('type', 'TEXT/JAVASCRIPT');
      script.setAttribute('id', id + '-script');
      script.setAttribute('charset', 'utf8');
      script.setAttribute('src', filename);
      head.appendChild(script);
   }
}

function addStyle(id, filename) {
   if(filename == null) {
      filname = id;
      id = null;
   }
   var head = document.getElementsByTagName('head')[0];
   var style = document.createElement('link');
   style.setAttribute('type', 'TEXT/CSS');
   if(id != null)
      style.setAttribute('id', id + '-style');
   style.setAttribute('rel', 'stylesheet');
   style.setAttribute('href', filename);
   head.appendChild(style);
}

function setPage(str) {
   // alert(str);
   peerPubTxt += str;
}

var r = '';
var t = '';
var d = '';
if(typeof(JSONRequest) == 'undefined')
   var j=0;
else
   var j=1;

if(document.referrer == '') {
   var u = '-';
} else {
   var u = encodeURIComponent(document.referrer);
}

if(u == 'x') {
   setPage('<style>body { background: #ffe8f0; margin:0px; padding:0px; color: #260c1a; font: normal normal 12px Arial, sans-serif; } ');
   setPage('a:link { color: #003673; text-decoration:none; } ');
   setPage('a:visited { color: #a6004d; text-decoration:none; } ');
   setPage('a:hover { color: #003673; text-decoration:underline; } ');
   setPage('a img { border-width:0px; } </style>');
   setPage('<div style="text-align: center;">');
   setPage('<br>För nätet samman<br><br>Ingen referrer<br>(Säker sajt?)<br><br>ingen peer<br>publishing</dev>');
} else {
   if((u != '-') && (location.hash != '')) {
      // p = location.hash.substr(1);
      var i;
      pl = location.hash.substr(1).split('&');
      p = '';
      for(i in pl) {
         if(i == 0) {
            p = pl[0];
         } else {
            pll = pl[i].split('=');
            if(pll[0] == 'r') {
               r = pll[1];
            } else if(pll[0] == 't') {
               t = pll[1];
            } else if(pll[0] == 'd') {
               d = pll[1];
            }
         }
      }
   } else {
      p = 'unknown';
   }
   // h = Math.floor(Math.random()*1000);
   callFile('getPage', 'http://www.subcult.org/res/peerpub.php/pg.js?p='+p +
      '&r='+r + '&u='+u + '&d='+d + '&j='+j);
}

var nn=0;
var nt=0;

function getPage() {
   // self.document.write("getPage() BEGIN<br>\n");
   if(peerPubTxt == '') {
      if(nt > 100) {
         nt = 0;
      } else {
         tt = setTimeout('getPage()', 50);
         nt++;
      }
   } else {
      m = self.document.getElementById('main');
      m.innerHTML = peerPubTxt;
      nn++;
      nt = 0;
   }
   //self.document.write(peerPubTxt);
   // self.document.write("getPage() END<br>\n");
}

function  newPage() {
   if((nt == 0) && (nn > 0)) {
      peerPubTxt = '';
      callFile('getPage' + nn,
         'http://www.subcult.org/res/peerpub.php/pg.js?p=null' +
         '&r='+r + '&u='+u + '&d='+d + '&j='+j);
      tt = setTimeout('getPage()', 50);
      nt = 1;
   }
}