#!/usr/bin/perl
use strict;
use warnings;
use VCfs;
use Date::Parse qw(str2time);
use Date::Format qw(time2str);
my $t = $ARGV[0];
$t or die;
my $vcs = VCfs->new($t);
print join("\n",
map({"|$_|"}
map({time2str('%Y-%m-%d', str2time($_))}
$vcs->get_log_times($t)
)
), '');