#!/bin/sh

COLOR=$1

FONT='-Schumacher-Clean-Medium-R-Normal--8-80-75-75-C-50-ISO646.1991-IRV'

if [ "$COLOR" = '' ]; then
  COLOR="white"
fi

(

  while [ 0 ]; do

    DAY=`/bin/date +%e`
    export DAY
    /usr/bin/cal | /usr/bin/perl -ne \
		  '$d=$ENV{"DAY"}; chomp; $_=" $_"; while (length($_) < 22) { $_ .= " "; } $_=~s/ ($d) /\($d\)/; print "$_\n";' \
		  > /var/tmp/rootcal.$USER.thismonth
    MON=`date +%m`
    MON=$(($MON+1))
    YR=`date +%Y`
    if [ $MON -eq 13 ]; then
      MON=1
        YR=$(($YR+1))
    fi
    /usr/bin/cal $MON $YR | /usr/bin/perl -ne 'chomp; $x=$_; while (length($_) < 21) { $_ .= " "; } print "$_\n";' > /var/tmp/rootcal.$USER.nextmonth

    /usr/bin/paste --delimiters=" " /var/tmp/rootcal.$USER.thismonth /var/tmp/rootcal.$USER.nextmonth

    sleep 360

  done
) | /usr/local/bin/xroottext -geom 45x9-60-24 -fn $FONT -fg $COLOR > /dev/null 2>&1