86 lines
2.6 KiB
Perl
86 lines
2.6 KiB
Perl
package DDG::Goodie::CalendarConversion;
|
|
# ABSTRACT: convert between various calendars.
|
|
|
|
use strict;
|
|
use DDG::Goodie;
|
|
with 'DDG::GoodieRole::Dates';
|
|
|
|
use Date::Hijri;
|
|
use Date::Jalali2;
|
|
|
|
use YAML::XS 'LoadFile';
|
|
|
|
zci answer_type => "calendar_conversion";
|
|
zci is_cached => 0;
|
|
|
|
triggers any => 'hijri', 'gregorian', 'jalali';
|
|
|
|
my $calendars = LoadFile(share('calendars.yml'));
|
|
|
|
my $datestring_regex = datestring_regex();
|
|
|
|
sub format_date {
|
|
my ($d, $m, $y, $cal) = @_;
|
|
|
|
return join(' ', $d, $calendars->{$cal}->[$m - 1], $y, '(' . ucfirst $cal . ')');
|
|
}
|
|
|
|
handle query_lc => sub {
|
|
return unless my ($datestring, $input_calendar, $output_calendar) = $_ =~ /^
|
|
($datestring_regex)\s+
|
|
(?:
|
|
(?:(?:in|on(?:\s+the))?)\s*
|
|
((?:gregorian|hijri|jalali)?)\s+
|
|
(?:calendar|date|time)?\s*
|
|
(?:is\s+)?
|
|
)?
|
|
(?:
|
|
(?:(?:in|on|to)(?:\s+the|in)?)\s+
|
|
)?
|
|
(gregorian|hijri|jalali)\s*
|
|
(?:calendar|date|time|years)?
|
|
$/x;
|
|
my $in_date = parse_datestring_to_date($datestring);
|
|
return unless $in_date;
|
|
my ($d, $m, $y) = ($in_date->day, $in_date->month, $in_date->year);
|
|
|
|
$input_calendar ||= 'gregorian'; # gregorian is the default
|
|
return if ($input_calendar eq $output_calendar || !$output_calendar);
|
|
|
|
my ($od, $om, $oy);
|
|
|
|
if ($input_calendar eq "hijri") {
|
|
($od, $om, $oy) = h2g($d, $m, $y); # To Gregorian;
|
|
($od, $om, $oy) = g2j($od, $om, $oy) if ($output_calendar eq "jalali");
|
|
} elsif ($input_calendar eq "gregorian") {
|
|
($od, $om, $oy) = g2h($d, $m, $y) if ($output_calendar eq "hijri");
|
|
($od, $om, $oy) = g2j($d, $m, $y) if ($output_calendar eq "jalali");
|
|
} elsif ($input_calendar eq "jalali") {
|
|
my $t = new Date::Jalali2($y, $m, $d, 1);
|
|
($od, $om, $oy) = ($t->jal_day, $t->jal_month, $t->jal_year);
|
|
($od, $om, $oy) = g2h($od, $om, $oy) if ($output_calendar eq "hijri");
|
|
}
|
|
my $input_date = format_date($d, $m, $y, $input_calendar);
|
|
my $converted_date = format_date($od, $om, $oy, $output_calendar);
|
|
|
|
return $input_date . ' is ' . $converted_date,
|
|
structured_answer => {
|
|
data => {
|
|
title => $converted_date,
|
|
subtitle => 'Calendar conversion: ' . $input_date
|
|
},
|
|
templates => {
|
|
group => 'text'
|
|
}
|
|
};
|
|
};
|
|
|
|
sub g2j {
|
|
my ($id, $im, $iy) = @_;
|
|
|
|
my $t = new Date::Jalali2($iy, $im, $id, 0);
|
|
return ($t->jal_day, $t->jal_month, $t->jal_year);
|
|
}
|
|
|
|
1;
|