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

UnixTime: try yet another style. 

HTML version unabashedly stolen from SubnetCalc.

Thanks to @mintsoft for the suggestion.
master
Matt Miller 2014-09-20 17:40:02 -04:00
parent ede57fceda
commit f0410ac6f4
2 changed files with 24 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lib/DDG/Goodie/UnixTime.pm
View File

@ -21,8 +21,8 @@ code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DD
category 'calculations';
topics 'sysadmin';
my $default_tz = 'UTC';
my $time_format = '%a %b %d %T %Y %Z';
my $default_tz = 'UTC';
my $time_format = '%a %b %d %T %Y %Z';
my $header_format = "Time (%s)";
handle matches => sub {
@ -30,23 +30,31 @@ handle matches => sub {
my @matches = grep { defined $_ } @_;
my $time_input = $matches[0] // time; # If there was nothing in there, we must want now.
$time_input = 0 + $time_input; # Force to number.
my @headers = ('Unix Epoch');
my @data = ($time_input);
my $time_output;
my $dt = try { DateTime->from_epoch(epoch => $time_input) };
return unless $dt;
my $time_output;
my @table_data = (['Unix Epoch', $time_input]);
foreach my $tz (uniq grep { $_ } ($loc->time_zone, $default_tz)) {
$dt->set_time_zone($tz);
push @headers, sprintf($header_format, $tz);
push @data, $dt->strftime($time_format);
push @table_data, [sprintf($header_format, $tz), $dt->strftime($time_format)];
}
return unless @data;
my $html_table = '<table class="unixtime">';
$html_table .= '<tr><th>' . join('</th><th>', @headers) . '</th></tr>';
$html_table .= '<tr><td>' . join('</td><td>', @data) . '</td></tr>';
$html_table .= '</table>';
return $time_input . ' (Unix epoch): ' . join(' / ', @data), html => $html_table;
my $text = join(' | ', (map { join(' => ', @{$_}) } @table_data));
return $text, html => to_html(@table_data);
};
sub to_html {
my $results = "";
my $minwidth = "90px";
foreach my $result (@_) {
$results .=
"<div><span class=\"unixtime__label text--secondary\">$result->[0]: </span><span class=\"text--primary\">$result->[1]</span></div>";
$minwidth = "180px" if length($result->[0]) > 10;
}
return $results . "<style> .zci--answer .unixtime__label {display: inline-block; min-width: $minwidth}</style>";
}
1;

6
t/UnixTime.t
View File

@ -8,9 +8,9 @@ use DDG::Test::Goodie;
zci answer_type => 'time_conversion';
zci is_cached => 0;
my @zero = (qr/0 \(Unix epoch\):.+Thu Jan 01 00:00:00 1970 UTC/, html => qr/Thu Jan 01 00:00:00 1970 UTC/);
my @now = (qr/\d+ \(Unix epoch\):.+UTC/, html => qr/UTC/);
my @later = (qr/2147483647 \(Unix epoch\):.+Tue Jan 19 03:14:07 2038 UTC/, html => qr/Tue Jan 19 03:14:07 2038 UTC/);
my @zero = (qr/Thu Jan 01 00:00:00 1970 UTC/, html => qr/Thu Jan 01 00:00:00 1970 UTC/);
my @now = (qr/Unix Epoch.+UTC/, html => qr/UTC/);
my @later = (qr/Tue Jan 19 03:14:07 2038 UTC/, html => qr/Tue Jan 19 03:14:07 2038 UTC/);
ddg_goodie_test([qw(
DDG::Goodie::UnixTime