//  celebrities.js  2006 0315 1745
// Source Program Copyright 2001 John G. Derrickson @freeVEDA.org ALL RIGHTS RESERVED
var monthNames="    Jan.Feb.Mar.Apr.May JuneJulyAug.Sep.Oct.Nov.Dec.";
function Phonetic(w){
  var WordAs=w+' ',WordIn='',WordTemp='',WordOut='';
  var cc=0,WhereIn=0,WhereAt=0;
  var Letters="`BFPVCGJKQSXZDTLMNR";
  var Numbers="`111122222222334556";
  while(WordAs.indexOf(' ',WhereAt+1)>0){
    WordIn=WordAs.substring(WhereAt,WordAs.indexOf(' ',WhereAt+1));
    WhereAt=WordAs.indexOf(' ',WhereAt+1);
    WordIn=WordIn.toUpperCase();
    WordTemp=WordIn.charAt(0);
    for(cc=1;cc<WordIn.length;cc++){
      if(WordIn.charAt(cc)!=WordIn.charAt(cc-1)) WordTemp+=WordIn.charAt(cc);
    }
    WordOut+='~';
    for(cc=0;cc<WordTemp.length;cc++){
      WhereIn=Letters.indexOf(WordTemp.charAt(cc));
      if(WhereIn>0) WordOut+=Numbers.charAt(WhereIn);
    }
  }
  return WordOut;
}
function InsertName(t,i,j,k){
  var m=0,n='',x=0,f=true;
  m=parseInt(0+t.substring(j+6,j+8),10);
  n=(t.charAt(j+8)=='0'?t.charAt(j+9):t.substring(j+8,j+10));
  n=monthNames.substring(4*m,4*(m+1))+' '+n+'  '+t.substring(i+1,j);
  for(x=0;x<oSearch.names.options.length;x++){
    if(oSearch.names.options[x].text==n) f=false;
  }
  if(f){
    oSearch.names.options[oSearch.names.options.length]=new Option();
    oSearch.names.options[oSearch.names.options.length-1].text=n;
//    oSearch.names.options[oSearch.names.options.length-1].value=t.substring(j+1,k);
    n=n.substring(n.indexOf(' ')+1);
    n=n.substring(n.indexOf(' ')+1);
    n=n.substring(n.indexOf(' ')+1);
    while(n.indexOf(' ')>0){
      p=n.indexOf(' ');
      n=n.substring(0,p)+n.substring(p+1);
    }
    oSearch.names.options[oSearch.names.options.length-1].value=n;
  }
}
function doSearchDate(){
  var d='',p=0,x=0,f=false;
  var t='',i=0,j=0,k=0;
  var s=oSearch.entry.value;
  oSearch.names.options[0].text='Please be patient while I search.';
  oSearch.names.length=1;
  if((oSearch.mon.selectedIndex>0)&&(oSearch.day.selectedIndex>0)){
    d='/'+oSearch.mon[oSearch.mon.selectedIndex].value+oSearch.day[oSearch.day.selectedIndex].value;
    k=0;
    while(sDN.indexOf(d,k+1)>-1){
      i=sDN.indexOf(d,k+1);
      i=sDN.lastIndexOf('`',i);
      i=sDN.lastIndexOf('`',i-1);
      j=sDN.indexOf('`',i+1);
      k=sDN.indexOf('`',j+1);
      InsertName(sDN,i,j,k);
    }
  }
  if((oSearch.mon.selectedIndex>0)&&(oSearch.day.selectedIndex==0)){
    for(x=1;x<32;x++){
      d='/'+oSearch.mon[oSearch.mon.selectedIndex].value+(x>9?''+x:'0'+x);
      k=0;
      while(sDN.indexOf(d,k+1)>-1){
        i=sDN.indexOf(d,k+1);
        i=sDN.lastIndexOf('`',i);
        i=sDN.lastIndexOf('`',i-1);
        j=sDN.indexOf('`',i+1);
        k=sDN.indexOf('`',j+1);
        InsertName(sDN,i,j,k);
      }
    }
  }
  doSearch();
}
function doSearchName(){
  var d='',p=0,x=0,f=false;
  var t='',i=0,j=0,k=0;
  var s=oSearch.entry.value;
  oSearch.names.options[0].text='Please be patient while I search.';
  oSearch.names.length=1;
  while(s.charAt(0)==' ') s=s.substring(1);
  while(s.charAt(s.length-1)==' ') s=s.substring(0,s.length-1);
  while(s.indexOf('  ')>0){
    i=s.indexOf('  ');
    s=s.substring(0,i)+s.substring(i+1);
  }
  oSearch.entry.value=s;
  s=s.toUpperCase();
  if(s.length==1) alert('Please enter two or more letters to search by name.');
  if(s.length>1){
    oSearch.names.options[0].text="Please be patient. I'm still searching.";
    t=sDN.toUpperCase();
    k=0;
    while(t.indexOf(s,k+1)>-1){
      i=t.indexOf(s,k+1);
      i=sDN.lastIndexOf('`',i);
      j=sDN.indexOf('`',i+1);
      k=sDN.indexOf('`',j+1);
      InsertName(sDN,i,j,k);
    }
    if(oSearch.phonetic.checked){
      oSearch.names.options[oSearch.names.options.length]=new Option();
      oSearch.names.options[oSearch.names.options.length-1].text=' ';
      oSearch.names.options[oSearch.names.options.length]=new Option();
      oSearch.names.options[oSearch.names.options.length-1].text='Possible Matches:';
      d=oSearch.entry.value;
      if(d.length>0){
        t=sDN;
        k=0;
        while((k<t.length)&&(t.indexOf('/',k+1)>-1)){
          j=t.indexOf('/',k+1)-5;
          i=t.lastIndexOf('`',j-1)+1;
          s=Phonetic(t.substring(i,j));
          k=j+s.length+7;
          t=t.substring(0,i)+s+'`'+t.substring(i);
        }
        d=Phonetic(d)+'~';
        if(d.length>2){
          while(d.indexOf('~',p+1)>0){
            s=d.substring(p,d.indexOf('~',p+1));
            p=d.indexOf('~',p+1);
            k=0;
            while(t.indexOf(s,k+1)>-1){
              i=t.indexOf(s,k+1);
              i=t.indexOf('`',i);
              j=t.indexOf('`',i+1);
              k=t.indexOf('`',j+1);
              InsertName(t,i,j,k);
            }
          }
        }
      }
    }
  }
  doSearch();
}
function doSearch(){
    if(oSearch.names.options.length>1) oSearch.names.options[0].text='Celebrity Matches:';
    else oSearch.names.options[0].text='No Celebrity Matches';
}
function doView(){
  if(oSearch.names.selectedIndex<1) alert('Please enter search data above, click SEARCH button, then select celebrity name below and click VIEW button.');
  else{
//    var s='./htm/'+oSearch.names.options[oSearch.names.selectedIndex].value+'.html';

//?    $urlName=preg_replace('/[^a-zA-Z]/','',$name);
    var n=oSearch.names.options[oSearch.names.selectedIndex].value;
    n=n.replace(/[^a-zA-Z]/g,"");

//    var s='../StarBios/'+oSearch.names.options[oSearch.names.selectedIndex].value+'.htm';
    var s='../Celebrities/'+n+'.htm';
//alert(s);
    if(navigator.userAgent.toLowerCase().indexOf("webtv")>0)
      location.href=s;
    else{
      var w=window.open(s,'starbio','status,menubar,scrollbars,resizable,location');
      w.focus();
    }
  }
}
var i=0,j=0,k=0,s="",t="";
var now=0,day=0,month=0,year=0;
var monthFullNames=new Array("January","February","March","April","May","June","July","August","September","October","November","December");
function ymd(){
  var m=month+1;
  var s=''+m;
  if(s.length==1) s='0'+s;
  var t=''+day;
  if(t.length==1) t='0'+t;
  return ''+year+s+t;
}
function fUnspace(word){
  var t=word;
  while(t.indexOf('@')>0) {
    t=t.substring(0,t.indexOf('@'))+'_'+t.substring(t.indexOf('@')+1,t.length);
  }
  while(t.indexOf('*')>0) {
    t=t.substring(0,t.indexOf('@'))+'_'+t.substring(t.indexOf('@')+1,t.length);
  }
  while(t.indexOf(' ')>0) {
    t=t.substring(0,t.indexOf(' '))+'_'+t.substring(t.indexOf(' ')+1,t.length);
  }
  return escape(t);
}
function natal(form){
  var s='',t='';
  var ymdNow=ymd();
  var natName=fUnspace(form.natname.value);
  if(natName.length==0) natName='.';
//  var natCity=fUnspace(form.birthcity.value);
  var natCity=form.birthcity.value;
  var natSex=(form.sex[1].checked?'m':'f');
  var c=form.cen.options[form.cen.selectedIndex].text;
  var y=form.year.options[form.year.selectedIndex].text;
  month=form.mon.selectedIndex;
  year=c+y;
  i=form.day.selectedIndex+1;
  day=i;
  var refMonth=month+1;
  var genRef=''+refMonth;
  if(genRef.length==1) genRef='0'+genRef;
  var aTime=parseFloat(form.birthhour[form.birthhour.selectedIndex].text);
  aTime=(aTime==12?0:aTime);
  aTime=parseFloat(form.birthmin[form.birthmin.selectedIndex].text)+(60*aTime)+(12*form.birthampm.selectedIndex);
  s=form.birthhour[form.birthhour.selectedIndex].text;
  if(s.length==1) s='0'+s;
  t=form.birthmin[form.birthmin.selectedIndex].text;
  if(t.length==1) t='0'+t;
  var bioTime=s+t;
  bioTime+=(form.birthampm.selectedIndex==0?'AM':'PM');
  s=form.birthzone[form.birthzone.selectedIndex].text;
  if(s.charAt(0)!='*'){
    i=s.indexOf(' ');
    j=s.indexOf(' ',i+1);
//    XbioTime+=s.substring(i+1,j);
  }

//  s=(s.charAt(0)=='*'?'+00:00':s.substring(0,6));
//  aTime+=((60*parseFloat(s.substring(0,3)))+parseFloat(s.substring(4,6)));
//  s=(aTime<0?'-':'+');
//  aTime=Math.abs(aTime)+10000;
//  t=''+aTime;
//  s+=t.substring(1,5);

//  genRef='http://www.adze.com/horoscope/a/'+year+genRef+'.html?starcalc*'+ymd()+s+bioTime+'@P'+natName+'@'+natSex+natCity+'*@';

//  fwrite($hStarBiosTxt,"$category|$name|$lat,$long,$zone,$datetime,$citystate\n");
//  header('Location: http://www.adze.com/StarBios/Report.php?parameters='.urlencode("$name|$parm"));
//JamesBaldwin|Baldwin`James|40N48,73W57,5W,19240802,1200PM,Harlem, New York||||koch

//  t=form.birthhour[form.birthhour.selectedIndex].text+form.birthmin[form.birthmin.selectedIndex].text;
//  z=form.birthzone[form.birthzone.selectedIndex].text;

//  var z='0W';
//  s=form.birthzone[form.birthzone.selectedIndex].text;
//alert(s);
//  if(s.charAt(0)!='*'){
//    i=s.indexOf(' ');
//    j=s.indexOf(' ',i+1);
//    z=s.substring(i+1,j);
//  }

//  genRef='http://www.adze.com/StarBios/Report.php?'+natName+'|0N0,0W0,'+z+','+ymd()+','+bioTime+','+natCity;

  genRef='http://www.adze.com/StarBios/Report.php?parameters='+natName+'|0N0,0W0,0W,'+ymd()+','+bioTime+','+natCity+'||||koch';

//alert(genRef);

  location.href=genRef;
//  return 0;
}
function suggest(form){
  form.natname.value=oStarbio.natname.value;
  form.birthcity.value=oStarbio.birthcity.value;
  form.sex.value=(oStarbio.sex[1].checked?'m':'f');
  form.cen.value=oStarbio.cen.options[oStarbio.cen.selectedIndex].text;
  form.year.value=oStarbio.year.options[oStarbio.year.selectedIndex].text;
  form.mon.value=oStarbio.mon.selectedIndex+1;
  form.day.value=oStarbio.day.selectedIndex+1;
  form.birthhour.value=oStarbio.birthhour[oStarbio.birthhour.selectedIndex].text;
  form.birthmin.value=oStarbio.birthmin[oStarbio.birthmin.selectedIndex].text;
  form.birthampm.value=(oStarbio.birthampm.selectedIndex==0?'am':'pm');
  if(oStarbio.birthzone.selectedIndex>0) form.birthzone.value=oStarbio.birthzone[oStarbio.birthzone.selectedIndex].text;
  if(navigator.userAgent.toLowerCase().indexOf("webtv")<1)
    var w=window.open('','suggest','width=380,height=420,left=0,top=0,screenX=0,screenY=0,status,menubar,scrollbars,resizable,location');
  form.submit();
}