#!/usr/bin/perl

# Copyright (C) 2006 Eric L. Wilhelm

use strict;
use warnings;

use VCfs;
use Getopt::Helpful;

use Date::Parse qw(str2time);
use Date::Format qw(time2str);

(__FILE__ eq $0) and exit(main(@ARGV));

sub main {
	my @args = @_;
	my $file;
	my $format = '%Y-%m-%d';
	my $hopt = Getopt::Helpful->new(
		usage => "CALLER <file>",
		['d|format=s', \$format, '%Y%m',
			"Date::Format format (default '$format')"],
		'+help',
		);
	$hopt->Get_from(\@args);
	$file ||= shift(@args);
	@args and $hopt->usage("eek: @args");
	(-e $file) or $hopt->usage("no file '$file'");

	my $vcs = VCfs->new($file);
	my @dates = $vcs->get_log_times($file);
	@dates = reverse(
			map({time2str($format, str2time($_))}
				@dates[0,-1]
				)
			);
	($dates[0] eq $dates[1]) and pop(@dates); # no dupes
	print join('-', @dates), "\n";

	0;
} # end subroutine main definition
########################################################################