/* DogCalendar1.2 - a JavaScript calendar greeting generator.
   (C)opyright J. A. H. Futterman 2003.
   Routines marked //CC are adapted from "Calendrical Calculations" 
   by Reingold and Dershowitz, Cambridge U Press, 2001,2002. */

var theYear;
var DayName = new Array("Sunday","Monday","Tuesday","Wednesday","Thursday",
                        "Friday","Saturday");
var MonthName = new Array("January","February","March","April","May",
                         "June","July","August","September",
                         "October","November","December");
var HebMonth = new Array("Nisan","Iyyar","Sivan","Tammuz","Av",
                         "Elul","Tishri","Marheshvan","Kislev",
                         "Tevet","Shevat","Adar","Adar II");
var HebHol=new Array();
var epoch = new Array(); epoch["Gregorian"]=1; epoch["Hebrew"]=-1373427;

function altDate(yyyy,mm,dd){ this.year=yyyy; this.month=mm; this.day=dd; }
altDate.prototype.getYear=getaYear;
altDate.prototype.getMonth=getaMonth;
altDate.prototype.getDate=getaDay;
function getaYear() { return this.year; }
function getaMonth() { return this.month; }
function getaDay() { return this.day; }

function fixFmGregorian(yyyy,mm,dd){//CC
	var y1=yyyy-1;
	var fdate=epoch["Gregorian"] - 1
            + 365*y1
            + Math.floor(y1/4)
            - Math.floor(y1/100)
            + Math.floor(y1/400)
            + Math.floor((367*(mm+1)-362)/12)
            + dd;
	if(mm>1) fdate -= leapYear(yyyy) ? 1 : 2 ;
	return fdate;
}

function GregorianYearFmFix(fdate){//CC
	var d0=fdate-epoch["Gregorian"];
	var n400=Math.floor(d0/146097);
	var d1 = mod(d0,146097);
	var n100=Math.floor(d1/36524);
	var d2=mod(d1,36524);
	var n4=Math.floor(d2/1461);
	var d3=mod(d2/1461);
	var n1=Math.floor(d3/365);
	var yyyy=400*n400+100*n100+4*n4+n1;
	return (n100==4 || n4 == 4) ? yyyy : yyyy+1 ;
}

function GregorianFmFix(fdate){//CC
	var yyyy=GregorianYearFmFix(fdate); var corr=0;
	var pdays=fdate-fixFmGregorian(yyyy,0,1);
	if(fdate>fixFmGregorian(yyyy,2,1)) corr+=(leapYear(yyyy))? 1 : 2 ;
	var mm = Math.floor((12*(pdays+corr)+373)/367)-1;
	var dd = fdate-fixFmGregorian(yyyy,mm,1)+1;
	return new Date(yyyy,mm,dd);
}

function HebrewLeapYear(hyear) {//CC
   return (mod(7*hyear+1,19)<7) ? 1 : 0 ; }

function molad(hyear,hmonth){//CC
	var y=(hmonth<6) ? hyear+1: hyear;
	var months_elapsed = hmonth-6+Math.floor((235*y-234)/19);
	return epoch["Hebrew"]-876/25920+months_elapsed*(29.5+793/25920);
}

function HebCalElapsDays(hyear){//CC
	var months_elapsed = Math.floor((235*hyear-234)/19);
	var parts_elapsed = 12084+13753*months_elapsed;
	var day = 29*months_elapsed+Math.floor(parts_elapsed/25920);
	return ((mod(3*(day+1),7)<3) ? day+1 : day );
}

function HebNYDelay(hyear){//CC
	var ny0 = HebCalElapsDays(hyear-1);
	var ny1 = HebCalElapsDays(hyear);
	var ny2 = HebCalElapsDays(hyear+1);
	var days = 0;
	if((ny2-ny1)==356) days=2;
	if((ny1-ny0)==382) days=1;
	return days;
}

function HebNewYear(hyear){//CC
  return epoch["Hebrew"]+HebCalElapsDays(hyear)+HebNYDelay(hyear);
  }

function lastDayHebMonth(hyear,hmonth){//CC
	if(hmonth==1 || hmonth==3 || hmonth==5 || hmonth==9 || hmonth==12)
               return 29;
	if(hmonth==11 && !HebrewLeapYear(hyear))  return 29;
	var y=daysInHebYear(hyear);
	if(hmonth==7 && (y!=355 && y!=385)) return 29; // not long marheshvan
	if(hmonth==8 && (y==353 || y==383)) return 29; // short kislev
	return 30;	
}

