// JAVA SCRIPTING for Web2000 Pages
// (c) 1999,2000 WIS Wiesinger/Schenk & Partner, München

//REFERENCE LINK FUNCTIONS PAGES
//

//self.CheckReferenz('',top.opener,top.document.referrer)

function CheckReferenz(win,refopener,refpage,refdomain) {

 if(win=='' || win==null || win==false) {win=self;}
 if(refopener==null || refopener==false) {refopener='';}
 if(refpage==null || refpage==false) {refpage='';}
 if(refdomain==null || refdomain==false) {refdomain='';}
 if(refopener=='') {refopener=win.opener;}
 if(refpage=='') {refpage=win.document.referrer;}
// win.onerror=null;
 if(refopener==null || refopener==false) {refopener='';}
 if(refpage==null || refpage==false) {refpage='';}
 if(refdomain==null || refdomain==false) {refdomain='';}

//if (refopener!=null) {
if (refopener!='') {
if (refopener.name!=null) {refopener=refopener.name}
  refopener=refopener.toString();
  refopener=refopener.toLowerCase();
  refpage=refpage.toString();
  refpage=refpage.toLowerCase();
  if (refopener.hostname!=null && refopener.hostname!=false) {refdomain=refopener.hostname;}
  if (refdomain==null && refdomain==false && refpage!='') {
    refdomain=refpage.substr(refpage.indexOf('/')+2);
    refdomain=refdomain.substr(0,refdomain.indexOf('/'));
  }
} else if (refpage!='') {
  refopener='';
  refpage=refpage.toString();
  refpage=refpage.toLowerCase();
  refdomain=refpage.substr(refpage.indexOf('/')+2);
  refdomain=refdomain.substr(0,refdomain.indexOf('/'));
} else {
  refopener='';
  refpage='';
  //refdomain='';
}
if (refdomain=='' && refpage !='') {
  refdomain=refpage.substr(refpage.indexOf('/')+2);
  refdomain=refdomain.substr(0,refdomain.indexOf('/'));
}
//alert(refopener+':'+refpage+':'+refdomain)
//alert(self.history[0])
//refdomain='ihk';

//if (refdomain=self.location.hostname) {refdomain=''}
if (refdomain!='') {
 //page=page.toLowerCase();
 pagedomain='wis';
 pageurl='';
 pageurl2='';
 pagewinname='WebRef';
 pagewinopt='';
 pagelang='';
   //language=top.GetCookie('Language');
   //if (language==null || language==false) {language='';}
   //if (language=='' &&  navigator.language=="de" || language=='' && navigator.language=="DE") { language='German'}
   language='';language=getlanguage();

   if (language=='German') {
     pagelang='_german/';
   } else {
     pagelang='_german/';
   }

 refdomain2=refdomain;
 refdomain2=refdomain2.toLowerCase();
 if (refdomain2.indexOf("www.")!=-1) {refdomain2=refdomain2.substring(4);}

 switch(refdomain2) {

//INTERNE VERWEISE - INTERNE SUCHE
 case 'statistikserver.de':
   pageurl='referenz/refpage.htm?wis';
   break;

 case 'atomz.com':
   pageurl='referenz/refpage.htm?wis';
   break;
 case 'altavista.de':
   pageurl='referenz/refpage.htm?wis';
   break;

//UNWILLKOMMEN

//FIRMENVERWEISE
 case 'mfm.de':
   pageurl='referenz/refpage.htm?mfm';
   break;
 case 'mfm':
   pageurl='referenz/refpage.htm?mfm';
   break;

 case 'bosusoftware.de':
   pageurl='referenz/refpage.htm?bosus';
   break;
 case 'bosusoftware':
   pageurl='referenz/refpage.htm?bosus';
   break;

 case 'superbase.com':
   pageurl='referenz/refpage.htm?superbas';
   break;
 case 'superbase.de':
   pageurl='referenz/refpage.htm?superbas';
   break;
 case 'superbase':
   pageurl='referenz/refpage.htm?superbas';
   break;

//STÄDTEVERWEISE
 case 'wirtschaft.muenchen.de':
   pageurl='referenz/refpage.htm?muenchen';
   break;
 case 'muenchen.de':
   pageurl='referenz/refpage.htm?muenchen';
   break;
 case 'muenchen':
   pageurl='referenz/refpage.htm?muenchen';
   break;

 case 'meinestadt.de':
   pageurl='referenz/refpage.htm?suche';
   break;

//MESSEN
 case 'consozial.de':
   pageurl='referenz/refpage.htm?consozial';
   break;
 case 'consozial':
   pageurl='referenz/refpage.htm?consozial';
   break;
 case 'altenpflege2001.de':
   pageurl='referenz/refpage.htm?bosus';
   break;
 case 'vincentz.net':
   pageurl='referenz/refpage.htm?bosus';
   break;

//SUCHMASCHIENEN
//-TELEFON UND ADRESSEN
 case 'gelbe-seiten.de':
   pageurl='referenz/refpage.htm?sucheadr';
   break;
 case 'teleauskunft.de':
   pageurl='referenz/refpage.htm?sucheadr';
   break;
 case 'die-oertlichen.vhm.de':
   pageurl='referenz/refpage.htm?sucheadr';
   break;
 case 'email-verzeichnis.de':
   pageurl='referenz/refpage.htm?sucheadr';
   break;
//-META SUCHE
 case 'rrzn.uni-hannover.de':
   pageurl='referenz/refpage.htm?suche';
   break;

//-SM WEB INTERNATIONAL DEUTSCHE SEITE
 case 'yahoo.de':
   pageurl='referenz/refpage.htm?suche';
   break;
 case 'lycos.de':
   pageurl='referenz/refpage.htm?suche';
   break;
 case 'excite.de':
   pageurl='referenz/refpage.htm?suche';
   break;
 case 'altavista.de':
   pageurl='referenz/refpage.htm?suche';
   break;
 case 'infoseek.de':
   pageurl='referenz/refpage.htm?suche';
   break;
 case 'info-seek.de':
   pageurl='referenz/refpage.htm?suche';
   break;
 case 'fireball.de':
   pageurl='referenz/refpage.htm?suche';
   break;

//-SM WEB DEUTSCH
 case 'witch.de':
   pageurl='referenz/refpage.htm?suche';
   break;
 case 'web.de':
   pageurl='referenz/refpage.htm?suche';
   break;
 case 'tel.de':
   pageurl='referenz/refpage.htm?suche';
   break;
 case 'suchen.com':
   pageurl='referenz/refpage.htm?suche';
   break;
 case 'suchen.de':
   pageurl='referenz/refpage.htm?suche';
   break;
 case 'dino-online.de':
   pageurl='referenz/refpage.htm?suche';
   break;
 case 'allesklar.de':
   pageurl='referenz/refpage.htm?suche';
   break;

//-SM LOKAL DEUTSCH
// case '':
//   pageurl='referenz/refpage.htm?suche';
//   break;

//-SM WEB INTERNATIONAL
 case 'ink.yahoo.com':
   pageurl='referenz/refpage.htm?search';
   break;
 case 'lycos.com':
   pageurl='referenz/refpage.htm?search';
   break;
 case 'lycos.co.uk':
   pageurl='referenz/refpage.htm?search';
   break;
 case 'excite.com':
   pageurl='referenz/refpage.htm?search';
   break;
 case 'hotbot.com':
   pageurl='referenz/refpage.htm?search';
   break;
 case 'infoseek.com':
   pageurl='referenz/refpage.htm?search';
   break;
 case 'info-seek.com':
   pageurl='referenz/refpage.htm?search';
   break;
 case 'altavista.com':
   pageurl='referenz/refpage.htm?search';
   break;
 case 'altavista.digital.com':
   pageurl='referenz/refpage.htm?search';
   break;
 case 'metor.com':
   pageurl='referenz/refpage.htm?search';
   break;
 case 'mamma.com':
   pageurl='referenz/refpage.htm?search';
   break;
 case 'msn.co.uk':
   pageurl='referenz/refpage.htm?search';
   break;

//-SM LOKAL INTERNATIONAL

// SUCHE DOMAIN
 case 'domainforum.at':
   pageurl='referenz/refpage.htm?search';
   break;

//SONSTIGES
 default:
   pageurl='referenz/refpage.htm';
//   break;
 }
   pagewinname='WebRef';
   pagewinopt='scrollbars=yes,resizable=no,top=10,left=10,width=475,height=500';

 if (pageurl>'') {
   if (refdomain=self.location.hostname) {pageurl=''}
 }
 if (pageurl>'') {
   if (pageurl.lastIndexOf('index.htm')!=-1) {
     if (pageurl.indexOf('mailer.wis')!=0) {
       pageurl=pageurl+pageurl2;
     } else {
       pageurl=pageurl+"l"+pageurl2;
     }
   } else {
     pageurl=pageurl+pageurl2;
   }
   r='';
   if (win=='return') { r='return';win=''; }
   if (win=='' || win==null || win==false) {
     win=self.top.pagewin;
     if (win.closed) {win=self.top.pagewin.parent;}
   }
   if (win.closed) {win=self.parent;}
   var url=win.location;
   url=url.toString();
   if (url.lastIndexOf('/_')!=-1) {
      //ipos=url.lastIndexOf('/_')+1;
      //url=url.substr(0,ipos);
      ipos=url.lastIndexOf('/_')-3;
      url=url.substr(0,ipos)+pagedomain+'/';
     } else {
      url='../'+ pagedomain+'/';
     }

   //search='';
   //if (suburl!=null && suburl!=null) {   if (suburl>"") { search="?"+suburl;} }
   //win=window.open(url+pagelang+pageurl+search,pagewinname,pagewinopt);

   setvarref(top,refopener,refdomain,refpage);
   setvarref(this,refopener,refdomain,refpage);
//alert(url+pagelang+pageurl+'?#'+refdomain+','+refopener+','+refpage)
   if (pagewinname.closed) {
     win=window.open(url+pagelang+pageurl+'?#'+refdomain+','+refopener+','+refpage,pagewinname,pagewinopt);
   } else {
     win=window.open(url+pagelang+pageurl+'?#'+refdomain+','+refopener+','+refpage,pagewinname,pagewinopt);
   }
   i=setTimeout("setvarref(win,refopener,refdomain,refpage)",10000);

   if (r=='return') {return (win);}
   //return (true);
 }
 //Weiterleitung der Aufrufseite index.htm für wis.de auf deutsche Startseite
 if (refdomain>'') {
   url=self.location;
   url=url.toString();
   if (url.lastIndexOf('/index.htm')!=-1 || url.lastIndexOf('.htm')==-1) {
     if (refdomain.lastIndexOf('.de')!=-1) {
       if (url.lastIndexOf('wsx.de')!=-1) {
         //self.location="wsxstart.htm";
         //i=setTimeout("window.open('../wsx/_german/index.htm','Web')",1000);
       } else {
         //self.location="../wis/_german/index.htm";
         i=setTimeout("window.open('../wis/_german/index.htm','Web')",3000);
       }
     }
   }
 }
}
}

