Users are expected to be familiar with git's "approxidate"
functionality for parsing dates, so we'll expose that
in our UIs. Xapian itself has limited date parsing functionality
and I can't expect users to learn it.
This takes around 4-5ms on my aging workstation, so it'll
probably be made acceptable for the WWW UI, even.
libgit2 has a git__date_parse function which I expect to have
less overhead, but it's only for internal use at the moment.
# same args as popen above
sub qx {
# same args as popen above
sub qx {
- my $self = shift;
- my $fh = $self->popen(@_);
if (wantarray) {
local $/ = "\n";
my @ret = <$fh>;
if (wantarray) {
local $/ = "\n";
my @ret = <$fh>;
+sub date_parse {
+ my $d = $_[0]->qx('rev-parse', "--since=$_[1]");
+ substr($d, length('--max-age='), -1)
+}
+
# check_async and cat_async may trigger the other, so ensure they're
# both completely done by using this:
sub async_wait_all ($) {
# check_async and cat_async may trigger the other, so ensure they're
# both completely done by using this:
sub async_wait_all ($) {
# Copyright (C) 2015-2021 all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
use strict;
# Copyright (C) 2015-2021 all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
use strict;
use Test::More;
use PublicInbox::TestCommon;
my ($dir, $for_destroy) = tmpdir();
use Test::More;
use PublicInbox::TestCommon;
my ($dir, $for_destroy) = tmpdir();
-use PublicInbox::Spawn qw(popen_rd);
use_ok 'PublicInbox::Git';
use_ok 'PublicInbox::Git';
xsys([qw(git fast-import --quiet)], { GIT_DIR => $dir }, $rdr);
is($?, 0, 'fast-import succeeded');
}
xsys([qw(git fast-import --quiet)], { GIT_DIR => $dir }, $rdr);
is($?, 0, 'fast-import succeeded');
}
+{
+ my $git = PublicInbox::Git->new($dir);
+ my $s = $git->date_parse('1970-01-01T00:00:00Z');
+ is($s, 0, 'parsed epoch');
+ local $ENV{TZ} = 'UTC';
+ $s = $git->date_parse('1993-10-02 01:02:09');
+ is(strftime('%Y-%m-%dT%H:%M:%SZ', gmtime($s)), '1993-10-02T01:02:09Z',
+ 'round trips');
+ $s = $git->date_parse('1993-10-02');
+ is(strftime('%Y-%m-%d', gmtime($s)), '1993-10-02',
+ 'round trips date-only');
+}
{
my $gcf = PublicInbox::Git->new($dir);
{
my $gcf = PublicInbox::Git->new($dir);