added more nice date code

1 files changed, 13 insertions, 3 deletions

diff --git a/tw_hooks/on-add_schedule_tg.pl b/tw_hooks/on-add_schedule_tg.pl
index a0690f5..085c8f9 100644
--- a/tw_hooks/on-add_schedule_tg.pl
+++ b/tw_hooks/on-add_schedule_tg.pl
@@ -9,6 +9,9 @@ use DateTime::Format::ISO8601;
 
 # a test hook in Perl for taskwarrior
 
+my @short_months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
+my @days_of_week = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
+
 # this must be JSON - this gets passed in my taskwarrior
 my $added_task = <STDIN>;
 
@@ -24,9 +27,16 @@ if ($hashref->{scheduled}) {
     my $scheduled_dt = parse_scheduled $hashref->{scheduled};
     print "Scheduled Date:\n";
     print "---------------\n";
-    print "Year is: ".$scheduled_dt->year . "\n";
-    print "Month is: ".$scheduled_dt->month . "\n";
-    print "Day is: ".$scheduled_dt->day . "\n";
+    print "Year is: ".$scheduled_dt->year() . "\n";
+    print "Month is: ".$scheduled_dt->month() . "\n";
+    print "Month again is: ".$short_months[$scheduled_dt->month()-1] . "\n";
+    print "Day is: ".$scheduled_dt->day() . "\n";
+    # O
+    # # wday() is builtin?
+    # https://stackoverflow.com/questions/10919585/extract-day-of-week-using-perl-and-mysql-date-format
+    # https://metacpan.org/pod/Time::Piece
+    print "Day of week is: ".$days_of_week[$scheduled_dt->day_of_week() % 7] . "\n";
+    print "Quarter is: ".$scheduled_dt->quarter(). "\n";
     print "\n";
 }