#!/usr/bin/perl
use strict;
use warnings FATAL => qw( all );

use Date::Calc qw(:all);
use File::Basename;

use lib '../files/lib';
use Date::Verify qw(four_digit_year month_name month_number day_number);
use Date::Birth::Stone;
use Date::Birth::Flower;
use Date::Birth::DayStone;
use Zodiac::Stone;

my ($name, $birth_month, $birth_day, $birth_year) = @ARGV;
chomp(@ARGV);

if (!@ARGV || lc $name eq 'help') {
  my $file = basename($0);
  print "Please enter a single name (or quote the full name) and birthday: $file name month day year\n";
}
else {
  $birth_year = four_digit_year($birth_year);
  $birth_month = month_name($birth_month);
  $birth_day = day_number($birth_year, $birth_month, $birth_day);
   
  my $birthday    = "$birth_month $birth_day, $birth_year";
  my $sign_name   = sign($birth_month, $birth_day);
     $birthday   .= " ($sign_name)" if $sign_name;
  my $month_stone = birth_stone($birth_month);
  my $month_flower_US = birth_flower($birth_month, 'US');
  my $month_flower_UK = birth_flower($birth_month, 'UK');
  my $day_stone   = day_stone($birth_year, $birth_month, $birth_day);
  my $sign_stone  = zodiac_stone($sign_name);

  print "Birthday: $birthday\n";
  print "Birth stone: $month_stone\n";
  print "Birth flower (US): $month_flower_US\n";
  print "Birth flower (UK): $month_flower_UK\n";
  print "Birthday stone: $day_stone\n";
  print "Sign stone: $sign_stone\n" if $sign_stone;
}