// INCLUDE FUNCTIONS SCRIPT MAIN0001.JS

function setvarref(win,pagerefopener,pagerefdomain,pagereflink) {
if (win==null || win=='') {win=this;}
  //with (win) {
  if (win.pagerefopener==null || win.pagerefopener==false) {win.pagerefopener='';}
  if (win.pagerefdomain==null || win.pagerefdomain==false) {win.pagerefdomain='';}
  if (win.pagereflink==null || win.pagereflink==false) {win.pagereflink='';}

  if (pagerefopener!='') {win.pagerefopener=pagerefopener;}
  if (pagerefdomain!='') {win.pagerefdomain=pagerefdomain;}
  if (pagereflink!='') {win.pagereflink=pagereflink;}
//  }
}

function getlanguage() {
   language=top.GetCookie('Language');
   if (language==null || language==false) {language='';}
   if (language=='' &&  navigator.language=="de" || language=='' && navigator.language=="DE") { language='German';}
  return (language);
}
function GetCookie(name,win)
{ if (win=='' || win==null || win==false) { win=window;}
  var arg = name + "=";
  var alen = arg.length;
  var clen = win.document.cookie.length;
  var i = 0;
  while (i < clen)
  { var j = i +alen;
    if (win.document.cookie.substring(i, j) == arg)
       return GetCookieVal (win,j);
    i = win.document.cookie.indexOf(" ", i) +1;
    if (i == 0) break;
  }
  return null;
}
function GetCookieVal(win,offset)
{ if (win=='' || win==null || win==false) { win=window;}
  var endstr = win.document.cookie.indexOf (";", offset);
  if (endstr == -1)
    endstr = win.document.cookie.length;
  return unescape(win.document.cookie.substring(offset, endstr));
}