WAP to Display Calender Of Month

case $# in
0) set `date`;m=$2;y=$6 ;;
1) m=$1;set `date`;y=$6; ;;
*) m=$1;y=$2 ;;
esac

case $m in 
jan* | Jan*)    m=1 ;;
feb* | Feb*)    m=2 ;;
mar* | Mar*)    m=3 ;;
apr* | Apr*)    m=4 ;;
may* | May*)    m=5 ;;
jun* | Jun*)    m=6 ;;
jul* | Jul*)    m=7 ;;
aug* | Aug*)    m=8 ;;
sep* | Sep*)    m=9 ;;
oct* | Oct*)    m=10 ;;
nov* | Nov*)    m=11 ;;
dec* | Dec*)    m=12 ;;
[0-9] | 10 | 11 | 12) ;;
*)    y=$m;m="" ;;
esac

cal $m $y


OUTPUT:-

#!/bin/bash
#root@slack-linunx:~/scripts# ./modCal.sh Jan
#    January 2009
#Su Mo Tu We Th Fr Sa
#             1  2  3
# 4  5  6  7  8  9 10
#11 12 13 14 15 16 17
#18 19 20 21 22 23 24
#25 26 27 28 29 30 31
#root@slack-linunx:~/scripts#