From 87fb4f83be87c19d664477acfc327a248f8ce623 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Thu, 2 Nov 2017 04:22:58 +0100
Subject: [PATCH] default date should be "latest" for querying
---
lib/WikiData/Utils.pm | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/lib/WikiData/Utils.pm b/lib/WikiData/Utils.pm
index 39b3f04..a756527 100644
--- a/lib/WikiData/Utils.pm
+++ b/lib/WikiData/Utils.pm
@@ -10,10 +10,12 @@ use strict;
sub get_paths
{
my $date= shift;
- my $seq= shift || 'a';
+ my $seq= shift;
if ($date =~ m#^(\d{4})-?(\d{2})\-(\d{2})$#)
{
+ $seq= 'a' unless (defined ($seq));
+
my ($yr, $mon, $day)= ($1, $2, $3);
my $d1= join ('-', $yr, $mon, $day. $seq);
@@ -23,6 +25,13 @@ sub get_paths
return ($fnm, $data_dir, $out_dir);
}
+ elsif ($date eq 'latest')
+ {
+ my $data_dir= join ('/', 'data', 'latest');
+ my $out_dir= join ('/', 'data', 'latest', 'out');
+
+ return (undef, $data_dir, $out_dir);
+ }
die "invalid date format";
}
--
GitLab