home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-convex / clones / cal next >
Encoding:
Text File  |  1990-06-04  |  1.0 KB  |  60 lines
  1. #!/usr/bin/perl
  2.  
  3. $[ = 1;
  4.  
  5. $CALPATH = '/usr/local/bin/concal';
  6.  
  7. ($program = $0) =~ s%.*/%%;
  8.  
  9. ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  10.  
  11. @months = ( "january ", "february", "march", "april", "may", "june", 
  12.         "july", "august", "september", "october", "november",
  13.         "december" );
  14.  
  15. $mon++;
  16. $year += 1900;
  17.  
  18. if ($#ARGV == 0) {
  19.     do cal($mon, $year);
  20. } 
  21.  
  22. if ($#ARGV > 2) {
  23.     print stderr "usage: $program [month] year\n";
  24.     exit 1;
  25. } 
  26.  
  27. if ($#ARGV == 2) {
  28.     $year = $ARGV[2];
  29. } 
  30.  
  31. if ($ARGV[1] =~ /^\d+$/) {
  32.     if ($ARGV[1] > 12) {
  33.     die "month too big" if $#ARGV == 2;
  34.     $year = $ARGV[1];
  35.     $year += 1900 if $year < 100;
  36.     do cal($year);
  37.     } else {
  38.     do cal($ARGV[1], $year);
  39.     } 
  40. } else {
  41.     do cal(&getmonth($ARGV[1]), $year);
  42. } 
  43.  
  44.  
  45. sub cal { 
  46.     die "year too big"  if $_[2] > 9999;
  47.     exec $CALPATH, @_;
  48.     die "can't exec $CALPATH: $!";
  49. }
  50.  
  51. sub getmonth {
  52.     local($mon) = @_;
  53.  
  54.     for ($i = 1; $i <= 12; $i++) {
  55.     return $i if $months[$i] =~ /^$mon/oi;
  56.     } 
  57.  
  58.     die "$mon is not a month name";
  59. } 
  60.