From 533d91f366da5d2b5389c87c5e25d01a65bcdce6 Mon Sep 17 00:00:00 2001 From: Matthew Lemon Date: Wed, 14 Sep 2022 13:29:08 +0100 Subject: aligned up the code --- tw_hooks/on-add_scheduled_work_task.pl | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/tw_hooks/on-add_scheduled_work_task.pl b/tw_hooks/on-add_scheduled_work_task.pl index 44999b7..b3dbeec 100755 --- a/tw_hooks/on-add_scheduled_work_task.pl +++ b/tw_hooks/on-add_scheduled_work_task.pl @@ -79,15 +79,15 @@ my $tags = ${$decoded_task}{tags}; # alternative - not using -> in the ref my $scheduled_dt; if ( $decoded_task->{scheduled} and ( scalar grep { $_ eq "dft" } @{$tags} ) ) { - $scheduled_dt = parse_scheduled $decoded_task->{scheduled}; + $scheduled_dt = parse_scheduled $decoded_task->{scheduled}; # my @test_task = `task add Bobbins from Perl`; - my $port = 22; - my $date = $scheduled_dt->day(); - my $month = $short_months[ $scheduled_dt->month() - 1 ]; - my $year = $scheduled_dt->year(); - my $hr = $scheduled_dt->hour(); - my $min = $scheduled_dt->minute(); - my $time = substr $scheduled_dt->hms(), 0, + my $port = 22; + my $date = $scheduled_dt->day(); + my $month = $short_months[ $scheduled_dt->month() - 1 ]; + my $year = $scheduled_dt->year(); + my $hr = $scheduled_dt->hour(); + my $min = $scheduled_dt->minute(); + my $time = substr $scheduled_dt->hms(), 0, 5; # we do not want seconds in the time format # Convert it into Remind format with %" bits that mean you don't get the # shit in wyrd -- cgit v1.2.3