function daysInHebYear(hyear){//CC
   return HebNewYear(hyear+1)-HebNewYear(hyear); }

function fixFmHebrew(hyear,hm,hd){//CC
	var ddd=HebNewYear(hyear)+hd-1;
	if(hm<6){
		var mlast=(HebrewLeapYear(hyear)) ? 13 : 12 ;
		for(m=6;m<mlast;m++) { ddd+=lastDayHebMonth(hyear,m); }
		for(m=0;m<hm;m++) { ddd+=lastDayHebMonth(hyear,m); }
	} else { for(m=6;m<hm;m++) { ddd+=lastDayHebMonth(hyear,m); } } 
	return ddd;
}

function HebrewFmFix(fdate){//CC
	var hyear, hmonth, hday=1, start, approx, mlast; 
	approx=Math.floor((fdate-epoch["Hebrew"])/(35975351/98496));
	for(y=approx; HebNewYear(y)<=fdate; y++){ hyear=y; }
	mlast=(HebrewLeapYear(hyear)) ? 13 : 12 ;
	start=(fdate<fixFmHebrew(hyear,0,1)) ? 6 : 0 ; hmonth=start-1;
	for(m=start; m<mlast ; m++){ 
		if(fdate<=fixFmHebrew(hyear,m,lastDayHebMonth(hyear,m)))
                      {hmonth=m; break;}
                                   }
	hday=fdate - fixFmHebrew(hyear,hmonth,1) + 1;
	return new altDate(hyear,hmonth,hday);
}

function leapYear(ayear) { // checks if year is a leap year
	return (((ayear % 4 == 0)
                  && (ayear % 100 != 0))
                 || (ayear % 400 == 0)) ? 1 : 0;
}

function mod(n,m)
 { if(m==0) return null;
   else return n-m*Math.floor(n/m); } // CC mod function

function Salutation(){ // Generates Hebrew salutation text.
	if (Salutation.arguments.length==0)
             aDate=new Date();
        else aDate=Salutation.arguments[0];
	var fdate = fixFmGregorian(aDate.getFullYear(),
                                   aDate.getMonth(),
                                   aDate.getDate());
	var newHebrew=HebrewFmFix(fdate);
	var hYear=newHebrew.getYear();
        var hMonth=newHebrew.getMonth();
        var hDay=newHebrew.getDate();
	var msg="Today is " + DayName[aDate.getDay()] + ", "
                + MonthName[aDate.getMonth()] + " "
                + aDate.getDate().toString() + ", "
                + aDate.getFullYear().toString() + " = " 
                + HebMonth[hMonth]
                + ((HebrewLeapYear(hYear) && hMonth==11) ? " I" : "")
                + " " +  hDay.toString() + ", "
                + hYear.toString();
	return msg;
}

/* Copyright (C) 1996 Frequency Graphics All Rights Reserved.  Feel free to
   reuse this code snippet provided this header remains in tact Andy Augustine
   3.17.96 [www.FreqGrafx.com/411/] send comments to <mohammed@freqgrafx.com>
*/


function statusMessageObject(p,d) {
  this.msg = MESSAGE
  this.out = " "
  this.pos = POSITION
  this.delay = DELAY
  this.i     = 0
  this.reset = clearMessage
  }

function clearMessage() { this.pos = POSITION }

var POSITION = 100
var DELAY    = 90
var MESSAGE=Salutation()
var scroll = new statusMessageObject()

/* Make an array and set to all empty entries */

function makearray(n) {
  this.length = n;
  for(var i = 1; i <= n; i++) this[i] = ""
  return this;
}

function scroller() {
  // add spaces to begining of message
  for (scroll.i = 0; scroll.i < scroll.pos; scroll.i++) { scroll.out += " " }

  /* if you are still have leading spaces, just add custom string to tail of
     message OR else if the string is running off the screen, only add the
     characters left*/

  if (scroll.pos >= 0) scroll.out += scroll.msg
  else         scroll.out = scroll.msg.substring(-scroll.pos,scroll.msg.length)

  window.status = scroll.out

  // set parameters for next run

  scroll.out = " "
  scroll.pos--

  // if you are at the end of the message, reset parameters to start again
  if (scroll.pos < -(scroll.msg.length)) { scroll.reset() }
  setTimeout ('scroller()',scroll.delay)
  }