#!/bin/sh

id=$1
year=$2
per=$3

case $year in
  1995) ndfeb=08;twoorthree=2;;
  1996) ndfeb=09;twoorthree=3;;
  1997) ndfeb=08;twoorthree=2;;
  1998) ndfeb=08;twoorthree=2;;
  1999) ndfeb=08;twoorthree=2;;
  2000) ndfeb=09;twoorthree=3;;
  2001) ndfeb=08;twoorthree=2;;
  2002) ndfeb=08;twoorthree=2;;
  2003) ndfeb=08;twoorthree=2;;
  2004) ndfeb=09;twoorthree=3;;
  2005) ndfeb=08;twoorthree=2;;
  2006) ndfeb=08;twoorthree=2;;
  2007) ndfeb=08;twoorthree=2;;
  2008) ndfeb=09;twoorthree=3;;
  2009) ndfeb=08;twoorthree=2;;
  2010) ndfeb=08;twoorthree=2;;
  *)    ndfeb=08;twoorthree=2; echo "*** SELECTED YEAR OUT OF 1995-2010:";
                               echo "FEBRUARY MONTH LENGTH SET TO 28, PLS CHECK";;
esac

case ${per} in
  JAN1)   month=01;day=01;ndays=10;next=JAN2;prev=XXXX;;
  JAN2)   month=01;day=11;ndays=10;next=JAN3;prev=JAN1;;
  JAN3)   month=01;day=21;ndays=11;next=FEB1;prev=JAN2;;
  FEB0)   month=01;day=29;ndays=03;next=FEB1;prev=XXXX;;
  FEB1)   month=02;day=01;ndays=10;next=FEB2;prev=FEB0;;
  FEB2)   month=02;day=11;ndays=10;next=FEB3;prev=FEB1;;
  FEB3)   month=02;day=21;ndays=${ndfeb};next=MAR1;prev=FEB2;;
  MAR0)   month=02;day=27;ndays=${twoorthree};next=MAR1;prev=XXXX;;
  MAR1)   month=03;day=01;ndays=10;next=MAR2;prev=MAR0;;
  MAR2)   month=03;day=11;ndays=10;next=MAR3;prev=MAR1;;
  MAR3)   month=03;day=21;ndays=11;next=APR1;prev=MAR2;;
  APR0)   month=03;day=29;ndays=03;next=APR1;prev=XXXX;;
  APR1)   month=04;day=01;ndays=10;next=APR2;prev=APR0;;
  APR2)   month=04;day=11;ndays=10;next=APR3;prev=APR1;;
  APR3)   month=04;day=21;ndays=10;next=MAY1;prev=APR2;;
  MAY0)   month=04;day=28;ndays=03;next=MAY1;prev=XXXX;;
  MAY1)   month=05;day=01;ndays=10;next=MAY2;prev=MAY0;;
  MAY2)   month=05;day=11;ndays=10;next=MAY3;prev=MAY1;;
  MAY3)   month=05;day=21;ndays=11;next=JUN1;prev=MAY2;;
  JUN0)   month=05;day=29;ndays=03;next=JUN1;prev=XXXX;;
  JUN1)   month=06;day=01;ndays=10;next=JUN2;prev=JUN0;;
  JUN2)   month=06;day=11;ndays=10;next=JUN3;prev=JUN1;;
  JUN3)   month=06;day=21;ndays=10;next=JUL1;prev=JUN2;;
  JUL0)   month=06;day=28;ndays=03;next=JUL1;prev=XXXX;;
  JUL1)   month=07;day=01;ndays=10;next=JUL2;prev=JUL0;;
  JUL2)   month=07;day=11;ndays=10;next=JUL3;prev=JUL1;;
  JUL3)   month=07;day=21;ndays=11;next=AUG1;prev=JUL2;;
  AUG0)   month=07;day=29;ndays=03;next=AUG1;prev=XXXX;;
  AUG1)   month=08;day=01;ndays=10;next=AUG2;prev=AUG0;;
  AUG2)   month=08;day=11;ndays=10;next=AUG3;prev=AUG1;;
  AUG3)   month=08;day=21;ndays=11;next=SEP1;prev=AUG1;;
  SEP0)   month=08;day=29;ndays=03;next=SEP1;prev=XXXX;;
  SEP1)   month=09;day=01;ndays=10;next=SEP2;prev=SEP0;;
  SEP2)   month=09;day=11;ndays=10;next=SEP3;prev=SEP1;;
  SEP3)   month=09;day=21;ndays=10;next=OCT1;prev=SEP2;;
  OCT0)   month=09;day=28;ndays=03;next=OCT1;prev=XXXX;;
  OCT1)   month=10;day=01;ndays=10;next=OCT2;prev=OCT0;;
  OCT2)   month=10;day=11;ndays=10;next=OCT3;prev=OCT1;;
  OCT3)   month=10;day=21;ndays=11;next=NOV1;prev=OCT2;;
  NOV0)   month=10;day=29;ndays=03;next=NOV1;prev=XXXX;;
  NOV1)   month=11;day=01;ndays=10;next=NOV2;prev=NOV0;;
  NOV2)   month=11;day=11;ndays=10;next=NOV3;prev=NOV1;;
  NOV3)   month=11;day=21;ndays=10;next=DEC1;prev=NOV2;;
  DEC0)   month=11;day=28;ndays=03;next=DEC1;prev=XXXX;;
  DEC1)   month=12;day=01;ndays=10;next=DEC2;prev=DEC0;;
  DEC2)   month=12;day=11;ndays=10;next=DEC3;prev=DEC1;;
  DEC3)   month=12;day=21;ndays=11;next=YEND;prev=DEC2;;
esac
nhours=`echo ${ndays} | gawk '{print $1*24}'`

case $id in
  MONTH)  echo $month ;;
  DAY)    echo $day   ;;
  NHOURS) echo $nhours;;
  NEXT)   echo $next  ;;
  PREV)   echo $prev  ;;
esac
