duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Refactored finish_loading

master
W25 2014-12-09 08:10:44 +00:00
parent ec005f9229
commit c47fcd5319
1 changed files with 27 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
share/goodie/name_days/preprocess.pl
View File

@ -50,8 +50,33 @@ sub load_days_file {
}
}
sub finish_loading {
sub prepare_dates {
my @month_names = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
my ($dates_by_country, $dates_by_country_and_month) = @_;
# Prepare the plain-text answer
my $res = '';
foreach (sort keys %{$dates_by_country}) {
$res .= $_ . ': ' . $dates_by_country->{$_} . "; ";
}
$res =~ s/; $/\|/;
# Prepare the HTML answer
foreach (sort keys %{$dates_by_country_and_month}) {
$res .= '<tr><td class="name-days-country">' . $_ . '</td><td>';
my $i = 0;
for (@{$dates_by_country_and_month->{$_}}) {
$res .= '<div class="name-days-tile"><div class="name-days-tile-body">' .
'<h4>' . $_ . '</h4><p>' . $month_names[$i] . '</p>' .
'</div></div>' if $_;
$i++;
}
$res .= '</td></tr>';
}
return $res;
}
sub finish_loading {
# Convert the dates to string
for (keys %dates) {
# Group the dates by country
@ -72,27 +97,7 @@ sub finish_loading {
$dates_by_country_and_month{$1}[$d->month - 1] .= $d->day;
}
# Prepare the plain-text answer
my $res = '';
foreach (sort keys %dates_by_country) {
$res .= $_ . ': ' . $dates_by_country{$_} . "; ";
}
$res =~ s/; $/\|/;
# Prepare the HTML answer
foreach (sort keys %dates_by_country_and_month) {
$res .= '<tr><td class="name-days-country">' . $_ . '</td><td>';
my $i = 0;
for (@{$dates_by_country_and_month{$_}}) {
$res .= '<div class="name-days-tile"><div class="name-days-tile-body">' .
'<h4>' . $_ . '</h4><p>' . $month_names[$i] . '</p>' .
'</div></div>' if $_;
$i++;
}
$res .= '</td></tr>';
}
$dates{$_} = $res;
$dates{$_} = prepare_dates(\%dates_by_country, \%dates_by_country_and_month);
}
}