home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / cgi-bin / Japan / KDD / moon-test < prev    next >
Text File  |  2017-09-21  |  996b  |  47 lines
  1. #!/usr/bin/perl
  2.  
  3. $|=1;
  4.  
  5. $year_day = (localtime)[7];  # days of year
  6. $first_day = 94;             # first day of sekki
  7. $moon_day = $year_day - $first_day + 1;  # day of sekki
  8. print $moon_day,"\n";
  9.  
  10. # $moon_day = 1;  # for DEBUG
  11.  
  12. # fixing 3 digit length
  13. if (length($moon_day) == 1) {
  14.     $lmoon_day = join('',"00",$moon_day);
  15. }
  16. else {
  17.     if (length($moon_day) == 2) {
  18.     $lmoon_day = join('',"0",$moon_day);
  19.     }
  20.     else {
  21.     if (length($moon_day) == 3) {
  22.         $lmoon_day = $moon_day;
  23.     }
  24.     }
  25. }
  26.  
  27. # out of date
  28. if (($moon_day < 1) || ($moon_day > 31)) {
  29.     $lmoon_day = "000";
  30. }
  31.  
  32. print $lmoon_day,"\n";  # for DEBUG
  33. $moon_gif = join('',"moon",$lmoon_day,".GIF");
  34. print $moon_gif,"\n";
  35.  
  36. #print "HTTP/1.0 200 Okey\n";
  37. #print "Content-type: multipart/x-mixed-replace;boundary=sometext\n";
  38. #print "\n";
  39. #print "--sometext\n";
  40. #print "Content-type: image/gif\n";
  41. #print "\n";
  42. #open (S, "/usr/local/etc/httpd/htdocs/KDD/EDO/moon/$moon_gif");
  43. #print (<S>);
  44. #close S;
  45. #print "\n";
  46. #print "--sometext--\n";
  47.