home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2069 / kal2pcal next >
Encoding:
Text File  |  1990-12-28  |  881 b   |  46 lines
  1. #!/bin/sh
  2. #
  3. #    kal2pcal: Convert kal appointment file to pcal format.
  4. #          Weekly reminders are *not* included.
  5. #          Cat's .calendar file also, if it exists.
  6. #          Output to stdout.
  7. #
  8. #    George Ferguson, ferguson@cs.rochester.edu, 8 Jun 1990.
  9. #    New (one file) kal format, 7 Nov 1990.
  10. #
  11.  
  12. case $# in
  13.     0) apps=$HOME/.appoints ;;
  14.     1) apps=$1 ;;
  15.     *) echo 'usage: kal2pcal [appoints]' >&2
  16.        exit ;;
  17. esac
  18.  
  19. cal=${CALENDAR:-$HOME/.calendar}
  20. if test -f $cal
  21. then
  22.     cat $cal
  23. fi
  24.  
  25. awk '
  26.     BEGIN    { mnum["Jan"] = 1
  27.           mnum["Feb"] = 2
  28.           mnum["Mar"] = 3
  29.           mnum["Apr"] = 4
  30.           mnum["May"] = 5
  31.           mnum["Jun"] = 6
  32.           mnum["Jul"] = 7
  33.           mnum["Aug"] = 8
  34.           mnum["Sep"] = 9
  35.           mnum["Oct"] = 10
  36.           mnum["Nov"] = 11
  37.           mnum["Dec"] = 12
  38.         }
  39.      /^ ?[0-9]/    { 
  40.           printf "%02d/%02d/%s ",mnum[$2],$1,$3
  41.           for (i=4; i <= NF; i++)
  42.               printf "%s ", $i
  43.           printf "\n"
  44.         }
  45. ' $apps
  46.