Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

New 'fancy_time' function for more readable time strings.

Browse Source
This commit is contained in:
Chris 2012-07-31 16:27:21 +01:00
parent d7026e0464
commit 68a2c24ed7
1 changed files with 50 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
Template.pm
View File

@ -120,7 +120,7 @@ use POSIX qw(strftime);
use Utils qw(path_join superchomp);
use strict;
our ($errstr, $utfentities, $entities, $ords);
our ($errstr, $utfentities, $entities, $ords, @timescales);
BEGIN {
$errstr = '';
@ -134,6 +134,7 @@ BEGIN {
'\xE2\x80\x94' => '—',
'\xE2\x80\xA6' => '…',
};
$entities = {'\x91' => '‘', # 0x91 (145) and 0x92 (146) are 'smart' singlequotes
'\x92' => '’',
'\x93' => '“', # 0x93 (147) and 0x94 (148) are 'smart' quotes
@ -142,6 +143,7 @@ BEGIN {
'\x97' => '—',
'\x88' => '…', # 0x88 (133) is an ellisis
};
$ords = {1 => "st",
2 => "nd",
3 => "rd",
@ -150,6 +152,16 @@ BEGIN {
23 => 'rd',
31 => 'st'
};
@timescales = ( { "seconds" => 31557600, "singular" => "TIMES_YEAR" , "plural" => "TIMES_YEARS" },
{ "seconds" => 2629800, "singular" => "TIMES_MONTH" , "plural" => "TIMES_MONTHS" },
{ "seconds" => 604800, "singular" => "TIMES_WEEK" , "plural" => "TIMES_WEEKS" },
{ "seconds" => 86400, "singular" => "TIMES_DAY" , "plural" => "TIMES_DAYS" },
{ "seconds" => 3600, "singular" => "TIMES_HOUR" , "plural" => "TIMES_HOURS" },
{ "seconds" => 60, "singular" => "TIMES_MINUTE" , "plural" => "TIMES_MINUTES" },
{ "seconds" => 15, "singular" => "TIMES_SECONDS", "plural" => "TIMES_SECONDS" },
{ "seconds" => 1, "singular" => "TIMES_JUSTNOW", "plural" => "TIMES_JUSTNOW" },
);
}
@ -786,6 +798,43 @@ sub format_time {
}
## @method $ fancy_time($time)
# Generate a string containing a 'fancy' representation of the time - rather than
# explicitly showing the time, this will generate things like "just now", "less
# than a minute ago", "1 minute ago", "20 minutes ago", etc. The real formatted
# time is provided as the title for a span containing the fancy time.
#
# @param time The time to generate a string for.
# @return A string containing a span element representing both the fancy time as
# the element content, and the formatted time as the title. The span has
# the class 'timestr' for css formatting.
sub fancy_time {
my $self = shift;
my $time = shift;
my $now = time();
my $formatted = $self -> format_time($time);
my $fancytime;
# If the duration is negative (time is in the future), just use format_time
my $dur = $now - $time;
if($dur < 0) {
$fancytime = $formatted;
# Otherwise, find the largest matching time string
} else {
foreach my $scale (@timescales) {
if($dur > $scale -> {"seconds"}) {
$dur = int($dur / $scale -> {"seconds"}); # Always going to be positive, so no need for floor() here
$fancytime = $self -> replace_langvar($dur == 1 ? $scale -> {"singular"} : $scale -> {"plural"}, {"%t" => $dur});
}
}
}
return '<span class="timestr" title="'.$formatted."'>'".$fancytime.'</span>';
}
## @method $ html_clean($text)
# Process the specified text, converting ampersands, quotes, and angled brakets
# into xml-safe character entity codes.