blob: 5423180936432b085a7b0bfa99b2752f798bdbb9 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
#!/usr/bin/env perl
use strict;
use warnings;
use feature qw(say);
use JSON;
use DateTime;
use DateTime::Format::ISO8601;
# a test hook in Perl for taskwarrior
# ALGORITHM
# Parse the due attribute from TW
# Convert it into Remind format
# Log into remote server
# Check for presece or remind file
# If it is there, back it up
# Append the Remind formatted line to the original remind file
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>;
my $hashref = decode_json $added_task;
sub parse_scheduled
{
my $sched_date = shift;
return DateTime::Format::ISO8601->parse_datetime($sched_date);
}
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 "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";
}
# if ($hashref->{scheduled}) {
# my $sched_date = $hashref->{scheduled};
# my $year = substr $sched_date, 0, 4;
# my $month = substr $sched_date, 4, 2;
# my $day = substr $sched_date, 6, 2;
# my $dt = DateTime->new(
# year => $year,
# month => $month,
# day => $day,
# time_zone => 'Europe/London',
# );
# print "Year is: $dt->year" . "\n";
# print "Month is: $dt->month" . "\n";
# print "Day is: $dt->$day" . "\n";
# print "\n";
# }
my $original_description = ${$hashref}{description};
# my $original_description = $hashref->{description}; # alternative (and
# preferred)
my $tags = ${$hashref}{tags}; # alternative - not using -> in the ref
$hashref->{description} = "DfT Task: " . $original_description if scalar grep {$_ eq "dft" } @{$tags};
# same as
# $hashref->{description} = "DfT Task: " . $original_description if scalar grep {$_ eq "dft" } @$tags;
# You don't need the {} brackets! see perlreftut - The Rest section near the
# end.
my $output = encode_json $hashref;
print $output;
exit 0;
|
